53 lines
4.1 KiB
COBOL
53 lines
4.1 KiB
COBOL
00001 ***** 01/29/02
|
|
00002 * DTSIR109
|
|
00003 * DTSIR109 EMPLOYER REGISTRATION NOTICE OF MISSING LV007
|
|
00004 * WAGE REPORTS REPORT RECORD. DTSIR109
|
|
00005 * DTSIR109
|
|
00006 * NOTE: R109-YRQ SHOULD BE IN ASCENDING YRQ SEQUENCE. DTSIR109
|
|
00007 * THE PRINT MODULE WILL NEED TO FORMAT THEM DTSIR109
|
|
00008 * SO THE YEARS ARE DISPLAYED IN DESCENDING ORDER. DTSIR109
|
|
00009 * DTSIR109
|
|
00010 * IF R109-WAIVE-START-YRQ = ZEROES DTSIR109
|
|
00011 * PRINT NO QUARTER WAIVEMENT MESSAGE DTSIR109
|
|
00012 * ELSE DTSIR109
|
|
00013 * IF R109-WAIVE-START-YRQ = R109-WAIVE-END-YRQ DTSIR109
|
|
00014 * PRINT SINGLE QUARTER WAIVEMENT MESSAGE DTSIR109
|
|
00015 * ELSE DTSIR109
|
|
00016 * PRINT MULTIPLE QUARTER WAIVEMENT MESSAGE. DTSIR109
|
|
00017 * DTSIR109
|
|
00018 * MODIFIED 11/09/1998 D.SHEPPERSON DTSIR109
|
|
00019 * CHANGE ALL REFERENCE TO "ABATE" TO "WAIVE". DTSIR109
|
|
00020 * DTSIR109
|
|
00021 * 11/01/2001 MODIFIED FOR HOUSEHOLD. GD. DTSIR109
|
|
00022 * DTSIR109
|
|
00023 ***** DTSIR109
|
|
00024 DTSIR109
|
|
00025 10 R109-LENGTH PIC S9(04) COMP. DTSIR109
|
|
00026 DTSIR109
|
|
00027 10 R109-SORT-AREA. DTSIR109
|
|
00028 15 R109-REC-TYPE PIC X(03) VALUE '109'. DTSIR109
|
|
00029 15 R109-OP-ID PIC X(08). DTSIR109
|
|
00030 15 R109-EMP-NO PIC S9(07) COMP-3. DTSIR109
|
|
00031 15 R109-FLD-REP-ID PIC X(02). DTSIR109
|
|
00032 DTSIR109
|
|
00033 10 R109-DATA-AREA. DTSIR109
|
|
00034 15 R109-RPT-TYPE PIC X(01). DTSIR109
|
|
00035 88 R109-RPT-QUARTERLY-88 VALUE 'Q'. DTSIR109
|
|
00036 88 R109-RPT-ANNUAL-88 VALUE 'A'. DTSIR109
|
|
00037 15 R109-LIAB-DATE PIC S9(09) COMP-3. DTSIR109
|
|
00038 15 R109-MAIL-DATE PIC S9(09) COMP-3. DTSIR109
|
|
00039 15 R109-FMT-ADDR. DTSIR109
|
|
00040 20 R109-FMT-LINE OCCURS 5 TIMES DTSIR109
|
|
00041 INDEXED BY R109-FMT-IDX DTSIR109
|
|
00042 PIC X(40). DTSIR109
|
|
00043 15 R109-ZIP PIC X(10). DTSIR109
|
|
00044 15 R109-ADVANCE-BARCODE PIC X(14). DTSIR109
|
|
00045 15 R109-YRQ-CNT PIC S9(04) COMP. DTSIR109
|
|
00046 15 R109-YRQ OCCURS 24 TIMES DTSIR109
|
|
00047 PIC S9(05) COMP-3. DTSIR109
|
|
00048 15 R109-WAIVE-AREA. DTSIR109
|
|
00049 20 R109-WAIVE-START-YRQ DTSIR109
|
|
00050 PIC S9(05) COMP-3. DTSIR109
|
|
00051 20 R109-WAIVE-END-YRQ PIC S9(05) COMP-3. DTSIR109
|
|
00052 20 R109-WAIVE-DATE PIC S9(09) COMP-3. DTSIR109
|