00001 *****                                                             06/23/04
00002 *                                                                 CHGIL001
00003 *    CHGIL001  CHARGE PRINT LINKAGE                                  LV036
00004 *                                                                 CHGIL001
00005 *                                                                 CHGIL001
00006 *                                                                 CHGIL001
00007 *****                                                             CHGIL001
00008          10  CHG-LINK1-COMMAND           PIC  X(01).              CHGIL001
00009              88  CHG-LINK1-CMD-INIT-88       VALUE 'I'.           CHGIL001
00010              88  CHG-LINK1-CMD-PROCESS-88    VALUE 'P'.           CHGIL001
00011              88  CHG-LINK1-CMD-CLOSE-88      VALUE 'C'.           CHGIL001
00012          10  CHG-LINK1-PERIOD-BEGIN      PIC S9(08) COMP-3.       CHGIL001
00013          10  CHG-LINK1-PERIOD-END        PIC S9(08) COMP-3.       CHGIL001
00014          10  CHG-LINK1-RUN-TYPE          PIC  X(03).              CHGIL001
00015              88  CHG-LINK1-RUN-TYPE-QTRLY-88  VALUE 'QTR'.        CHGIL001
00016              88  CHG-LINK1-RUN-TYPE-ANN-88    VALUE 'ANN'.        CHGIL001
00017              88  CHG-LINK1-RUN-TYPE-EMP-88    VALUE 'EMP'.        CHGIL001
00018              88  CHG-LINK1-RUN-TYPE-RPTS-88   VALUE 'RPT'.        CHGIL001
00019              88  CHG-LINK1-RUN-TYPE-AGTS-88   VALUE 'AGT'.        CHGIL001
00020              88  CHG-LINK1-RUN-TYPE-SPC-88    VALUE 'EMP' 'MNE'.  CHGIL001
00021          10  CHG-LINK1-SELF-INS-STEP     PIC  X(01).              CHGIL001
00022              88  CHG-LINK1-SELF-INS-STEP1-88  VALUE '1'.          CHGIL001
00023              88  CHG-LINK1-SELF-INS-STEP2-88  VALUE '2'.          CHGIL001
00024                                                                   CHGIL001
00025          10  CHG-LINK1-FILLER            PIC  X(65).              CHGIL001