Code:
 CRTPF      FILE(QTEMP/T_IFS) RCDLEN(512)   
CHGVAR     VAR(&QSHC) VALUE('FIND ''' *CAT &PFAD *TCAT +    
             '''')                                          
                                                            
CHGJOB     JOB(*) LOG(4 0 *NOLIST)                          
OVRDBF     FILE(STDOUT) TOFILE(QTEMP/T_IFS) OVRSCOPE(*JOB)  
STRQSH     CMD(&QSHC)                                       
CHGJOB     JOB(*) LOG(4 0 *SECLVL)                          
DLTOVR     FILE(STDOUT) LVL(*JOB)                           
                                                            
OVRDBF     FILE(T_IFS) TOFILE(QTEMP/T_IFS) LVLCHK(*NO)      
                                                            
RCVF                                                        
MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))
ist besser als nen dummen Spool aus zu lesen
und so lang wie du willst