00001 15 FILLER REDEFINES LCCM-SCR-HOLD-AREA. 08/02/02 00002 20 LCCM-REPORT-SUB PIC S9(04) COMP. OJRILCCM 00003 20 LCCM-REPORT-NAME PIC X(08). LV001 00004 20 LCCM-REPORT-TYPE PIC X(01). OJRILCCM 00005 88 LCCM-PRE-UPDATE-88 VALUE '0'. OJRILCCM 00006 88 LCCM-POST-UPDATE-88 VALUE '1'. OJRILCCM 00007 88 LCCM-READ-ONLY-88 VALUE '2'. OJRILCCM 00008 20 LCCM-REPORT-DESC PIC X(34). OJRILCCM 00009 20 LCCM-REPORT-REQUEST PIC X(01). OJRILCCM 00010 88 LCCM-GET-DEFAULTS-88 VALUE 'D'. OJRILCCM 00011 88 LCCM-EDIT-PARMS-88 VALUE 'E'. OJRILCCM 00012 88 LCCM-SUBMIT-88 VALUE 'S'. OJRILCCM 00013 88 LCCM-INT-RDR-88 VALUE 'I'. OJRILCCM 00014 88 LCCM-UPDATE-OLA-88 VALUE 'U'. OJRILCCM 00015 88 LCCM-UPDATE-CONF-88 VALUE 'U', OJRILCCM 00016 'I'. OJRILCCM 00017 88 LCCM-SEND-MAP-88 VALUE 'M'. OJRILCCM 00018 88 LCCM-RECEIVE-MAP-88 VALUE 'R'. OJRILCCM 00019 20 LCCM-REPORT-PARMS OCCURS 16 TIMES. OJRILCCM 00020 25 LCCM-PARM-DESC PIC X(32). OJRILCCM 00021 25 LCCM-PARM-TYPE PIC X(02). OJRILCCM 00022 88 LCCM-PARM-TYPE-DATE VALUE '00'.OJRILCCM 00023 88 LCCM-PARM-TYPE-QTR VALUE '01'.OJRILCCM 00024 88 LCCM-PARM-TYPE-UID VALUE '02'.OJRILCCM 00025 88 LCCM-PARM-TYPE-TEXT VALUE '03'.OJRILCCM 00026 25 LCCM-PARM-VALUE PIC X(32). OJRILCCM 00027 25 LCCM-PARM-LENGTH PIC S9(04) COMP. OJRILCCM 00028 20 LCCM-PARM-SUB PIC S9(04) COMP. OJRILCCM 00029 * 100 BYTES BELOW OJRILCCM 00030 20 LCCM-8B-EDIT-VARS. OJRILCCM 00031 25 LCCM-8B-PRIOR-RUN-DATE OJRILCCM 00032 PIC S9(09) COMP-3. OJRILCCM 00033 25 LCCM-8B-LAST-UC30-DEL-MAIL-YRQ OJRILCCM 00034 PIC S9(05) COMP-3. OJRILCCM 00035 25 LCCM-8B-FIRST-PURSUED-RPT-YRQ OJRILCCM 00036 PIC S9(05) COMP-3. OJRILCCM 00037 25 FILLER PIC X(89). OJRILCCM 00038 * NOTE -- LCCM-PARM-SUB VALID ONLY FOR DATA CAPTURE ROUTINES OJRILCCM