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

48
Copybook/DTSIL031.cpy Normal file
View File

@ -0,0 +1,48 @@
00001 ***** 06/19/13
00002 * DTSIL031
00003 * DTSIL031 EMPLOYER REGISTRATION CODES EDIT/DESCRIPTION LV005
00004 * MODULE LINKAGE. DTSIL031
00005 * DTSIL031
00006 * 04/29/2013 ADDED SUTA DUMPING CODE (MREL RECORD) GD DTSIL031
00007 * DTSIL031
00008 ***** DTSIL031
00009 SKIP1 DTSIL031
00010 10 L031-LENGTH PIC S9(04) COMP VALUE +64. DTSIL031
00011 SKIP1 DTSIL031
00012 10 L031-OPTION PIC S9(04) COMP. DTSIL031
00013 88 L031-MPRF-EMP-CLASS VALUE +01. DTSIL031
00014 88 L031-MPRF-EMP-STATUS VALUE +02. DTSIL031
00015 88 L031-MPRF-ELIGIBLE-CD VALUE +03. DTSIL031
00016 88 L031-MPRF-ORG-TYPE VALUE +04. DTSIL031
00017 88 L031-MPRF-FISCAL-AGENT-CD VALUE +05. DTSIL031
00018 88 L031-MERA-SOURCE-CD VALUE +10. DTSIL031
00019 88 L031-MERA-STATUS-CD VALUE +11. DTSIL031
00020 88 L031-MERA-LETTER-1-CD VALUE +12. DTSIL031
00021 88 L031-MREL-RELATIONSHIP-CD VALUE +17. DTSIL031
00022 88 L031-MREL-SUTA-DUMPING-CD VALUE +18. DTSIL031
00023 88 L031-MSOL-LIAB-CD VALUE +22. DTSIL031
00024 88 L031-MSOL-INACT-CD VALUE +23. DTSIL031
00025 SKIP1 DTSIL031
00026 10 L031-RESULT-IND PIC X(01). DTSIL031
00027 88 L031-VALID VALUE '1'. DTSIL031
00028 88 L031-NOT-VALID VALUE '2'. DTSIL031
00029 SKIP1 DTSIL031
00030 10 L031-CD PIC X(05). DTSIL031
00031 10 FILLER REDEFINES L031-CD. DTSIL031
00032 15 L031-CD-1 PIC X(01). DTSIL031
00033 15 FILLER PIC X(04). DTSIL031
00034 10 FILLER REDEFINES L031-CD. DTSIL031
00035 15 L031-CD-2 PIC X(02). DTSIL031
00036 15 FILLER PIC X(03). DTSIL031
00037 10 FILLER REDEFINES L031-CD. DTSIL031
00038 15 L031-CD-3 PIC X(03). DTSIL031
00039 15 FILLER PIC X(02). DTSIL031
00040 10 FILLER REDEFINES L031-CD. DTSIL031
00041 15 L031-CD-4 PIC X(04). DTSIL031
00042 15 FILLER PIC X(01). DTSIL031
00043 10 L031-CD-5 REDEFINES L031-CD PIC X(05). DTSIL031
00044 SKIP1 DTSIL031
00045 10 L031-SHORT-DSCR PIC X(10). DTSIL031
00046 10 L031-LONG-DSCR PIC X(40). DTSIL031
00047 SKIP1 DTSIL031
00048 10 FILLER PIC X(04). DTSIL031