jobstatus überprüfen

[malzusrex]

Wenn nur im CL--> hier eine Anregung.

PGM                                                                     
                                                                        
 DCLF DAT01                           /* WOrkFile für den Copy-Splf */  
 DCL &Job        *char    10                     /*  Job-Name       */  
 DCL &User       *char    10                     /*  Benutzer       */  
 DCL &Job_Status *char    10                     /*  Job-Status     */  
                                                                        
START:                                                                  
 /* Work-File erstellen  + löschen*/                                    
 CRTPF FILE(QTEMP/DAT01) RCDLEN(150)                                    
 MONMSG CPF0000                                                         
 CLRPFM QTEMP/DAT01                                                     
 MONMSG CPF0000                                                         
                                                                        
 /* Jobliste in Spool ausgeben und in Datei kopieren */                 
 wrkactjob *print                                                       
 CPYSPLF FILE(QPDSPAJB) TOFILE(QTEMP/DAT01) SPLNBR(*LAST)               
                                                                        
 /* Datei lesen bis */                                                  
 LOOP:       RCVF       RCDFMT(DAT01)                                        
MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(WEITER)) /* bis zum Ende lesen */ 
                                                                             
 /* Infos aus Zeile holen */                                                 
 CHGVAR     VAR(&JOB_STATUS) VALUE(%SST(&DAT01 116   4))                     
 CHGVAR     VAR(&JOB)        VALUE(%SST(&DAT01   4  10))                     
 CHGVAR     VAR(&User)       VALUE(%SST(&DAT01  17  10))                     
                                                                             
 IF         COND(&JOB_STATUS *EQ 'MSGW') THEN(DO)                            
   /* Hier SNDUSRMSG  oder so einbauen */                                    
 EndDO                                                                       
                                                                             
 goto loop                                                                   
WEITER:                                                                      
dlyjob dly(300)                                                              
goto  START                                                                  
                                                                             
ENDPGM 

Um das CL zu erstellen musst du dir Datei DAT01 erst einmal erstellen
CRTPF FILE(QTEMP/DAT01) RCDLEN(150)
Dann das CL interaktiv umwandeln.

Gruß
Ronald

[KingofKning]

Besser geht es ja nun kaum
GG

[Fuerchau]

Warum eigentlich immer so kompliziert?
Per CHGJOB INQMSGRPY(*DFT) den Job im Batch-CLP ändern.
Die Defaultantwort ist meist "C" für Cancel oder "D" für Dump und Cancel.
Dann gibt's keinen MSGW mehr!
Den Rest dann per MONMSG abfangen und ggf. den Grund per RCVMSG aus dem Joblog auslesen.