64 lines
5.0 KiB
COBOL
64 lines
5.0 KiB
COBOL
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
|