26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
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
|