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

77
Copybook/DTSIMAUR.cpy Normal file
View File

@ -0,0 +1,77 @@
00001 ***** 02/23/00
00002 * DTSIMAUR
00003 * DTSIMAUR MASTER FILE 'AUDIT RESULTS' RECORD DEFINITION LV003
00004 * DTSIMAUR
00005 * CL**2
00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00007 * CL**3
00008 * 02/23/2000 ADDED MAUR-INDCON-TO-EMPL-CNT, CL**3
00009 * REPLACING THREE BYTES OF FILLER. EHH CL**3
00010 * CL**3
00011 ***** DTSIMAUR
00012 CL**2
00013 10 MAUR-KEY-AREA. DTSIMAUR
00014 15 MAUR-EMP-NO PIC S9(07) COMP-3. DTSIMAUR
00015 15 MAUR-REC-TYPE PIC S9(04) COMP. DTSIMAUR
00016 88 MAUR-AUR-88 VALUE +27. DTSIMAUR
00017 15 MAUR-ASSIGN-NO PIC S9(09) COMP-3. DTSIMAUR
00018 15 MAUR-KEY-FILLER PIC X(05). DTSIMAUR
00019 CL**2
00020 CL**2
00021 10 MAUR-PURGE-DATE PIC S9(09) COMP-3. DTSIMAUR
00022 CL**2
00023 CL**2
00024 10 MAUR-DATA-AREA. DTSIMAUR
00025 15 MAUR-T022. DTSIMAUR
00026 20 MAUR-FIRST-YRQ PIC S9(05) COMP-3. DTSIMAUR
00027 CL**2
00028 20 MAUR-LAST-YRQ PIC S9(05) COMP-3. DTSIMAUR
00029 CL**2
00030 20 MAUR-QTRS-AUDITED-CNT PIC S9(03) COMP-3. DTSIMAUR
00031 CL**2
00032 20 MAUR-EMP-SIZE-IND PIC X(01). DTSIMAUR
00033 88 MAUR-EMP-SIZE-LARGE-88 VALUE 'L'. DTSIMAUR
00034 88 MAUR-EMP-SIZE-SMALL-88 VALUE 'S'. DTSIMAUR
00035 CL**2
00036 CL**2
00037 20 MAUR-ERROR-CNT PIC S9(04) COMP. DTSIMAUR
00038 CL**2
00039 20 MAUR-ERROR-AREA. DTSIMAUR
00040 25 MAUR-ERROR-TYPE PIC X(02) DTSIMAUR
00041 OCCURS 5 TIMES DTSIMAUR
00042 INDEXED BY MAUR-ERROR-IDX. DTSIMAUR
00043 CL**2
00044 CL**2
00045 20 MAUR-MONEY-DUE-AMT PIC S9(09)V9(02) COMP-3. DTSIMAUR
00046 CL**2
00047 20 MAUR-MONEY-COLLECT-AMT PIC S9(09)V9(02) COMP-3. DTSIMAUR
00048 CL**2
00049 20 MAUR-MONEY-REASON-CD PIC X(01). DTSIMAUR
00050 88 MAUR-ALL-MONEY-COLLECTED-88 VALUE '0'. DTSIMAUR
00051 CL**2
00052 20 MAUR-PEN-WAIVE-IND PIC X(01). CL**2
00053 88 MAUR-PEN-WAIVE-GRANTED-88 VALUE 'Y'. CL**2
00054 88 MAUR-PEN-WAIVE-NOT-GRANTED-88 VALUE 'N'. CL**2
00055 CL**2
00056 20 MAUR-INT-WAIVE-IND PIC X(01). CL**2
00057 88 MAUR-INT-WAIVE-GRANTED-88 VALUE 'Y'. CL**2
00058 88 MAUR-INT-WAIVE-NOT-GRANTED-88 VALUE 'N'. CL**2
00059 CL**2
00060 20 MAUR-AUDIT-HRS PIC S9(04)V9(01) COMP-3. DTSIMAUR
00061 CL**2
00062 20 MAUR-NEW-EMPLOYEE-CNT PIC S9(05) COMP-3. DTSIMAUR
00063 CL**3
00064 20 MAUR-INDCON-TO-EMPL-CNT PIC S9(05) COMP-3. CL**3
00065 CL**2
00066 CL**2
00067 15 FILLER PIC X(29). CL**3
00068 CL**2
00069 CL**2
00070 15 MAUR-CONVERTED-IND PIC X(01). DTSIMAUR
00071 88 MAUR-CONVERTED-88 VALUE 'Y'. DTSIMAUR
00072 88 MAUR-NOT-CONVERTED-88 VALUE 'N'. DTSIMAUR
00073 CL**2
00074 CL**2
00075 15 MAUR-ESTB-DATE PIC S9(09) COMP-3. DTSIMAUR
00076 CL**2
00077 15 MAUR-CHNG-DATE PIC S9(09) COMP-3. DTSIMAUR