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

31
Copybook/DTSIR502.cpy Normal file
View File

@ -0,0 +1,31 @@
00001 ***** 06/28/99
00002 * DTSIR502
00003 * DTSIR502 RATE DISCREPANCY LIST LV004
00004 * REPORT RECORD. DTSIR502
00005 * (IF THERE ARE NONE OF THESE REPORT RECORDS, DTSIR502
00006 * NEED TO GENERATE THE REPORT ANYWAY WITH THE DTSIR502
00007 * MESSAGE "NO DISCREPANCIES FOUND") DTSIR502
00008 * DTSIR502
00009 * CL**2
00010 * 01/16/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00011 * CL**2
00012 ***** DTSIR502
00013 CL**2
00014 10 R502-LENGTH PIC S9(04) COMP VALUE +159. CL**3
00015 CL**2
00016 10 R502-SORT-AREA. DTSIR502
00017 15 R502-REC-TYPE PIC X(03) VALUE '502'. DTSIR502
00018 15 R502-MSG-IDENTIFIER PIC X(04). DTSIR502
00019 15 R502-EMP-NO PIC S9(07) COMP-3. DTSIR502
00020 15 R502-EFFECTIVE-QTR PIC S9(05) COMP-3. DTSIR502
00021 CL**2
00022 10 R502-DATA-AREA. DTSIR502
00023 15 R502-PRIMARY-NAME PIC X(40). CL**2
00024 *************15 R502-NEW-SIC-DIVISION PIC X(01). CL**2
00025 *************15 R502-RATE-TYPE PIC X(01). CL**2
00026 15 R502-RATE PIC S9(01)V9(04) COMP-3. DTSIR502
00027 88 R502-NO-RATE-88 VALUE -9.9999. DTSIR502
00028 15 R502-MSG-TEXT. DTSIR502
00029 20 R502-MSG-TEXT-1 PIC X(50). DTSIR502
00030 20 R502-MSG-TEXT-2 PIC X(50). DTSIR502
00031 10 FILLER PIC X(91). CL**4