Wenn nur im CL--> hier eine Anregung.
PHP-Code:
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