49 lines
3.8 KiB
COBOL
49 lines
3.8 KiB
COBOL
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
|