69 lines
5.3 KiB
Plaintext
69 lines
5.3 KiB
Plaintext
//DTSTP590 JOB (UI,4300,3400,T),PROD.UC30.BR590, 00000159
|
|
// CLASS=P,MSGCLASS=X, 00000227
|
|
//**** TYPRUN=SCAN, 00000317
|
|
// NOTIFY=ECNTSUP,REGION=0K 00000417
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//** 00000510
|
|
// SET LVLNODE='PROD' /* TEST/PROD 00000617
|
|
// SET QTR='QTR20062' /* QTRCCYYQ 00000761
|
|
// SET FA='DTSFAADP' /* FAADP/CER/PB/PC/ADA 00000861
|
|
// SET LVOLSER='033403' 00001361
|
|
// SET DTSX590='DTSP590C' /* C=CART/T=TAPE 00001446
|
|
// SET LDEST=U@PRT65 00001516
|
|
// SET LHOLD='YES' 00001643
|
|
//* 00001712
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001812
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001912
|
|
//**** 00002010
|
|
//STEP0100 EXEC PGM=SORT, /* SRT RPT RECORDS 00002410
|
|
// COND=(0,LT) 00002500
|
|
//SYSOUT DD SYSOUT=* 00002600
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..UC30.BR590.&QTR., 00004010
|
|
//*ORTIN DD DSN=DOESTAX.&LVLNODE..UC30.BR590.GB320061, 00004010
|
|
// DISP=SHR 00005010
|
|
//SORTOUT DD DSN=&&SRTRPT, 00005700
|
|
// DISP=(,PASS,DELETE), 00005800
|
|
// UNIT=SYSDA, 00005900
|
|
// SPACE=(8192,(1000,1000),RLSE), 00006000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00006100
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(&FA),DISP=SHR 00006219
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00007000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00008000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00009000
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00010000
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00011000
|
|
//********************************************************************* 00018000
|
|
//STEP0200 EXEC PGM=DTSBD800, /* CREATE CART/TAPE & RPTS 00018110
|
|
// COND=(0,LT) 00018300
|
|
//PARMIN DD DUMMY 00018415
|
|
//ATLSTIN DD DUMMY 00018515
|
|
//SYSOUT DD SYSOUT=* 00018615
|
|
//SYSABOUT DD SYSOUT=* 00018715
|
|
//SYSUDUMP DD SYSOUT=* 00018815
|
|
//** 00019000
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050000
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00070010
|
|
// AMP=('BUFNI=5,BUFND=10') 00080000
|
|
//** 00090012
|
|
//** SUCCESSFUL HITS (REFLECTS THE RPT590R2 OUTPUT) 00100020
|
|
//RPT590R1 DD SYSOUT=Z,COPIES=2, 00100121
|
|
// DEST=&LDEST.,HOLD=&LHOLD. 00100220
|
|
//** 00100311
|
|
//***RPT590R2 DD SYSOUT=* /* FOR TESTING 00100420
|
|
//DTSFIO INCLUDE MEMBER=&DTSX590. /* FOR PROD 00100520
|
|
//** 00100613
|
|
//** UNSUCCESSFUL HITS (ERROR RPT) 00100720
|
|
//RPT590R3 DD SYSOUT=Z,COPIES=2, 00100821
|
|
// DEST=&LDEST.,HOLD=&LHOLD. 00100920
|
|
//** 00101020
|
|
//** SUCCESSFUL HITS (USING FEIN ONLY) 00101137
|
|
//** (SUBSET OF RPT590R1) 00101237
|
|
//RPT590R4 DD SYSOUT=Z,COPIES=2, 00101337
|
|
// DEST=&LDEST.,HOLD=&LHOLD. 00101437
|
|
//** 00101537
|
|
//** CONTROL REPORT 00101637
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00101737
|
|
// DEST=&LDEST.,HOLD=&LHOLD. 00102018
|
|
//** 00110000
|