31 lines
2.4 KiB
COBOL
31 lines
2.4 KiB
COBOL
00001 ***** 12/13/19
|
|
00002 * DTSIR117
|
|
00003 * DTSIR117 EMPLOYER REGISTRATION INACTIVATION LETTER LV006
|
|
00004 * REPORT RECORD. DTSIR117
|
|
00005 * DTSIR117
|
|
00006 * CL**5
|
|
00007 * 06/02/1999 ADDED R117-8ZEROWAGE-88. EHH CL**5
|
|
00008 * CL**5
|
|
00009 ***** DTSIR117
|
|
00010 CL**3
|
|
00011 10 R117-LENGTH PIC S9(04) COMP. CL**3
|
|
00012 CL**3
|
|
00013 10 R117-SORT-AREA. DTSIR117
|
|
00014 15 R117-REC-TYPE PIC X(03) VALUE '117'. DTSIR117
|
|
00015 15 R117-OP-ID PIC X(08). DTSIR117
|
|
00016 15 R117-LETTER-TYPE PIC X(01). DTSIR117
|
|
00017 88 R117-GENERIC-88 VALUE '1'. DTSIR117
|
|
00018 88 R117-DEMAND-88 VALUE '2'. DTSIR117
|
|
00019 88 R117-8ZEROWAGE-88 VALUE '3'. CL**5
|
|
00020 15 R117-EMP-NO PIC S9(07) COMP-3. DTSIR117
|
|
00021 CL**3
|
|
00022 10 R117-DATA-AREA. DTSIR117
|
|
00023 15 R117-MAIL-DATE PIC S9(09) COMP-3. DTSIR117
|
|
00024 15 R117-FMT-ADDR. DTSIR117
|
|
00025 20 R117-FMT-LINE OCCURS 5 TIMES DTSIR117
|
|
00026 INDEXED BY R117-FMT-IDX DTSIR117
|
|
00027 PIC X(40). DTSIR117
|
|
00028 15 R117-ZIP PIC X(10). DTSIR117
|
|
00029 15 R117-ADVANCED-BARCODE PIC X(14). CL**3
|
|
00030 10 R117-INACT-DATE PIC S9(09) COMP-3. CL**6
|