00001 ***** 08/08/12 00002 * DTSIT031 00003 * DTSIT031 AUTOMATIC QUARTER PROCESSING TRANSACTION RECORD. LV006 00004 * DTSIT031 00005 * DTSIT031 00006 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIT031 00007 * 06/07/2010 ADD T031-TRANSFER-WAGE-IND GD DTSIT031 00008 * USED IN SCREEN 24 WHEN AN ACCOUNT DTSIT031 00009 * NUMBER IS CHANGED, AND WHEN REPORTS DTSIT031 00010 * ARE WITHDRAWN, AND USER REQUESTS THATDTSIT031 00011 * THE REPORT BE TRANSFERRED. DTSIT031 00012 * DTSIT031 00013 ***** DTSIT031 00014 DTSIT031 00015 10 T031-LENGTH PIC S9(04) COMP. DTSIT031 00016 DTSIT031 00017 10 T031-COMMON-AREA. DTSIT031 00018 * 15 T031-REC-TYPE PIC X(03) VALUE '031'. DTSIT031 RCODE 15 T031-REC-TYPE PIC X(03). DTSIT031 00019 15 T031-EMP-NO PIC S9(07) COMP-3. DTSIT031 00020 15 T031-ORIGIN PIC X(10). DTSIT031 00021 15 FILLER REDEFINES T031-ORIGIN. DTSIT031 00022 20 T031-OP-ID PIC X(08). DTSIT031 00023 20 T031-SCR-ID PIC X(02). DTSIT031 00024 15 T031-SYS-DATE PIC S9(09) COMP-3. DTSIT031 00025 15 T031-SYS-TIME PIC S9(07) COMP-3. DTSIT031 00026 DTSIT031 00027 10 T031-DATA-AREA. DTSIT031 00028 15 T031-TRN-CD PIC X(02). DTSIT031 00029 88 T031-AUTO-PROCESS VALUE '01'. DTSIT031 00030 88 T031-WAGE-TRNSFR-ONLY VALUE '02'. DTSIT031 00031 DTSIT031 00032 15 T031-START-YRQ PIC S9(05) COMP-3. DTSIT031 00033 DTSIT031 00034 15 T031-END-YRQ PIC S9(05) COMP-3. DTSIT031 00035 DTSIT031 00036 15 T031-WAIVER-START-YRQ PIC S9(05) COMP-3. DTSIT031 00037 DTSIT031 00038 15 T031-WAIVER-END-YRQ PIC S9(05) COMP-3. DTSIT031 00039 DTSIT031 00040 15 T031-WAIVER-EXT-DATE PIC S9(09) COMP-3. DTSIT031 00041 DTSIT031 00042 15 T031-TRANSFER-IND PIC X(01). DTSIT031 00043 88 T031-TRANSFER-YES-88 VALUE 'Y'. DTSIT031 00044 88 T031-TRANSFER-NO-88 VALUE 'N'. DTSIT031 00045 DTSIT031 00046 15 T031-TRANSFER-TO-EMP-NO PIC S9(07) COMP-3. DTSIT031 00047 DTSIT031 00048 15 T031-TRANSFER-WAGE-IND PIC X(01). DTSIT031 00049 88 T031-TRANSFER-WAGE-YES-88 VALUE 'Y'. DTSIT031 00050 88 T031-TRANSFER-WAGE-NO-88 VALUE 'N'. DTSIT031 00051 DTSIT031 00052 15 FILLER PIC X(43). DTSIT031