//ECNTZL1I JOB (UI,4300,3400,T),INITNAME,CLASS=A,MSGCLASS=X,            00000010
//**        TYPRUN=SCAN,
//          NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*********************************************************************
//*                                                                     00000200
//  SET  UINODE='PROD'            REGION VSAM MASTER FILES
//  SET MSTNODE='PROD'            REGION VSAM MASTER FILES
//  SET LVLNODE='PROD'            REGION BATCH LOADLIB/PROCLIB
//*
//*                                                                     00000200
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00000300
//*                                                                     00000400
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0100 EXEC PGM=IDCAMS,         DELETE/DEFINE NAME FILE
//             REGION=0K
//WEBTRN   DD  DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.TRN(+1),
//             DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600)
//SYSIN    DD  *
//*