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/CHGIM012.cpy Normal file
View File

@ -0,0 +1,63 @@
00001 ***** 03/19/13
00002 * CHGIM012
00003 * CHGIM012 CHARGE INTERFACE RECORD FOR STC. LV007
00004 * CHGIM012
00005 * USED IN CHGBD102, WHICH READS DATA FROM THE STC CL**3
00006 * SUB-SYSTEM AND FORMATS CHGIM001 RECORDS FOR INPUT CL**3
00007 * TO CHGBD200. CL**3
00008 * CHGIM012
00009 * 03/18/2013 INITIAL DEVELOPMENT GD CL**3
00010 * CHGIM012
00011 ***** CHGIM012
00012 CHGIM012
00013 10 CHG12-SORT-KEY-AREA. CL**3
00014 15 CHG12-SSN PIC 9(09). CL**4
00015 15 CHG12-SSN-X REDEFINES CHG12-SSN CL**7
00016 PIC X(09). CL**7
00017 15 FILLER PIC X(01). CL**4
00018 15 CHG12-EMP-NO PIC 9(06). CL**4
00019 15 CHG12-EMP-X REDEFINES CHG12-EMP-NO CL**7
00020 PIC X(06). CL**7
00021 15 FILLER PIC X(01). CL**4
00022 15 CHG12-BYE PIC X(10). CL**4
00023 15 FILLER PIC X(01). CL**4
00024 CHGIM012
00025 10 CHG12-DATA-AREA. CL**3
00026 15 CHG12-CHARGE-DATE PIC X(10). CL**4
00027 15 FILLER PIC X(01). CL**4
00028 15 CHG12-CHARGE-PROGRAM PIC X(01). CL**3
00029 88 CHG12-CHARGE-PROG-UI VALUE '1'. CL**3
00030 88 CHG12-CHARGE-PROG-EB VALUE '2'. CL**3
00031 88 CHG12-CHARGE-PROG-TEUC VALUE '3'. CL**3
00032 88 CHG12-CHARGE-PROG-TEUCA VALUE '4'. CL**3
00033 88 CHG12-CHARGE-PROG-FAC VALUE '5'. CL**3
00034 88 CHG12-CHARGE-PROG-FSB VALUE '6'. CL**3
00035 88 CHG12-CHARGE-PROG-FSC VALUE '7'. CL**3
00036 88 CHG12-CHARGE-PROG-DUA VALUE '8'. CL**3
00037 88 CHG12-CHARGE-PROG-TR2 VALUE '9'. CL**3
00038 88 CHG12-CHARGE-PROG-TRA VALUE '0'. CL**3
00039 88 CHG12-CHARGE-PROG-STEPLDR VALUE 'A'. CL**3
00040 88 CHG12-CHARGE-PROG-AB VALUE 'B'. CL**3
00041 88 CHG12-CHARGE-PROG-TRAINING VALUE 'C'. CL**3
00042 88 CHG12-CHARGE-PROG-DEPENDENTS VALUE 'D'. CL**3
00043 88 CHG12-CHARGE-PROG-EUC08-2PLUS VALUE 'E'. CL**3
00044 88 CHG12-CHARGE-PROG-EUC08TR3 VALUE 'F'. CL**3
00045 88 CHG12-CHARGE-PROG-EUC08TR4 VALUE 'G'. CL**3
00046 88 CHG12-CHARGE-PROG-SPECIAL-PAY VALUE 'H'. CL**3
00047 88 CHG12-CHARGE-PROG-STC-88 VALUE 'I'. CL**3
00048 15 FILLER PIC X(01). CL**4
00049 15 CHG12-CHARGE-EMP-TYPE PIC 9(02). CL**3
00050 15 FILLER PIC X(01). CL**4
00051 15 CHG12-CHARGE-CODE PIC 9(01). CL**4
00052 88 CHG12-CHARGE-ADJ VALUE 3. CL**4
00053 88 CHG12-CHARGE-BEN VALUE 4. CL**4
00054 88 CHG12-CHARGE-OP-ESTABLISH VALUE 5. CL**4
00055 88 CHG12-CHARGE-OP-RECOUP VALUE 6. CL**4
00056 88 CHG12-CHARGE-IB6 VALUE 7. CL**4
00057 88 CHG12-CHARGE-OP-WAIVER VALUE 8. CL**4
00058 88 CHG12-CHARGE-OTHER VALUE 9. CL**4
00059 88 CHG12-CHARGE-ALL-ADJ VALUE 3, 5, 6, CL**4
00060 7, 8, 9. CL**4
00061 15 FILLER PIC X(01). CL**4
00062 15 CHG12-CHARGE-CURR-AMT PIC 9(11).99. CL**6
00063 15 CHG12-DATA-FILLER PIC X(40). CL**3