wir machen das so:
Code:
      /* Alle Textdateien im Pfad auflisten und nach qtemp/T_IFS     */ 
dclf qtemp/t_ifs        /* vorher mit SL 512 erstellen */
              CHGVAR     VAR(&QSHC) VALUE('cd ' *CAT &HK *CAT +         
                           &FROMFILE *TCAT &HK *BCAT ' && ls +          
                           *.[Tt][Xx][Tt]')                             
              OVRDBF     FILE(STDOUT) TOFILE(QTEMP/T_IFS) OVRSCOPE(*JOB)
              CHGJOB     JOB(*) LOG(4 0 *NOLIST)                        
              STRQSH     CMD(&QSHC)                                     
              DLTOVR     FILE(STDOUT) LVL(*JOB)                         
              CHGJOB     JOB(*) LOG(4 0 *SECLVL)                        
 RCV:         RCVF                                                      
              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(WEIT))         
   /*  nix gefunden                                        */           
              IF         COND(%SST(&T_IFS 1 6) *EQ '      ') +          
                           THEN(GOTO CMDLBL(WEIT))                         /* leer 1 */
              IF         COND(%SST(&T_IFS 1 7) *EQ 'ls: 001') +         
                           THEN(GOTO CMDLBL(WEIT))                          /* leer 2 */