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

28
Copybook/DTSIR507.cpy Normal file
View File

@ -0,0 +1,28 @@
00001 ***** 04/01/99
00002 * DTSIR507
00003 * DTSIR507 RATE EXPERIENCE CUTOFF ERROR REPORT RECORD. LV002
00004 * (IF THERE ARE NONE OF THESE REPORT RECORDS, DTSIR507
00005 * NEED TO GENERATE THE REPORT ANYWAY WITH THE CL**2
00006 * MESSAGE "NO ERRORS FOUND") CL**2
00007 * DTSIR507
00008 * CL**2
00009 * 04/01/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00010 * CL**2
00011 ***** DTSIR507
00012 CL**2
00013 10 R507-LENGTH PIC S9(04) COMP. CL**2
00014 CL**2
00015 10 R507-SORT-AREA. DTSIR507
00016 15 R507-REC-TYPE PIC X(03). CL**2
00017 15 R507-MSG-IDENTIFIER PIC X(04). DTSIR507
00018 15 R507-SUCC-EMP-NO PIC S9(07) COMP-3. DTSIR507
00019 CL**2
00020 10 R507-DATA-AREA. DTSIR507
00021 15 R507-EXP-CUTOFF-DATE PIC S9(09) COMP-3. DTSIR507
00022 15 R507-EFF-QTR PIC S9(05) COMP-3. DTSIR507
00023 15 R507-SUCC-PRIMARY-NAME PIC X(40). CL**2
00024 15 R507-PRED-EMP-NO PIC S9(07) COMP-3. DTSIR507
00025 15 R507-PRED-PRIMARY-NAME PIC X(40). CL**2
00026 15 R507-MSG-TEXT. DTSIR507
00027 20 R507-MSG-TEXT-1 PIC X(50). DTSIR507
00028 20 R507-MSG-TEXT-2 PIC X(50). DTSIR507