DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

View File

@ -0,0 +1 @@
ADA

View File

@ -0,0 +1 @@
ADP

View File

@ -0,0 +1 @@
BA

View File

@ -0,0 +1 @@
CER

View File

@ -0,0 +1,23 @@
DEL- 00010024
DOESTAX.PROD.VSAM.CHGM002- 00020027
NOERASE 00030024
00040024
IF LASTCC=8 THEN- 00050024
SET MAXCC=0 00060024
00070024
DEFINE- 00080024
CLUSTER(- 00090024
NAME (DOESTAX.PROD.VSAM.CHGM002)- 00100027
KEY (21,0)- 00110024
RECSZ (64,64)- 00120024
CYL (400,200) - 00130032
FREESPACE (15 10)- 00140024
SHR (2,3)- 00150024
SPEED- 00160024
VOL (*,*,*,*)- 00170031
UNQ) - 00180024
DATA - 00190024
(NAME(DOESTAX.PROD.VSAM.CHGM002.DATA))- 00200027
INDEX - 00210024
(NAME(DOESTAX.PROD.VSAM.CHGM002.INDEX)- 00220027
CISZ(1024)) 00230024

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.CHGM005-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.CHGM005)-
KEYS (31,0)-
RECSZ (41,41)-
CYL (20,5)-
FREESPACE (50 20)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.CHGM005.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.CHGM005.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL- 00010024
DOESTAX.PROD.VSAM.WGHDCA- 00020030
NOERASE 00030024
00040024
IF LASTCC=8 THEN- 00050024
SET MAXCC=0 00060024
00070024
DEFINE- 00080024
CLUSTER(- 00090024
NAME (DOESTAX.PROD.VSAM.WGHDCA)- 00100030
KEY (10,0)- 00110027
RECSZ (20,20)- 00120027
CYL (30,10) - 00130027
FREESPACE (15 10)- 00140024
SHR (2,3)- 00150024
SPEED- 00160024
VOL (DES39O)- 00170024
UNQ) - 00180024
DATA - 00190024
(NAME(DOESTAX.PROD.VSAM.WGHDCA.DATA))- 00200030
INDEX - 00210024
(NAME(DOESTAX.PROD.VSAM.WGHDCA.INDEX)- 00220030
CISZ(1024)) 00230024

View File

@ -0,0 +1,23 @@
DEL- 00010024
DOESTAX.PROD.VSAM.CHGM030- 00020036
NOERASE 00030024
00040024
IF LASTCC=8 THEN- 00050024
SET MAXCC=0 00060024
00070024
DEFINE- 00080024
CLUSTER(- 00090024
NAME (DOESTAX.PROD.VSAM.CHGM030)- 00100036
KEY (16,0)- 00110034
RECSZ (22,22)- 00120034
CYL (300,75) - 00130038
FREESPACE (15 10)- 00140024
SHR (2,3)- 00150024
SPEED- 00160024
VOL (*,*,*,*)- 00170039
UNQ) - 00180024
DATA - 00190024
(NAME(DOESTAX.PROD.VSAM.CHGM030.DATA))- 00200036
INDEX - 00210024
(NAME(DOESTAX.PROD.VSAM.CHGM030.INDEX)- 00220036
CISZ(1024)) 00230024

View File

@ -0,0 +1,16 @@
DEFINE- 00080000
CLUSTER(- 00090000
NAME (DOESTAX.PROD.VSAM.CHGM002)- 00100000
KEY (21,0)- 00110000
RECSZ (64,64)- 00120000
CYL (600,200) - 00130000
FREESPACE (15 10)- 00140000
SHR (2,3)- 00150000
SPEED- 00160000
VOL (*,*,*,*)- 00170000
UNQ) - 00180000
DATA - 00190000
(NAME(DOESTAX.PROD.VSAM.CHGM002.DATA))- 00200000
INDEX - 00210000
(NAME(DOESTAX.PROD.VSAM.CHGM002.INDEX)- 00220000
CISZ(1024)) 00230000

View File

@ -0,0 +1 @@
ANN,070100,063001,YNNNN,000000

View File

@ -0,0 +1 @@
SORT FIELDS=(1,16,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(1,5,CH,A,10,5,CH,A,16,6,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(1,17,CH,A)

View File

@ -0,0 +1,2 @@
SORT FIELDS=(18,9,CH,A,1,3,CH,A,71,2,CH,A)
SUM FIELDS=NONE

View File

@ -0,0 +1 @@
SORT FIELDS=(1,10,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(1,15,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(6,9,CH,A,16,6,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(1,16,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(1,16,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(6,15,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(1,41,CH,A)

View File

@ -0,0 +1,2 @@
SORT FIELDS=(6,15,CH,A)
OMIT COND=(21,1,CH,EQ,C'Y')

Binary file not shown.

View File

@ -0,0 +1 @@
SORT FIELDS=(7,10,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(1,10,CH,A)

View File

@ -0,0 +1 @@
SORT FIELDS=(62,6,CH,A,86,5,CH,A,1,9,CH,A)

View File

@ -0,0 +1,2 @@
SORT FIELDS=(62,6,CH,A,72,9,CH,A,68,4,CH,A,
102,5,CH,A,82,3,CH,A,86,5,CH,A,1,9,CH,A)

View File

@ -0,0 +1,13 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'102',OR,7,3,CH,EQ,C'103',OR,
7,3,CH,EQ,C'105',OR,7,3,CH,EQ,C'108',OR,
7,3,CH,EQ,C'109',OR,7,3,CH,EQ,C'112',OR,
7,3,CH,EQ,C'115',OR,7,3,CH,EQ,C'117',OR,
7,3,CH,EQ,C'131',OR,7,3,CH,EQ,C'309',OR,
7,3,CH,EQ,C'316',OR,7,3,CH,EQ,C'317',OR,
7,3,CH,EQ,C'319',OR,7,3,CH,EQ,C'325',OR,
7,3,CH,EQ,C'415',OR,7,3,CH,EQ,C'433',OR,
7,3,CH,EQ,C'434',OR,7,3,CH,EQ,C'712',OR,
7,3,CH,EQ,C'615',OR,
7,3,CH,EQ,C'726',OR,7,3,CH,EQ,C'903')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'405',OR,7,3,CH,EQ,C'414')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'433')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'117')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'309')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'319')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'325')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'414')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'415')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'417')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'421')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'433')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'451')
END

View File

@ -0,0 +1,3 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(7,3,CH,EQ,C'503')
END

View File

@ -0,0 +1,8 @@
edwftp.ocfo.in.dc.gov
DWSOURCEDATA
DWSOURCE2005
pwd
ascii
PUT 'DOESTAX.PROD.UI.OTR.comp.file(+0)' does_employer_comp.txt
PUT 'DOESTAX.PROD.UI.OTR.trns.file(+0)' does_employer.txt
QUIT

View File

@ -0,0 +1,7 @@
**DTSBX465 20231001 20231231 DCG FED BUS
*** PROGRAM TO BE EXECUTED STARTS IN COL 3 - 10
*** STARTING QTR BEGINS IN COL 13 - 17, ENDING QTR BEGINS COL 19 - 23
***
*** COL 37 - 39 DCG DCGOVERNMENT WAGES
*** COL 41 - 43 FED FEDERAL GOVERNMENT WAGES
*** COL 45 - 47 BUS BUSINESS WAGES

View File

@ -0,0 +1,7 @@
edwftp.ocfo.in.dc.gov
DWSOURCEDATA
DWSOURCE2005
pwd
ascii
PUT 'DOESTAX.PROD.UI.OTR.trns.file(+0)' does_employer.txt
QUIT

View File

@ -0,0 +1,17 @@
ANN, , ,YNNNN,000000
**** ANNUAL CHARGE REPORTING PROCESS FOR RATED EMPLOYERS
*******
**** PARMS FOR CHGBD205:
****ANN,070100,063001,YNNNN,000000
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,13 @@
MNE, , ,YYYYYY,030302
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
MNE, , ,YYYYYY,998888
**** DC GOVERNMENT ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,YYYYY,998888
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
WKE, , ,YYYYYY,998888
**** DC GOVERNMENT ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,YYYYY,998888
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
QTR, , ,YYYYYY,998888
**** DC GOVERNMENT ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,YYYYY,998888
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
EMP,010105,101508,YNNNNN,143904
**** DC GOVERNMENT ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,NNNNY,998888
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
MNE, , ,NNNNNY,998888
**** DC GOVERNMENT ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,NNNNY,998888
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
QTR,010125,033125,YNYYYY,000000
**** DC GOVERNMENT ONLY
*******
**** PARMS FOR CHGBD205:
***, , ,NNNNY,000000 ALL RATED EMPLOYERS
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,16 @@
RPT,010107,033107,NNYYNN,000000
**** CWC AND FEDS ONLY
*******
**** PARMS FOR CHGBD205:
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
QTR,040109,063009,NYYYYY,000000
**** REPORTS ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,NYYYY,000000 REPORTS ONLY
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
TEU, , ,NNNNYN,000000
****TEUC REPORTS ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,NYYYY,000000 REPORTS ONLY
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,17 @@
QTR,010119,033119,NNNNNY,998888
**** DC GOVERNMENT ONLY
*******
**** PARMS FOR CHGBD205:
***,070100,063001,YYYYY,998888
**** COLS. RUN TYPE:
**** 01-03 QTR = QUARTERLY
**** ANN = ANNUAL
**** MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED
**** EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER
**** RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM
**** AGT = RECREATE FISCAL AGENT FILE
**** TEU = REPRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM
****
**** 05-10 MMDDYY = START DATE OF SELECTION
**** 12-17 MMDDYY = END DATE OF SELECTION
****

View File

@ -0,0 +1,23 @@
DEL-
UI.PROD.TEMP.TAXCOPY-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (UI.PROD.TEMP.TAXCOPY)-
KEYS (4,0)-
RECSZ (314,314)-
CYL (50,15)-
FREESPACE (0 0)-
SHR (2,3)-
SPEED-
VOL (DES39Q,DES39M)-
UNQ)-
DATA -
(NAME(UI.PROD.TEMP.TAXCOPY.DATA))-
INDEX -
(NAME(UI.PROD.TEMP.TAXCOPY.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.AIX-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.AIX)-
KEYS (64,0)-
RECSZ (64,64)-
CYL (45,15)-
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39M,DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.AIX.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.AIX.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.ATC-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.ATC)-
KEYS (5,0)-
RECSZ (96,128)-
CYL (10,5)-
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.ATC.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.ATC.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,18 @@
DEL-
DOESTAX.PROD.VSAM.ATH-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.ATH)-
RECSZ (256,256)-
NIXD-
CYL (10,10)-
SHR (2,3)-
VOL (DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.ATH.DATA))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.BTNO-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.BTNO)-
KEYS (5,0)-
RECSZ (10,10)-
CYL (2,1)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.BTNO.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.BTNO.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.ITM-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.ITM)-
KEYS (8,0)-
RECSZ (17,17)-
CYL (25,25)-
FREESPACE (25 15)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.ITM.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.ITM.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTA-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTA)-
KEYS (16,0)-
RECSZ (300,1536)-
CYL (150,50)-
FREESPACE (20 10)-
SHR (2,3)-
SPEED-
VOL (DES39M,DES39Q)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTA.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTA.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTB-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTB)-
KEYS (16,0)-
RECSZ (128,1536)-
CYL (500,200)-
FREESPACE (20 15)-
SHR (2,3)-
SPEED-
VOL (DES39M,DES39O)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTB.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTB.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTC-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTC)-
KEYS (16,0)-
RECSZ (128,1536)-
CYL (225,50)-
FREESPACE (25 20)-
SHR (2,3)-
SPEED-
VOL (DES39M,DES39Q)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTC.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTC.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTD-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTD)-
KEYS (16,0)-
RECSZ (128,1536)-
CYL (400,75)-
FREESPACE (25 20)-
SHR (2,3)-
SPEED-
VOL (DES39M,DES39O)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTD.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTD.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTE-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTE)-
KEYS (24,0)-
RECSZ (64,1024)-
CYL (40,5) -
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTE.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTE.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTF-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTF)-
KEYS (24,0)-
RECSZ (64,1024)-
CYL (40,5) -
FREESPACE (30 15)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTF.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTF.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTG-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTG)-
KEYS (24,0)-
RECSZ (64,1024)-
CYL (40,5) -
FREESPACE (25 15)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTG.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTG.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTH-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTH)-
KEYS (16,0)-
RECSZ (128,1536)-
CYL (400,100) -
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39Z,DES39Q)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTH.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTH.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTI-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTI)-
KEYS (16,0)-
RECSZ (128,1536)-
CYL (425,100) -
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39Q,DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTI.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTI.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.MSTJ-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.MSTJ)-
KEYS (16,0)-
RECSZ (64,1536)-
CYL (100,50) -
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39Q,DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.MSTJ.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.MSTJ.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WAGE.NAME-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WAGE.NAME)-
KEYS (13,0)-
RECSZ (51,51)-
CYL (225,50)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P,DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WAGE.NAME.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WAGE.NAME.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.NAIC-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.NAIC)-
KEYS (6,0)-
RECSZ (80,80)-
CYL (10,5)-
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39Q)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.NAIC.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.NAIC.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,18 @@
DEL-
DOESTAX.PROD.VSAM.OLA-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE -
CLUSTER ( -
NAME (DOESTAX.PROD.VSAM.OLA) -
RECSZ (128 4089) -
NIXD -
CYL (2,1) -
SHR (2,3) -
VOL (DES39M) -
UNQ)-
DATA ( -
NAME (DOESTAX.PROD.VSAM.OLA.DATA))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.REF-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.REF)-
KEYS (16,0)-
RECSZ (128,768)-
CYL (5,5)-
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.REF.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.REF.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WG2-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WG2)-
KEYS (13,0)-
RECSZ (37,37)-
CYL (50,50)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P,DES39O)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WG2.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WG2.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WGH-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WGH)-
KEYS (12,0)-
RECSZ (18,18)-
CYL (300,50)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P,DES39O)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WGH.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WGH.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WGX-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WGX)-
KEYS (17,0)-
RECSZ (24,24)-
CYL (75,5)-
FREESPACE (25 15)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WGX.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WGX.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WRK-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WRK)-
KEYS (32,0)-
RECSZ (512,2024)-
CYL (5,5)-
FREESPACE (15 10)-
SHR (2,3)-
SPEED-
VOL (DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WRK.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WRK.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WESQ-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WESQ)-
KEYS (12,0)-
RECSZ (25,25)-
CYL (100,25)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P,DES39Q)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WESQ.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WESQ.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WTC-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WTC)-
KEYS (9,0)-
RECSZ (128,128)-
CYL (100,15)-
FREESPACE (20 15)-
SHR (2,3)-
SPEED-
VOL (DES39P,DES39M)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WTC.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WTC.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WTX-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WTX)-
KEYS (9,0)-
RECSZ (128,128)-
CYL (5,5)-
FREESPACE (20 15)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WTX.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WTX.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.WYTD-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.WYTD)-
KEYS (12,0)-
RECSZ (47,47)-
CYL (55,20)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.WYTD.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.WYTD.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.TAXWGH-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.TAXWGH)-
KEYS (12,0)-
RECSZ (23,23)-
CYL (300,50)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P,DES39O)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.TAXWGH.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.TAXWGH.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,23 @@
DEL-
DOESTAX.PROD.VSAM.TAXWESQ-
NOERASE
IF LASTCC=8 THEN-
SET MAXCC=0
DEFINE-
CLUSTER(-
NAME (DOESTAX.PROD.VSAM.TAXWESQ)-
KEYS (12,0)-
RECSZ (25,25)-
CYL (100,25)-
FREESPACE (10 10)-
SHR (2,3)-
SPEED-
VOL (DES39P,DES39Q)-
UNQ)-
DATA -
(NAME(DOESTAX.PROD.VSAM.TAXWESQ.DATA))-
INDEX -
(NAME(DOESTAX.PROD.VSAM.TAXWESQ.INDEX)-
CISZ(1024))

View File

@ -0,0 +1,12 @@
10.87.72.48
trwftp
redskins
cd /trwFTP
pwd
ascii
PUT 'DOESTAX.PROD.sdds.wage' dutas_sdds_Wage.txt
PUT 'DOESTAX.PROD.sdds.TAX' dutas_sdds_tax.txt
PUT 'DOESTAX.PROD.sdds.CONTACT' dutas_sdds_contact.txt
PUT 'DOESTAX.PROD.sdds.SUTAEMP' dutas_sdds_sutaemp.txt
PUT 'DOESTAX.PROD.sdds.predsucc' dutas_sdds_predsucc.txt
QUIT

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'ADA')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'ADP')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'BA ')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'CER')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'FE ')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'HE ')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'HO ')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'HO ')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'PAI')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'PB ')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'PC ')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'PER')

View File

@ -0,0 +1,2 @@
SORT FIELDS=(7,64,CH,A)
INCLUDE COND=(11,3,CH,EQ,C'PP ')

Some files were not shown because too many files have changed in this diff Show More