00001 ***** 02/26/08 00002 * DTSIR128 00003 * DTSIR128 AUTOMATED EMPLOYER REGISTRATION REPORT RECORD. LV001 00004 * DTSIR128 00005 * NOTE: ON THIS REPORT THERE WILL OFTEN BE MULTIPLE REPORT DTSIR128 00006 * TYPES (EACH IN A DIFFERENT CATEGORY) FOR THE SAME DTSIR128 00007 * EMPLOYER. DTSIR128 00008 * DTSIR128 00009 * 06/21/2005 INITIAL DEVELOPMENT GD DTSIR128 00010 * DTSIR128 00011 ***** DTSIR128 00012 SKIP1 DTSIR128 00013 10 R128-LENGTH PIC S9(04) COMP. DTSIR128 00014 SKIP1 DTSIR128 00015 10 R128-SORT-AREA. DTSIR128 00016 15 R128-REC-TYPE PIC X(03). DTSIR128 00017 15 R128-CATEGORY PIC X(01). DTSIR128 00018 88 R128-PENDING-DETERM-88 VALUE '1'. DTSIR128 00019 88 R128-LIAB-UPDATE-88 VALUE '2'. DTSIR128 00020 88 R128-EMP-UPDATE-88 VALUE '3'. DTSIR128 00021 88 R128-LIAB-ENTERED-NEW-88 VALUE '4'. DTSIR128 00022 SKIP1 DTSIR128 00023 15 R128-EMP-NO PIC S9(07) COMP-3. DTSIR128 00024 SKIP1 DTSIR128 00025 10 R128-DATA-AREA. DTSIR128 00026 15 R128-SOURCE PIC X(02). DTSIR128 00027 88 R128-SOURCE-UC30-SYS-88 VALUE '15'. DTSIR128 00028 88 R128-SOURCE-FISC-AGNT-88 VALUE '16'. DTSIR128 00029 88 R128-SOURCE-WEB-88 VALUE DTSIR128 00030 '17' THRU '19'. DTSIR128 00031 15 R128-LIAB-PRIMARY-NAME PIC X(40). DTSIR128 00032 15 R128-ESTB-DATE PIC S9(09) COMP-3. DTSIR128 00033 15 FILLER PIC X(32). DTSIR128