zOs/JCL/DB2REVLO

//A540769S  JOB (CP00,KE50)                                             00010001
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//     PARM=('%REVI GET DBAF from DBAF DBTF')
//SYSIN    DD DUMMY
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX