ESP Workload Automation

Does anyone have a process or job that you can issue the following CA7BTI command:

LDSN,DSNBR=DS*,LIST=NOUSER

Take the results and put them in a dataset and run a program or even a REXX to create the following command with input from above command:

DELETE,DSNBR=

Thanks for your assistance.

Rafik

Use a sort with the following SYSIN control statements. It looks for JTERM in column 66:

//SORT01     EXEC PGM=SORT

//SYSUDUMP   DD SYSOUT=Z

//SYSOUT     DD SYSOUT=Z

//SORTIN     DD DISP=SHR,DSN=YOUR.CA7.BTI.OUTPUT

//SORTOUT    DD DSN=YOUR.NEW.DATASET,UNIT=SYSDA,DISP=(NEW,CATLG),

//           SPACE=(TRK,(1,1)),DCB=(BLKSIZE=0,LRECL=80,RECFM=FB)

//SYSIN      DD *

  INCLUDE COND=(66,5,CH,EQ,C'JTERM')

  INREC FINDREP=(INOUT=(C' .',C'  ',

                                    C'..',C'  ',

                                    C'. ',C'  '),

                                   STARTPOS=02,ENDPOS=46)

  OUTREC FIELDS=(C'DELETE,DSNBR=',2,44,23X)

  SORT FIELDS=COPY

  END

//