Free software training Videos

Free software training Videos
https://www.youtube.com/user/VLRTraining

List Of Best WebSites

Saturday 17 November 2012

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                                                                                       

No comments:

Post a Comment