00001 ***** 08/27/99 00002 * DTSIT036 00003 * DTSIT036 PRINT UC 30 AND NOTICE OF MISSING WAGE AND LV005 00004 * CONTRIBUTION REPORT (R109) TRANSACTION RECORD. CL**3 00005 * CL**3 00006 * CL**2 00007 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00008 * CL**2 00009 ***** DTSIT036 00010 CL**2 00011 10 T036-LENGTH PIC S9(04) COMP. CL**2 00012 CL**2 00013 10 T036-COMMON-AREA. DTSIT036 00014 * 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036 RCODE 15 T036-REC-TYPE PIC X(03). DTSIT036 00015 15 T036-EMP-NO PIC S9(07) COMP-3. DTSIT036 00016 15 T036-ORIGIN PIC X(10). DTSIT036 00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036 00018 20 T036-OP-ID PIC X(08). DTSIT036 00019 20 T036-SCR-ID PIC X(02). DTSIT036 00020 15 T036-SYS-DATE PIC S9(09) COMP-3. DTSIT036 00021 15 T036-SYS-TIME PIC S9(07) COMP-3. DTSIT036 00022 CL**2 00023 10 T036-DATA-AREA. DTSIT036 00024 15 T036-TRN-CD PIC X(02). DTSIT036 00025 88 T036-LIAB-DETER VALUE '01'. DTSIT036 00026 88 T036-REQUEST VALUE '02'. DTSIT036 00027 88 T036-INACTIVATION VALUE '03'. DTSIT036 00028 CL**2 00029 15 T036-RESP-OP-ID PIC X(08). DTSIT036 00030 CL**2 00031 15 T036-START-YRQ PIC S9(05) COMP-3. DTSIT036 00032 CL**2 00033 15 T036-END-YRQ PIC S9(05) COMP-3. DTSIT036 00034 CL**2 00035 15 T036-FORCE-PRINT-IND PIC X(01). DTSIT036 00036 88 T036-FORCE-PRINT VALUE 'Y'. DTSIT036 00037 88 T036-NO-FORCE-PRINT VALUE 'N'. DTSIT036 00038 CL**2 00039 15 T036-WAIVER-START-YRQ PIC S9(05) COMP-3. CL**2 00040 CL**2 00041 15 T036-WAIVER-END-YRQ PIC S9(05) COMP-3. CL**2 00042 CL**2 00043 15 T036-WAIVER-EXT-DATE PIC S9(09) COMP-3. CL**2 00044 CL**2 00045 15 T036-ADDR-TYPE PIC X(01). DTSIT036 00046 88 T036-TAX-ADDR-88 VALUE 'T'. CL**5 00047 88 T036-TAA-ADDR-88 VALUE 'A'. DTSIT036 00048 88 T036-OPO-ADDR-88 VALUE 'O'. DTSIT036 00049 88 T036-PHY-ADDR-88 VALUE 'P'. CL**4 00050 CL**2 00051 15 T036-ADDR-ESTB-ABSTIME PIC S9(15) COMP-3. CL**3 00052 CL**2 00053 15 FILLER PIC X(31). CL**3