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