Exemple travaux de groupe (complément ŕ GRPJOBCL)

BoTTom | 
             PGM
             DCL &GRPJOB *CHAR 10
 
             SETATNPGM  PGM(GRPJOBCL)
 
             RTVGRPA    GRPJOB(&GRPJOB)
 
             IF (&GRPJOB = 'JOB02')  GO SUPPORT
                ELSE IF (&GRPJOB = 'JOB03') GO ASSIST
                     ELSE IF (&GRPJOB = 'JOB04') STRPDM
                          ELSE GO MAIN
 
              ENDPGM




©AF400