30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 10/27/98
|
|
00002 * DTSIR108
|
|
00003 * DTSIR108 EMPLOYER REGISTRATION NOT LIABLE LETTER LV006
|
|
00004 * REPORT RECORD. DTSIR108
|
|
00005 * DTSIR108
|
|
00006 * CL**5
|
|
00007 * 10/27/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**5
|
|
00008 * CL**5
|
|
00009 ***** DTSIR108
|
|
00010 CL**3
|
|
00011 10 R108-LENGTH PIC S9(04) COMP. CL**3
|
|
00012 CL**3
|
|
00013 10 R108-SORT-AREA. DTSIR108
|
|
00014 15 R108-REC-TYPE PIC X(03) VALUE '108'. DTSIR108
|
|
00015 15 R108-OP-ID PIC X(08). DTSIR108
|
|
00016 15 R108-LETTER-TYPE PIC X(01). DTSIR108
|
|
00017 88 R108-REGULAR-88 VALUE 'R'. CL**6
|
|
00018 88 R108-CHURCH-88 VALUE 'C'. CL**4
|
|
00019 88 R108-DOMESTIC-88 VALUE 'D'. CL**4
|
|
00020 15 R108-EMP-NO PIC S9(07) COMP-3. DTSIR108
|
|
00021 CL**3
|
|
00022 10 R108-DATA-AREA. DTSIR108
|
|
00023 15 R108-MAIL-DATE PIC S9(09) COMP-3. DTSIR108
|
|
00024 15 R108-FMT-ADDR. DTSIR108
|
|
00025 20 R108-FMT-LINE OCCURS 5 TIMES DTSIR108
|
|
00026 INDEXED BY R108-FMT-IDX DTSIR108
|
|
00027 PIC X(40). DTSIR108
|
|
00028 15 R108-ZIP PIC X(10). DTSIR108
|
|
00029 15 R108-ADVANCED-BARCODE PIC X(14). CL**4
|