55 lines
4.3 KiB
COBOL
55 lines
4.3 KiB
COBOL
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
|