Help !! I dont understanding on break in my report.

["Ronaldo Delmar M. Fernandes" <ronaldo@ZAFFARI.COM.BR>]

look the follow code.

Begin-Program
Begin-Select
codgrupo
codproduto
produto
                print   &codgrupo               (,10)   On-Break procedure =
q_grupo
                print   &codproduto     (,15)
                print   &produto        (,28)

                next-listing

>From    produtos
where   coddepartamento         =       1
and             codsecao        =       8
and             codclasse               =       168
order           by codgrupo
End-Select
End-Program

begin-procedure q_grupo
        print   'Grupo'         (+1,1)
end-procedure

and look the result

        1       189             cerveja tipo1
                502             cerveja brahma
                924             cerveja skol
                1223            cerveja polar

grupo   5       242105          cerveja nortenha
                6423            cerveja itaipava

grupo   10      131484          cerveja kroneibier
                2368            cerveja tipo 2
                4525            cerveja tipo 3
                1568            cerveja tipo 99


why in the first time the string grupo not printed if &codgrupo printed ?