/Meinikat *CAT &LIB durch deinen Pfad ersetzen
Code:
             PGM (&USR &LIB)                                                    
             DCL        VAR(&USR) TYPE(*CHAR) LEN(10)                    
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)                    
             DCL        VAR(&QSHC) TYPE(*CHAR) LEN(25)                   
             DCLF QTEMP/T_IFS                                            

             CRTPF QTEMP/T_IFS  RCDLEN(1000)                             
             CHGVAR     VAR(&QSHC) VALUE('FIND /MEINIKAT/' *CAT &LIB)    
             OVRDBF     FILE(STDOUT) TOFILE(QTEMP/T_IFS) OVRSCOPE(*JOB)  
             STRQSH CMD(&QSHC)                                           
             DLTOVR     FILE(STDOUT) LVL(*JOB)                           
             OVRDBF DATEI QTEMP/T_IFS                                    
 START:      RCVF                                                        
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))           
             CHGOWN &T_IFS NEWOWN(&USR)                                  
             GOTO START                                                  
 ENDE:       DLTOVR     FILE(DATEI)
Robi