57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
00001 ***** 04/24/20
|
|
00002 * CHGIM003
|
|
00003 * CHGIM003 PRINT PARM RECORD PRODUCED IN CHGBD210. LV005
|
|
00004 * CHGIM003
|
|
00005 * CHGIM003
|
|
00006 * CHGIM003
|
|
00007 ***** CHGIM003
|
|
00008 05 CHG3-RUN-TYPE PIC X(03). CHGIM003
|
|
00009 88 CHG3-RUN-TYPE-QTRLY-88 VALUE 'QTR' 'QTE'. CHGIM003
|
|
00010 88 CHG3-RUN-TYPE-QTR-88 VALUE 'QTR'. CHGIM003
|
|
00011 88 CHG3-RUN-TYPE-QTR-EMP-88 VALUE 'QTE'. CHGIM003
|
|
00012 88 CHG3-RUN-TYPE-ANN-88 VALUE 'ANN'. CHGIM003
|
|
00013 88 CHG3-RUN-TYPE-ANN-EMP-88 VALUE 'ANE'. CHGIM003
|
|
00014 88 CHG3-RUN-TYPE-ANNUAL-88 VALUE 'ANN' 'ANE'. CHGIM003
|
|
00015 88 CHG3-RUN-TYPE-MON-88 VALUE 'MON'. CHGIM003
|
|
00016 88 CHG3-RUN-TYPE-MON-EMP-88 VALUE 'MNE'. CHGIM003
|
|
00017 88 CHG3-RUN-TYPE-MONTHLY-88 VALUE 'MON' 'MNE'. CHGIM003
|
|
00018 88 CHG3-RUN-TYPE-WK-88 VALUE 'WK '. CHGIM003
|
|
00019 88 CHG3-RUN-TYPE-WK-EMP-88 VALUE 'WKE'. CHGIM003
|
|
00020 88 CHG3-RUN-TYPE-WEEKLY-88 VALUE 'WK ' 'WKE'. CHGIM003
|
|
00021 88 CHG3-RUN-TYPE-EMP-88 VALUE 'EMP'. CHGIM003
|
|
00022 88 CHG3-RUN-TYPE-RPTS-88 VALUE 'RPT'. CHGIM003
|
|
00023 88 CHG3-RUN-TYPE-AGENT-88 VALUE 'AGT'. CHGIM003
|
|
00024 88 CHG3-RUN-TYPE-TEUC-88 VALUE 'TEU'. CHGIM003
|
|
00025 88 CHG3-RUN-TYPE-FPUC-88 VALUE 'PUC'. CL**2
|
|
00026 CHGIM003
|
|
00027 88 CHG3-RUN-TYPE-SPECIAL-88 VALUE 'EMP' 'RPT' CHGIM003
|
|
00028 'AGT'. CHGIM003
|
|
00029 88 CHG3-RUN-TYPE-VALID-88 VALUE 'QTR' 'ANN' CHGIM003
|
|
00030 'EMP' 'RPT' CHGIM003
|
|
00031 'AGT' 'ANE' CHGIM003
|
|
00032 'MON' 'MNE' CHGIM003
|
|
00033 'WKE' 'TEU' CL**2
|
|
00034 'PUC'. CL**2
|
|
00035 05 CHG3-BEGIN-DATE PIC S9(09) COMP-3. CHGIM003
|
|
00036 05 CHG3-END-DATE PIC S9(09) COMP-3. CHGIM003
|
|
00037 CHGIM003
|
|
00038 05 CHG3-RPT-TYPES. CHGIM003
|
|
00039 10 CHG3-RPT-TYPE-RATED-IND PIC X(01). CHGIM003
|
|
00040 88 CHG3-RPT-TYPE-RATED-88 VALUE 'Y'. CHGIM003
|
|
00041 10 CHG3-RPT-TYPE-SELF-INS-IND PIC X(01). CHGIM003
|
|
00042 88 CHG3-RPT-TYPE-SELF-INS-88 VALUE 'Y'. CHGIM003
|
|
00043 10 CHG3-RPT-TYPE-CWC-IND PIC X(01). CHGIM003
|
|
00044 88 CHG3-RPT-TYPE-CWC-88 VALUE 'Y'. CHGIM003
|
|
00045 10 CHG3-RPT-TYPE-FED-IND PIC X(01). CHGIM003
|
|
00046 88 CHG3-RPT-TYPE-FED-88 VALUE 'Y'. CHGIM003
|
|
00047 10 CHG3-RPT-TYPE-TEUC-IND PIC X(01). CHGIM003
|
|
00048 88 CHG3-RPT-TYPE-TEUC-88 VALUE 'Y'. CHGIM003
|
|
00049 10 CHG3-RPT-TYPE-DC-IND PIC X(01). CHGIM003
|
|
00050 88 CHG3-RPT-TYPE-DC-88 VALUE 'Y'. CHGIM003
|
|
00051 10 CHG3-RPT-TYPE-FPUC-IND PIC X(01). CL**2
|
|
00052 88 CHG3-RPT-TYPE-FPUC-88 VALUE 'Y'. CL**2
|
|
00053 CHGIM003
|
|
00054 05 CHG3-EMP-NO PIC S9(07) COMP-3. CHGIM003
|
|
00055 05 FILLER PIC X(56). CL**5
|
|
00056 CHGIM003
|