giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
Copybook/DTSIT026.cpy Normal file
View File

@ -0,0 +1,63 @@
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
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