//RUNBZ268 JOB (UI,4300,3400,T),RUNBZ268,CLASS=S,MSGCLASS=X,            00000010
//          NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*                                                                     00001700
//  SET MSTNODE='PROD'            REGION VSAM MASTER FILES
//  SET LVLNODE='PROD'            REGION NON MASTER FILES
//  SET PGMNODE='DEVL'            REGION BATCH LOADLIB/PROCLIB
//*
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.DEVL.PROCLIB                            00001600
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB                                 00001600
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBZ268,     INIT MADJ, MQTR
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//*********************************************************************