giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MP Batchs, copybooks, jcls, Procs

Browse Source
This commit is contained in:
Manoj Patel
2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
JCL/CHGBD800.jcl
View File

@ -38,7 +38,7 @@
/* 00004399
//* 00004499
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.CHG.BD220.RPT.QTR142,DISP=SHR 00005099

4
JCL/DTSACH01.jcl
View File

@ -30,7 +30,7 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599
//* 00001600
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.PROD.ARCHIVE.FY2009.&FYYEAR.,DISP=SHR 00005099
@ -55,7 +55,7 @@
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER RECORDS 00004600
//STEP0200 EXEC PGM=SORT, SORT EMPLOYER RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.DEVL.ARCHIVE.COLLDBT,DISP=SHR 00071099

4
JCL/DTSACHZ1.jcl
View File

@ -29,7 +29,7 @@
//LOADLIBS INCLUDE MEMBER=DTSIXLIB 00001599
//* 00001600
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.PROD.ARCHIVE.FY2009.&FYYEAR.,DISP=SHR 00005099
@ -55,7 +55,7 @@
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER RECORDS 00004600
//STEP0200 EXEC PGM=SORT, SORT EMPLOYER RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR 00005099

2
JCL/DTSBX305.jcl
View File

@ -68,7 +68,7 @@
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
//* 00001700
//********************************************************************
//STEP0075 EXEC PGM=SORT,PARM='VLTEST=0' SORT FTP RECORDS
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR

4
JCL/DTSBX460.jcl
View File

@ -47,7 +47,7 @@
// SPACE=(CYL,(40,10),RLSE), 00038000
// DCB=(RECFM=FB,LRECL=333,BLKSIZE=3330) 00001700
//* 00001700
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 00015000
//STEP0200 EXEC PGM=SORT, 00015000
// COND=(0,NE) 00015000
//SYSOUT DD SYSOUT=(*) 00017000
//SYSPRINT DD SYSOUT=(*) 00018000
@ -69,7 +69,7 @@
/* 00046000
//* THIS SORT STEP ALSO ELIMINATES DUPLICATES 00047000
//* 00047000
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00015000
//STEP0300 EXEC PGM=SORT, 00015000
// COND=(0,NE) 00015000
//SYSOUT DD SYSOUT=(*) 00017000
//SYSPRINT DD SYSOUT=(*) 00018000

6
JCL/DTSBX552.jcl
View File

@ -17,7 +17,7 @@
// DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061000
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
//* 00080000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00090007
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS 00090007
// COND=(0,LT) 00100007
//SYSOUT DD SYSOUT=* 00110007
//* 00120007
@ -35,7 +35,7 @@
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007
//* 00214007
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216009
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216009
// COND=(0,LT) 00217009
//SYSOUT DD SYSOUT=* 00218009
//* 00219009
@ -53,7 +53,7 @@
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009
//* 00360009
//* 00370041
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380041
//STEP0150 EXEC PGM=SORT, SORT TRANSACTIONS 00380041
// COND=(0,LT) 00390041
//SYSOUT DD SYSOUT=* 00400041
//* 00410041

6
JCL/DTSBX553.jcl
View File

@ -17,7 +17,7 @@
// DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061000
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
//* 00080000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00090000
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS 00090000
// COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000
//* 00120000
@ -34,7 +34,7 @@
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00213003
//* 00214000
//* 00215001
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216002
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216002
// COND=(0,LT) 00217002
//SYSOUT DD SYSOUT=* 00218002
//* 00219002
@ -51,7 +51,7 @@
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00350003
//* 00360000
//* 00370005
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380005
//STEP0300 EXEC PGM=SORT, SORT TRANSACTIONS 00380005
// COND=(0,LT) 00390005
//SYSOUT DD SYSOUT=* 00400005
//* 00410005

8
JCL/DTSBX626.jcl
View File

@ -31,7 +31,7 @@
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
@ -50,7 +50,7 @@
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX626),DISP=SHR
//*
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
@ -69,7 +69,7 @@
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX626),DISP=SHR
//*
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
//STEP0300 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
@ -87,7 +87,7 @@
//*
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSS626),DISP=SHR
//*
//STEP0350 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
//STEP0350 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*

4
JCL/DTSBX629.jcl
View File

@ -18,7 +18,7 @@
//* DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061019
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
//* 00080000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00090000
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS 00090000
// COND=(0,LT) 00100000
//SYSOUT DD SYSOUT=* 00110000
//* 00120000
@ -41,7 +41,7 @@
END 00213402
//* 00213502
//* 00214000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216000
//STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216000
// COND=(0,LT) 00217000
//SYSOUT DD SYSOUT=* 00218000
//* 00219000

2
JCL/DTSBXPFL.jcl
View File

@ -24,7 +24,7 @@
//**
//* NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0010 EXEC PGM=SORT,PARM='VLTEST=0' SORT REPORT RECORDS
//STEP0010 EXEC PGM=SORT SORT REPORT RECORDS
//SYSOUT DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR

2
JCL/DTSBZ387.jcl
View File

@ -28,7 +28,7 @@
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//********************************************************************* 00120000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00130000
//STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS 00130000
// COND=(0,LT) 00140000
//SYSOUT DD SYSOUT=* 00150000
//SORTIN DD DSN=DOESTAX.PROD.BE325.RPT(+1),DISP=SHR 325 RPTS 00150199

2
JCL/DTSCHGA1.jcl
View File

@ -92,7 +92,7 @@ ANN, , ,YNNNNN,000000 00190099
//RPC100R3 DD SYSOUT=O 01491099
//** 01520099
//**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 01810000
//STEP0150 EXEC PGM=SORT, 01810000
// COND=(0,LT), 01820000
// REGION=0M 01830000
//SYSOUT DD SYSOUT=* 01840000

2
JCL/DTSCHGE1.jcl
View File

@ -90,7 +90,7 @@ EMP,010105,101508,YNNNNN,143904 00200000
// DEST=&LDEST. 01491200
//** 01520000
//**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 01810000
//STEP0150 EXEC PGM=SORT, 01810000
// COND=(0,LT), 01820000
// REGION=0M 01830000
//SYSOUT DD SYSOUT=* 01840000

2
JCL/DTSCHGRT.jcl
View File

@ -91,7 +91,7 @@ QTR, , ,YYYYYY,000000 00200099
//RPC100R3 DD SYSOUT=0 01491099
//** 01520099
//**** SORT REPORT RECORDS (901/907) 01800000
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 01810000
//STEP0150 EXEC PGM=SORT, 01810000
// COND=(0,LT), 01820000
// REGION=0M 01830000
//SYSOUT DD SYSOUT=* 01840000

11
JCL/DTSGACHD.jcl
View File

@ -29,7 +29,16 @@
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*-----------------------------------------------------
//STEPWF EXEC PGM=FTP,
// PARM='-r TLS safetrans.wellsfargo.com'
//* PARM='-r TLS safetrans.wellsfargo.com'
// PARM='-Sftp=TRUE 10.57.110.160'
//ENVVAR DD *
CLIENT=sftp
SFTP_AUTH=3
/*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//SFTPAUTH DD *
machine 10.57.110.160 user dutasrc pass Today728rc!
/*
//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)

2
JCL/DTSPDAY7.jcl
View File

@ -40,7 +40,7 @@
614
/*
//* SORT REPORT RECORDS
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',
//STEP0200 EXEC PGM=SORT,
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR

2
JCL/DTSPMON1.jcl
View File

@ -92,7 +92,7 @@
332, ,Y
/*
//*********************************************************************
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR

2
JCL/DTSRQ310.jcl
View File

@ -23,7 +23,7 @@
// SPACE=(CYL,(75,15),RLSE),
// DCB=(RECFM=FB,LRECL=17,BLKSIZE=30600)
/*
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT ITM RECORDS
//STEP0200 EXEC PGM=SORT, SORT ITM RECORDS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..WITM.FILE,

2
JCL/DTSRQ328.jcl
View File

@ -18,7 +18,7 @@
//* 00001700
//STEP0100 EXEC DTSUX328
//
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
//STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..BE327.RPT(+0),DISP=SHR 325 RPTS

2
JCL/DTSRQ352.jcl
View File

@ -52,7 +52,7 @@
//STEP0100.RPT991R1 DD HOLD=YES
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
//*
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0',COND=(0,NE) 00015000
//STEP0400 EXEC PGM=SORT, COND=(0,NE) 00015000
//SYSOUT DD SYSOUT=(*) 00017000
//SYSPRINT DD SYSOUT=(*) 00018000
//* 00019000

2
JCL/DTSRQ500.jcl
View File

@ -63,7 +63,7 @@ ANN, , ,YYYYY,000000 00302445
//**** RUN THE EXTRACT 00310000
//STEP0300 EXEC DTSUX500 00320080
//**** SORT REPORT RECORDS 00350000
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', 00360016
//STEP0400 EXEC PGM=SORT, 00360016
// COND=(0,LT) 00370000
//SYSOUT DD SYSOUT=* 00380000
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00390062

2
JCL/DTSRQ517.jcl
View File

@ -51,7 +51,7 @@
//**** SORT REPORT RECORDS 00041600
//STEP0200 EXEC DTSUX517 00004304
//**** SORT REPORT RECORDS 00041600
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041700
//STEP0300 EXEC PGM=SORT, 00041700
// COND=(0,LT) 00041800
//SYSOUT DD SYSOUT=* 00041900
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR 00042000

2
JCL/DTSRQ518.jcl
View File

@ -54,7 +54,7 @@
//**** 00006385
//STEP0200 EXEC DTSUX518 00007075
//**** SORT REPORT RECORDS 00041600
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041700
//STEP0300 EXEC PGM=SORT, 00041700
// COND=(0,LT) 00041800
//SYSOUT DD SYSOUT=* 00041900
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00042000

4
JCL/DTSRQ590.jcl
View File

@ -26,7 +26,7 @@
//*TEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//**** ELIMINATE DUPS FROM SAME FA 00310099
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00310099
//STEP0150 EXEC PGM=SORT, 00310099
// COND=(0,LT) 00320099
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.&LDATAIN..UC30.FISCAGNT.&QTR,
@ -45,7 +45,7 @@
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00470099
//**** 00480099
//**** SORT FA-UC30/RATE(S) DATA 00310099
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 00310099
//STEP0200 EXEC PGM=SORT, 00310099
// COND=(0,LT) 00320099
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=&&FANODUP,DISP=(OLD,PASS,DELETE)

4
JCL/DTSRQ591.jcl
View File

@ -22,7 +22,7 @@
//*TEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//**
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', /* SORT FA-CHG RECORDS 00310099
//STEP0200 EXEC PGM=SORT, /* SORT FA-CHG RECORDS 00310099
// COND=(0,LT) /* ALREADY LOADED IN GDG 00320099
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=DOESTAX.CONV.CHRG.FISCAGNT.&YRQTR.,DISP=SHR
@ -55,7 +55,7 @@
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//**
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00002400
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS 00002400
// COND=(0,LT) 00002500
//SYSOUT DD SYSOUT=* 00002600
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHGBR591.FA.&QTR591.,DISP=SHR 00003006

2
JCL/DTSRQ704.jcl
View File

@ -63,7 +63,7 @@
INFILE (FILEIN)
/*
//*** SORT REPORT RECORDS
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',
//STEP0200 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*

4
JCL/DTSRT300.jcl
View File

@ -18,7 +18,7 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599
//* 00001600
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.CHG.BD220.RPT.&QTRLY.,DISP=SHR 00005099
@ -32,7 +32,7 @@
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00008099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER RECORDS 00004600
//STEP0200 EXEC PGM=SORT, SORT EMPLOYER RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.CHG.EMPL,DISP=SHR 00005099

2
JCL/DTSRX591.jcl
View File

@ -18,7 +18,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00002400
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS 00002400
// COND=(0,LT) 00002500
//SYSOUT DD SYSOUT=* 00002600
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHGBR591.FA.&QTR591.,DISP=SHR 00003006

2
JCL/DTSRZ518.jcl
View File

@ -52,7 +52,7 @@ ANN, , ,YYYYY,000000 00005900
//**** 00006100
//STEP0200 EXEC DTSUX518 00007000
//**** SORT REPORT RECORDS 00041600
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041700
//STEP0300 EXEC PGM=SORT, 00041700
// COND=(0,LT) 00041800
//SYSOUT DD SYSOUT=* 00041900
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00042000

2
JCL/DTSTP590.jcl
View File

@ -15,7 +15,7 @@
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001812
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001912
//**** 00002010
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', /* SRT RPT RECORDS 00002410
//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

14
JCL/DTSVOSQ.jcl
View File

@ -14,7 +14,7 @@
//* THE SORTED NWHIRE FILE MUST PICK UP ALL THE GENERATIONS OF
//* REPORT AND CSESATA. 00014000
//*** 00014000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT NEW HIRE DATA 00015001
//STEP0100 EXEC PGM=SORT, SORT NEW HIRE DATA 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -63,7 +63,7 @@
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050)
//* 00070000
//*** 00014000
//STEP0120 EXEC PGM=SORT,PARM='VLTEST=0', SORT WORKER 00015001
//STEP0120 EXEC PGM=SORT, SORT WORKER 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -86,7 +86,7 @@
SORT FIELDS=(1,15,CH,A) 00048006
/* 00060000
//***** 00070000
//STEP0130 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER 00015001
//STEP0130 EXEC PGM=SORT, SORT EMPLOYER 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -108,7 +108,7 @@
//SYSIN DD * 00047000
SORT FIELDS=(1,15,CH,A) 00048006
/* 00060000
//STEP0140 EXEC PGM=SORT,PARM='VLTEST=0', SORT HIRE TRANSACTIONS 00015001
//STEP0140 EXEC PGM=SORT, SORT HIRE TRANSACTIONS 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -182,7 +182,7 @@
// DCB=(RECFM=FB,LRECL=290,BLKSIZE=29000)
//*
//** 00001700
//STEP0210 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYERS
//STEP0210 EXEC PGM=SORT, SORT EMPLOYERS
// COND=(5,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*
@ -220,7 +220,7 @@
// AMP=('BUFNI=5,BUFND=10')
//***
//** 00001700
//STEP0230 EXEC PGM=SORT,PARM='VLTEST=0', SORT TAX EMPLOYERS
//STEP0230 EXEC PGM=SORT, SORT TAX EMPLOYERS
// COND=(5,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*
@ -304,7 +304,7 @@
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//***
//*
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT ADDRESSES
//STEP0400 EXEC PGM=SORT, SORT ADDRESSES
// COND=(5,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*

14
JCL/DTSVOSW.jcl
View File

@ -14,7 +14,7 @@
//*
//* 00014000
//*** 00014000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT NEW HIRE DATA 00015001
//STEP0100 EXEC PGM=SORT, SORT NEW HIRE DATA 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -61,7 +61,7 @@
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050)
//* 00070000
//*** 00014000
//STEP0120 EXEC PGM=SORT,PARM='VLTEST=0', SORT WORKER 00015001
//STEP0120 EXEC PGM=SORT, SORT WORKER 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -84,7 +84,7 @@
SORT FIELDS=(1,15,CH,A) 00048006
/* 00060000
//***** 00070000
//STEP0130 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER 00015001
//STEP0130 EXEC PGM=SORT, SORT EMPLOYER 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -106,7 +106,7 @@
//SYSIN DD * 00047000
SORT FIELDS=(1,15,CH,A) 00048006
/* 00060000
//STEP0140 EXEC PGM=SORT,PARM='VLTEST=0', SORT HIRE TRANSACTIONS 00015001
//STEP0140 EXEC PGM=SORT, SORT HIRE TRANSACTIONS 00015001
// COND=(0,LT)
//SYSOUT DD SYSOUT=* 00017000
//* 00019000
@ -163,7 +163,7 @@
// SPACE=(29000,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=290,BLKSIZE=29000)
//*
//STEP0160 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYERS
//STEP0160 EXEC PGM=SORT, SORT EMPLOYERS
// COND=(5,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*
@ -200,7 +200,7 @@
// AMP=('BUFNI=5,BUFND=10')
//***
//** 00001700
//STEP0230 EXEC PGM=SORT,PARM='VLTEST=0', SORT TAX EMPLOYERS
//STEP0230 EXEC PGM=SORT, SORT TAX EMPLOYERS
// COND=(5,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*
@ -277,7 +277,7 @@
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
//***
//*
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT ADDRESSES
//STEP0400 EXEC PGM=SORT, SORT ADDRESSES
// COND=(5,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*

2
JCL/DTSZQ517.jcl
View File

@ -37,7 +37,7 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003764
//**** BACKUP BEFORE THIS RUN 00003800
//**** (NOT NEEDED IF RUN RIGHT AFTER A DAILY) 00003931
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041700
//STEP0300 EXEC PGM=SORT, 00041700
// COND=(0,LT) 00041800
//SYSOUT DD SYSOUT=* 00041900
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT.G2873V00,DISP=SHR 00042000

2
JCL/DTSZQ518.jcl
View File

@ -47,7 +47,7 @@
//**** RUN THE EXTRACT 00005160
//STEP0200 EXEC DTSUX518 00006050
//**** SORT REPORT RECORDS 00041600
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041700
//STEP0300 EXEC PGM=SORT, 00041700
// COND=(0,LT) 00041800
//SYSOUT DD SYSOUT=* 00041900
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00042000

2
JCL/DTSZZ503.jcl
View File

@ -41,7 +41,7 @@
//STEP0200 EXEC DTSUX503 00004947
//STEP0100.DTSFBTCO DD DUMMY 00005061
//**** SORT REPORT RECORDS 00041639
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041739
//STEP0300 EXEC PGM=SORT, 00041739
// COND=(0,LT) 00041839
//SYSOUT DD SYSOUT=* 00041939
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00042042

2
JCL/DTSZZ506.jcl
View File

@ -57,7 +57,7 @@ ANN, , ,YYYYYY,000000 00302479
//**** RUN THE EXTRACT 00310000
//STEP0300 EXEC DTSUX506 00320029
//**** SORT REPORT RECORDS 00350000
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', 00360016
//STEP0400 EXEC PGM=SORT, 00360016
// COND=(0,LT) 00370000
//SYSOUT DD SYSOUT=* 00380000
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00390062

2
JCL/RUNRQ551.jcl
View File

@ -86,7 +86,7 @@
//CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR
//CBCTYST DD DSN=DOES.CICS.FIN730.CBCTYST.EX100102,DISP=SHR
//* 00080002
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
//STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS
// COND=(05,LT),
// REGION=0K
//SYSOUT DD SYSOUT=*

4
JCL/RUNRQACH.jcl
View File

@ -17,7 +17,7 @@
//* 00001900
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00002000
//* 00003000
//STEP0105 EXEC PGM=SORT,PARM='VLTEST=0', SORT PAYMENT RECORDS 00004618
//STEP0105 EXEC PGM=SORT, SORT PAYMENT RECORDS 00004618
// COND=(0,LT) 00004718
//SYSOUT DD SYSOUT=* 00004818
//SORTIN DD DSN=DOESTAX.&CPYNODE..&WACHNEW, 00004923
@ -30,7 +30,7 @@
//* 00005722
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(EFTSREC2),DISP=SHR 00006018
//********************************************************************* 00006118
//STEP0110 EXEC PGM=SORT,PARM='VLTEST=0', SORT EFTACH RECORDS 00006215
//STEP0110 EXEC PGM=SORT, SORT EFTACH RECORDS 00006215
// COND=(0,LT) 00006315
//SYSOUT DD SYSOUT=* 00006415
//* 00006522

4
JCL/RUNRZ590.jcl
View File

@ -24,7 +24,7 @@
//**** BKP BEFORE MSTR UPDT 00001700
//* (NOT NEEDED IF RUN IMMEDIATELY 00001700
//* *AFTER* A DAILY) 00001700
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00310099
//STEP0150 EXEC PGM=SORT, 00310099
// COND=(0,LT) 00320099
//SYSOUT DD SYSOUT=* 00330000
//*ORTIN DD DSN=DOESTAX.&LDATAIN..UC30.FISCAGNT.&QTR..G0001V00,
@ -47,7 +47,7 @@
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00470099
//**** 00480099
//**** SORT FA-UC30/RATE(S) DATA 00310099
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 00310099
//STEP0200 EXEC PGM=SORT, 00310099
// COND=(0,LT) 00320099
//SYSOUT DD SYSOUT=* 00330000
//SORTIN DD DSN=&&FANODUP,DISP=(OLD,PASS,DELETE)

41
JCL/TESTSEC.jcl Normal file
View File

@ -0,0 +1,41 @@
//SECPDEC JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTNH1
//*
//********************************************************************
//* SecureZIP Decrypt processing in PGP format *
//* *
//* This JCL Procedure invokes the SecureZIP code to decrypt data *
//* stored in a PGP-format archive. It is not necessary to specify *
//* who will decrypt the data as the software automatically searches *
//* for a matching recipient, which should always be OCTO. *
//* *
//* All of the parameters necessary to make the process work against *
//* a PGP-format archive are stored in the Defaults Module, or in *
//* the SYSIN file. *
//* *
//********************************************************************
//* *
//* Parameters: *
//* *
//* KEYHLQ - The dataset prefix for the PGP-format Keyrings *
//* *
//********************************************************************
//*
//DECRYPT EXEC PGM=PKZIPC
//*STEPLIB DD DISP=SHR,DSN=SYSO.SECZIP.PROD.LOAD
//*
//PUBRING DD DISP=SHR,DSN=SYS3.SECZIP.KEYS.V2.PUBRING
//SECRING DD DISP=SHR,DSN=SYS3.SECZIP.KEYS.V2.SECRING
//*
//SYSIN DD DISP=SHR,DSN=SYS3.SECZIP.PARMS.DECRYPT.TXT
//SYSERR DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//DATAIN DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*

13
JCL/TestCopy.jcl Normal file
View File

@ -0,0 +1,13 @@
//DTSBXTST JOB (UI,4300,3400,T),TESTMSTB,
// CLASS=S,MSGCLASS=X,REGION=0M
//STEP0120 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.PROD.VSAM.MSTB,DISP=SHR,
// AMP=('BUFNI=5,BUFND=30')
//OUTDD01 DD DSN=DOESTAX.PROD.BACKUP.MSTB(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=CART,
// LABEL=(2,SL,,,EXPDT=99000),
// DCB=(RECFM=VB,LRECL=4096,BLKSIZE=32760)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)

20
JCL/VLTEST.jcl Normal file
View File

@ -0,0 +1,20 @@
//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X,
// NOTIFY=ECNTZL1,REGION=0M
//****
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS
// COND=(4,LT)
//SYSOUT DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+0),DISP=SHR
//****
//SORTOUT DD DSN=&&SRTOUT,
// DISP=(,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=0)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR
//****
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)