zOs/JCL/DEL

//A540769D JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,
//         SCHENV=DB2,CLASS=M1
//*
//WSH      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='%WST'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//*OUT       DD DSN=A540769.WK.TEXW(EINS),DISP=SHR
//WSH       DD *
$#@
$@. fileList('tss.ska.db2.wshLog')
$| $for i  $@[
    call readDsn $i, i.
    say $i 'count' i.0
    say  adrTso "delete '"strip($i)"'"
    $]