//*
//*      WEEKLY REGISTRATION COUNTS (R122)
//*
//DTSBX122 PROC
//**              DEFNS NEEDED FOR THIS PROC:
//**   LVLNODE = DEVL/TEST/PROD
//****
//*
//STEP0100 EXEC PGM=DTSBX122,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD  DSN=DOESTAX.&MSTNODE..SRTDAY07.RPT(+0),DISP=SHR
//*                                                                     00014000
//DTSFREG  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.REG122,                00005000
//             DISP=(OLD,KEEP,KEEP),
//**           DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(28200,(1000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=94,BLKSIZE=28200)
//*                                                                     00014000
//*****************************************