Problem with two procedures

[Philippe DAVID <Philippe.DAVID@GLENAT.COM>]

I've a problem with a procedure. My code is like that:

(.....)
        let $NumComm = &NCOM
        let $GES = &GSGC
        let $DTAC = &DTAC
        #debug show 'Commande:' $NumComm ' Ancienne Commande:' $oldNumComm '
Gestionnaire:' $GES '  Ancien Gestionnaire:' $oldGES '   Flag:' $Fimp
        if $GES <> $oldGES and $oldGES<>''      ! si nouveau code
gestionnaire
            if $Fimp='1'                        ! on controle si la ligne
précédente doit être imprimée
                do imp                          ! on l'imprime
                let #ligne_courante={LIGNE1}    ! et on change de page
                new-page
            end-if            
        else
            if $NumComm<>$oldNumComm and $oldNumComm<>''    ! si nouveau
numéro de commande
                if $Flag='1'                                ! et que la
ligne précédente doit être imprimée
                    do imp                                  ! on l'imprime
                else
                    let $Fimp='1'                           ! sinon on remet
le flag à 1 pour la commande suivante        
                end-if
            else
                if &QInitiale <> &QLivree                   ! si on est
toujours sur la même commande et que la quantité 
                    let $Fimp='0'                           ! initiale est
différente de la quantité livrée, on passe le flag à 0
                end-if
            end-if
        end-if    
        let $oldGES = $GES
        let $oldNumComm = $NumComm
        let $oldDTAC = $DTAC
        let $oldNBUL=$NBUL
        let $oldCLIENT=$CLIENT

from LIGNES l,CDEENT c
where l.RSTE=$RSTE
and c.RSTE=l.RSTE
and c.NDOC=l.NDOC

order by c.GSGC,l.NDOC,l.NLLC

end-procedure                           ! main procedure


!***************************************************************************
***************************************
begin-procedure recup_infoclient        ! récupère les infos du client en
cours                                   *
!***************************************************************************
***************************************

if $oldCLIENT=''
    #debug show 'Test pour voir si je suis con'
    let $Ref2=$CLIENT
else
    let $Ref2=$oldCLIENT
end-if
(.......)

When I launch my program, I've this error message:

Error on line 318:
(SQR 2001) Could not find procedure: 'recup_infoclient'.
(SQR 4407) Referenced variables not defined:

  &cciv
  &rssc
  &vill
  &cciv
  &rssc
  &vill

Errors were found in the program file.

SQR: Program Aborting.


If I put an other procedure before this procedure, I've the same type of
error with the other procedure, so I think my problem is with the end of the
main procedure

Someone have an idea ?

GLENAT
E d i t i o n s

Philippe DAVID
6 rue Lt Chanaron
38000 GRENOBLE
Tel: 04 76 88 75 99