123 lines
9.7 KiB
Plaintext
123 lines
9.7 KiB
Plaintext
//**** 00000100
|
|
//** 00000200
|
|
//** CREATE DAILY CREDITS AND DEBITS ESTABLISHED REPORT. 00000300
|
|
//** (*NO* MSTR UPDATE) 00000500
|
|
//** 00000600
|
|
//* PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.' 00000701
|
|
//** RUNTYPE='RQ', 00000801
|
|
//*** PREBACK='N', 00000901
|
|
//** CHKONLY='N', 00001001
|
|
//** IOTRACE='N' 00001101
|
|
//**** 00001400
|
|
//STEP0991 EXEC PGM=DTSBD400, PERIODIC EXTRACT 00001501
|
|
// COND=(0,LT), 00001600
|
|
// PARM='QE,N,N,N' 00001702
|
|
//* 00003000
|
|
//SYSOUT DD SYSOUT=* 00004000
|
|
//SYSABOUT DD SYSOUT=* 00005000
|
|
//SYSUDUMP DD SYSOUT=* 00006000
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007000
|
|
//X330FILE DD DSN=&&DTSBE330, 00007100
|
|
// DISP=(NEW,PASS,DELETE), 00007200
|
|
// UNIT=SYSDA, 00007400
|
|
// SPACE=(25000,(1000,1000),RLSE), 00007500
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00007600
|
|
//* 00007700
|
|
//BE330PRM DD DSN=&&BE330PRM, 00007800
|
|
// DISP=(NEW,PASS,DELETE), 00008000
|
|
// UNIT=SYSDA, 00008100
|
|
// SPACE=(5,(1000,1000),RLSE), 00008200
|
|
// DCB=(RECFM=FB,LRECL=5,BLKSIZE=5) 00008300
|
|
//* 00008400
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00008500
|
|
// AMP=('BUFNI=5,BUFND=10') 00009000
|
|
//DTSFVRO1 DD DUMMY 00010000
|
|
//DTSFBTCO DD DUMMY 00050000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ330),DISP=SHR 00082001
|
|
//**** 00090000
|
|
//STEP0992 EXEC PGM=SORT,PARM='VLTEST=0', 00100001
|
|
// COND=(0,LT) 00110000
|
|
//SYSOUT DD SYSOUT=* 00120000
|
|
//SORTIN DD DSN=&&DTSBE330, 00130000
|
|
// DISP=(OLD,DELETE,DELETE), 00140000
|
|
// UNIT=SYSDA, 00150000
|
|
// SPACE=(25000,(1000,1000),RLSE), 00160000
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00170000
|
|
//SORTOUT DD DSN=&&BE330SRT, 00180000
|
|
// DISP=(,PASS,DELETE), 00190000
|
|
// UNIT=SYSDA, 00200000
|
|
// SPACE=(25000,(1000,1000),RLSE), 00210000
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00220000
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00230000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00240000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00250000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSS776),DISP=SHR 00260000
|
|
//** 00270000
|
|
//STEP0993 EXEC PGM=DTSBX330, 00280001
|
|
// COND=(0,LT), 00290000
|
|
// REGION=4096K 00300000
|
|
//SYSOUT DD SYSOUT=* 00310000
|
|
//SYSABOUT DD SYSOUT=* 00320000
|
|
//SYSABEND DD SYSOUT=* 00330000
|
|
//DTSX330 DD DSN=&&BE330SRT, 00340000
|
|
// DISP=(OLD,DELETE,DELETE), 00350000
|
|
// UNIT=SYSDA, 00360000
|
|
// SPACE=(25000,(1000,1000),RLSE), 00370000
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000) 00380000
|
|
//** 00390000
|
|
//BE330PRM DD DSN=&&BE330PRM, 00400000
|
|
// DISP=(OLD,DELETE,DELETE), 00401000
|
|
// UNIT=SYSDA, 00402000
|
|
// SPACE=(5,(1000,1000),RLSE), 00403000
|
|
// DCB=(RECFM=FB,LRECL=5,BLKSIZE=5) 00404000
|
|
//* 00405000
|
|
//DTSFVRO1 DD DSN=&&BE330RPT, 00406000
|
|
// DISP=(NEW,PASS,DELETE), 00406200
|
|
// UNIT=SYSDA, 00407100
|
|
// SPACE=(16394,(900,900),RLSE), 00408000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00409000
|
|
//* REPORT RECORD SORT 00410000
|
|
//* 00420001
|
|
//STEP0994 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00430001
|
|
// COND=(0,LT), 00440001
|
|
// REGION=0K 00450001
|
|
//SYSOUT DD SYSOUT=* 00460001
|
|
//SORTIN DD DSN=&&BE330RPT, 00470001
|
|
// DISP=(OLD,DELETE,DELETE) 00480001
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00490001
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00500001
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00510001
|
|
//SORTOUT DD DSN=&&SRTRPT, 00520001
|
|
// DISP=(,PASS,DELETE), 00530001
|
|
// UNIT=SYSDA, 00540001
|
|
// SPACE=(8192,(1000,1000),RLSE), 00550001
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00560001
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00570001
|
|
//**** 00580001
|
|
//* REPORT GENERATION 00590001
|
|
//STEP0995 EXEC PGM=DTSBD800, 00600001
|
|
// COND=(0,LT) 00610001
|
|
//SYSOUT DD SYSOUT=* 00620001
|
|
//SYSABOUT DD SYSOUT=* 00630001
|
|
//SYSUDUMP DD SYSOUT=* 00640001
|
|
//** 00650001
|
|
//PARMIN DD DUMMY 00660001
|
|
//** 00670001
|
|
//ATLSTIN DD DUMMY 00680001
|
|
//** 00690001
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00691003
|
|
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00700001
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00720001
|
|
// AMP=('BUFNI=5,BUFND=10') 00730001
|
|
//* 00740001
|
|
//** DEBITS AND CREDITS REPORT 00750001
|
|
//RPT330R1 DD SYSOUT=(V,DTS330D1),HOLD=&LVDHOLD., 00761001
|
|
// DEST=&LDEST. 00762001
|
|
//* 00790001
|
|
//RPT330R2 DD SYSOUT=(V,DTS330D2),HOLD=&LVDHOLD., 00801001
|
|
// DEST=U@PRT65 00820001
|
|
//* 00830001
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00840001
|
|
// HOLD=&LVDHOLD., 00850001
|
|
// DEST=&LDEST. 00851001
|