ENDALLJOB





Arrêt de tous les jobs ayant un nom donné.


| 
           CMD        PROMPT('Arret de tous les jobs')             
           PARM       KWD(JOB) TYPE(*NAME) MIN(1) PROMPT(TRAVAIL)

CPP de la cde ENDALLJOB


| 
             PGM        PARM(&JOB)                                    
             DCL &JOB *CHAR 10                                        
             DCL &USR *CHAR 10                                        
             DCL &NBR *CHAR  6                                        
             DCL &MSGDTA *CHAR 26                                     
             DCL &MSGID *CHAR 7                                       
                                                                      
             ENDJOB     JOB(&JOB) OPTION(*IMMED) DUPJOBOPT(*MSG)      
              MONMSG CPF0000                                          
                                                                      
  LECTURE:    RCVMSG     PGMQ(*SAME (*)) MSGDTA(&MSGDTA) MSGID(&MSGID)
              IF (&MSGID = ' ') RETURN                                
/* si le nom est dupliqué */
              IF (&MSGID = 'CPF0906') THEN(DO)                        
                 CHGVAR &USR %SST(&MSGDTA 11 10)                      
                 CHGVAR &NBR %SST(&MSGDTA 21 6)                
                 ENDJOB     JOB(&NBR/&USR/&JOB) OPTION(*IMMED) 
                  MONMSG CPF0000                               
              ENDDO                                            
              GOTO LECTURE                                     
             ENDPGM




©AF400