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                                          
                                                                      
                           
          /* si le nom est dupliqué */

            RCVMSG     PGMQ(*SAME (*)) MSGDTA(&MSGDTA) MSGID(&MSGID)
            DOWHILE    COND(&MSGID *NE ' ')
              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
             RCVMSG     PGMQ(*SAME (*)) MSGDTA(&MSGDTA) MSGID(&MSGID)
            ENDDO 

           ENDPGM



©AF400