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