zOs/JCL/SMSREST

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG                                                       00040000
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//            PARM='WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//OUT       DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *  DISP=SHR,DSN=A540769.TX.CASE(XC200DEL)
$<.fileList('DBAF.DA540769.APER09.P*.D110222.**')
$@for d $@[
   say 'recalling' $d
   call adrTso hrecall "'"$d"'"
   $]
$#out                                              20110301 16:06:28