65 lines
5.1 KiB
Plaintext
65 lines
5.1 KiB
Plaintext
//**** 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
|