53 lines
4.1 KiB
COBOL
53 lines
4.1 KiB
COBOL
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
|
|
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
|