CMDLBL COMMAND IN AS400

0001.00 PGM                                     
0002.00              GOTO       CMDLBL(ABC)     
0003.00  ABC:        SNDPGMMSG  MSG(HI)         
0004.00 ENDPGM    


USING IF

0001.00 PGM                                                             
0002.00              DCL        VAR(&SEX) TYPE(*CHAR) VALUE('M')        
0003.00             IF         COND(&SEX *EQ 'M') THEN(GOTO CMDLBL(ABC))
0004.00  ABC:        SNDPGMMSG  MSG(HI)                                 
0005.00 ENDPGM