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

52
Copybook/DTSIT031.cpy Normal file
View File

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