//****                                                                  00000100
//**                                                                    00000200
//**  CREATE T040 TRANSCATIONS FROM AUDIT LABTOP SYSTEM                 00000526
//** RUNS BEFORE DAILY UPDATE (DTSPDAY1)                                00000626
//**                                                                    00000700
//DTSBX440 PROC                                                         00000801
//*                                                                     00000900
//**              DEFNS NEEDED FOR THIS PROC:                           00001100
//**   LVLNODE = DEVL/TEST/PROD                                         00001200
//****                                                                  00001400
//STEP4401  EXEC PGM=DTSBX440,                         PERIODIC EXTRACT 00001520
//             COND=(0,LT)                                              00001601
//*                                                                     00001800
//SYSOUT   DD  SYSOUT=*                                                 00004000
//SYSABOUT DD  SYSOUT=*                                                 00005000
//SYSUDUMP DD  SYSOUT=*                                                 00006000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00007000
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 00012200
//             AMP=('BUFNI=5,BUFND=10')                                 00013000
//*                                                                     00030003
//DTSFVRO1 DD  DSN=DOESTAX.&MSTNODE..BX440.RPT,                         00040010
//**           DISP=(,CATLG,DELETE),                                    00041006
//             DISP=(OLD,KEEP,KEEP),                                    00042006
//             SPACE=(8192,(100,200),RLSE),                             00043003
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00044003
//*                                                                     00045003
//DTSFBTCO DD  DSN=&&X440BTC,                                           00070008
//             DISP=(NEW,PASS,DELETE),                                  00080008
//             SPACE=(8192,(100,200),RLSE),                             00081008
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00081108
//****                                                                  00082000
//DTSFAUDT DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..AUDIT.X144,                00083025
//             DISP=(OLD,KEEP,KEEP)                                     00085001
//*******************************************************************   00085128
//***  COPY AUDIT PACKAGE X144 FILES TO BBACKUP  FILE.                  00085228
//**                                                                    00085328
//*******************************************************************   00085428
//**                                                                    00085528
//COPYX144 EXEC PGM=IDCAMS,COND=(0,LT)                                  00085628
//INDD01 DD DSN=ECNTSUP.DOESTAX.&IMPNODE..AUDIT.X144,DISP=SHR           00085728
//**                                                                    00085828
//OUTDD01 DD DSN=DOESTAX.CONV.BACKUP.AUDTX144(+1),                      00085928
//      DISP=(NEW,CATLG,DELETE),                                        00086028
//      UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),                             00086128
//      DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=2560)                00086228
//SYSPRINT DD SYSOUT=(*)                                                00086328
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR              00086428
//**                                                                    00086528
//*                                                                     00087000
//* BYPASS STEP WHEN THERE ARE NO ERRORS ON INPUT FILE                  00111014
//*                                                                     00112014
//STEP4402 EXEC PGM=IEBGENER,COND=(2,NE,STEP4401),REGION=4M             00120020
//SYSPRINT DD SYSOUT=*                                                  00130009
//OUT1     OUTPUT DEST=U1003,                                           00140009
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',                              00150009
//*        'CC:GIL.DIMATTIA@DC.GOV',                                    00160009
//         'SUBJECT:  DUTAS AUDIT ERROR REPORT.....ZL1',                00170009
//         'FILEDESC: DUTAS AUDIT REPORT                  ',            00180009
//         'FILENAME: DUTAS_AUDIT.TXT'),                                00190027
//         MAILFROM=DUTAS@DC.GOV                                        00191027
//SYSUT1   DD DSN=DOESTAX.&MSTNODE..BX440.RPT,DISP=SHR                  00200010
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1                                    00210009
//SYSIN    DD DUMMY                                                     00220009
//*                                                                     00230009