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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

54
Copybook/DTSIR737.cpy Normal file
View File

@ -0,0 +1,54 @@
00001 ***** 03/02/99
00002 * REVIEWED BY D.SHEPPERSON 03/02/99 DTSIR737
00003 * LV003
00004 * DTSIR737 WAGE FILE / TAX FILE COMPARISON REPORT RECORD. CL**2
00005 * DTSIR737
00006 * CL**2
00007 * 02/13/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00008 * CL**2
00009 ***** DTSIR737
00010 DTSIR737
00011 10 R737-LENGTH PIC S9(04) COMP. CL**2
00012 DTSIR737
00013 10 R737-SORT-AREA. DTSIR737
00014 15 R737-REC-TYPE PIC X(03) VALUE '737'. DTSIR737
00015 15 R737-TOL-GROUP-IND DTSIR737
00016 PIC X(01). DTSIR737
00017 15 R737-TOL-GROUP-IND-NUM DTSIR737
00018 REDEFINES R737-TOL-GROUP-IND DTSIR737
00019 PIC 9(01). DTSIR737
00020 15 R737-EMP-NO PIC S9(07) COMP-3. DTSIR737
00021 DTSIR737
00022 10 R737-DATA-AREA. DTSIR737
00023 15 R737-TOL-MIN-AMT PIC S9(11)V9(02) COMP-3.DTSIR737
00024 15 R737-TOL-MAX-AMT PIC S9(11)V9(02) COMP-3.DTSIR737
00025 88 R737-TOL-MAX-BLANK-88 DTSIR737
00026 VALUE +99999999999.99. DTSIR737
00027 DTSIR737
00028 15 R737-PRIMARY-NAME PIC X(40). CL**2
00029 DTSIR737
00030 15 R737-ADDRESS. DTSIR737
00031 20 R737-ATTN-LINE PIC X(40). DTSIR737
00032 20 R737-DELIV-LINE-1 PIC X(40). CL**2
00033 20 R737-DELIV-LINE-2 PIC X(40). CL**2
00034 20 R737-CITY PIC X(25). DTSIR737
00035 20 R737-ST PIC X(02). DTSIR737
00036 20 R737-ZIP PIC X(10). DTSIR737
00037 20 R737-ADVANCED-BARCODE CL**2
00038 PIC X(14). CL**2
00039 CL**2
00040 15 R737-YRQ-CNT PIC S9(04) COMP. DTSIR737
00041 DTSIR737
00042 15 R737-YRQ-AREA OCCURS 4 TIMES DTSIR737
00043 INDEXED BY R737-YRQ-IDX. DTSIR737
00044 20 R737-YRQ PIC S9(05) COMP-3.DTSIR737
00045 20 R737-TOT-FROM-DTS PIC S9(11)V9(02) COMP-3. CL**2
00046 20 R737-TOT-FROM-WAGE PIC S9(11)V9(02) COMP-3.DTSIR737
00047 20 R737-TOT-DIFFERENCE-IND DTSIR737
00048 PIC X(02). DTSIR737
00049 20 R737-TAX-FROM-DTS PIC S9(11)V9(02) COMP-3. CL**2
00050 20 R737-TAX-FROM-WAGE PIC S9(11)V9(02) COMP-3.DTSIR737
00051 20 R737-TAX-DIFFERENCE-IND DTSIR737
00052 PIC X(02). DTSIR737
00053 20 R737-BATCH-NO PIC S9(05) COMP-3.DTSIR737
00054 20 R737-UI-RATE PIC S9(01)V9(04) COMP-3.DTSIR737