65 lines
5.1 KiB
COBOL
65 lines
5.1 KiB
COBOL
00001 ***** 04/27/06
|
|
00002 * DTSIT026
|
|
00003 * DTSIT026 ESTABLISH ADJUSTMENT TRANSACTION(S) LV009
|
|
00004 * TRANSACTION RECORD. DTSIT026
|
|
00005 * DTSIT026
|
|
00006 * DTSIT026
|
|
00007 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIT026
|
|
00008 * DTSIT026
|
|
00009 * 10/08/1999 ADDED T026-TOLERANCE. EHH DTSIT026
|
|
00010 * DTSIT026
|
|
00011 ***** DTSIT026
|
|
00012 DTSIT026
|
|
00013 10 T026-LENGTH PIC S9(04) COMP VALUE +128. DTSIT026
|
|
00014 DTSIT026
|
|
00015 10 T026-COMMON-AREA. DTSIT026
|
|
00016 * 15 T026-REC-TYPE PIC X(03) VALUE '026'. DTSIT026
|
|
RCODE 15 T026-REC-TYPE PIC X(03). DTSIT026
|
|
00017 15 T026-EMP-NO PIC S9(07) COMP-3. DTSIT026
|
|
00018 15 T026-ORIGIN PIC X(10). DTSIT026
|
|
00019 15 FILLER REDEFINES T026-ORIGIN. DTSIT026
|
|
00020 20 T026-OP-ID PIC X(08). DTSIT026
|
|
00021 20 T026-SCR-ID PIC X(02). DTSIT026
|
|
00022 15 T026-SYS-DATE PIC S9(09) COMP-3. DTSIT026
|
|
00023 15 T026-SYS-TIME PIC S9(07) COMP-3. DTSIT026
|
|
00024 DTSIT026
|
|
00025 10 T026-DATA-AREA. DTSIT026
|
|
00026 15 T026-TRN-CD PIC X(02). DTSIT026
|
|
00027 88 T026-REIMB-CHG VALUE '01'. DTSIT026
|
|
00028 88 T026-LATE-PEN-CHG VALUE '02'. DTSIT026
|
|
00029 88 T026-LATE-PEN-WAIVE VALUE '03'. DTSIT026
|
|
00030 88 T026-TOLERANCE VALUE '04'. DTSIT026
|
|
00031 88 T026-ADM-ASSESSMNT VALUE '05'. DTSIT026
|
|
00032 DTSIT026
|
|
00033 15 T026-NAME-CHECK PIC X(04). DTSIT026
|
|
00034 DTSIT026
|
|
00035 15 T026-AMT PIC S9(09)V9(02) COMP-3. DTSIT026
|
|
00036 DTSIT026
|
|
00037 15 T026-RECEIVED-DATE PIC S9(09) COMP-3. DTSIT026
|
|
00038 DTSIT026
|
|
00039 15 T026-APPLIC-YRQ PIC S9(05) COMP-3. DTSIT026
|
|
00040 DTSIT026
|
|
00041 15 T026-APPLIC-IND PIC X(02). DTSIT026
|
|
00042 DTSIT026
|
|
00043 15 T026-APPLIC-DOC-NO. DTSIT026
|
|
00044 20 T026-APPLIC-BATCH-NO DTSIT026
|
|
00045 PIC S9(05) COMP-3. DTSIT026
|
|
00046 20 T026-APPLIC-ITEM-NO DTSIT026
|
|
00047 PIC S9(03) COMP-3. DTSIT026
|
|
00048 DTSIT026
|
|
00049 15 T026-DATE-1 PIC S9(09) COMP-3. DTSIT026
|
|
00050 DTSIT026
|
|
00051 15 T026-DATE-2 PIC S9(09) COMP-3. DTSIT026
|
|
00052 DTSIT026
|
|
00053 15 T026-INT-SPAN-IND PIC X(01). DTSIT026
|
|
00054 DTSIT026
|
|
00055 15 T026-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIT026
|
|
00056 88 T026-NO-INT-RATE-88 VALUE -9.9999. DTSIT026
|
|
00057 DTSIT026
|
|
00058 15 T026-RESPONSIBLE-ACTIVITY DTSIT026
|
|
00059 PIC X(03). DTSIT026
|
|
00060 DTSIT026
|
|
00061 15 T026-RESPONSIBLE-OP-ID PIC X(08). DTSIT026
|
|
00062 DTSIT026
|
|
00063 15 FILLER PIC X(48). DTSIT026
|