//RUNBZ279 JOB (UI,4300,3400,T),RUNBZ279,CLASS=A,MSGCLASS=X, 00000010 //** TYPRUN=SCAN, // USER=#DOADTS, // NOTIFY=ECNTZL1 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //** // SET MSTNODE='PROD' REGION VSAM MASTER FILES // SET LVLNODE='PROD' REGION NON VSAM MASTER FILES // SET PGMNODE='DEVL' REGION BATCH LOADLIB/PROCLIB //* //PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB //LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB //** //STEP0100 EXEC PGM=DTSBZ279, INIT AADJ // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //CAIMRPTS DD SYSOUT=* //* //DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //* //