//A540769R JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*TEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DBWK2) PLAN(DBWK2) PARMS(' sD iD sD tD sD')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY