00001 ***** 12/21/98 00002 * DTSIS32 00003 * DTSIS32 ALTERNATE QUARTER INQUIRY SEND/RECEIVE AREA. LV002 00004 * DTSIS32 00005 ***** DTSIS32 00006 10 FILLER PIC X(12). DTSIS32 00007 DTSIS32 00008 10 MAP-SCR-TYPE-AREA. DTSIS32 00009 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS32 00010 15 MAP-SCR-TYPE-A PIC X(01). DTSIS32 00011 15 MAP-SCR-TYPE PIC X(02). DTSIS32 00012 DTSIS32 00013 10 MAP-CICS-REGION-NAME-AREA. DTSIS32 00014 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS32 00015 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS32 00016 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS32 00017 DTSIS32 00018 10 MAP-SYS-DATE-AREA. DTSIS32 00019 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS32 00020 15 MAP-SYS-DATE-A PIC X(01). DTSIS32 00021 15 MAP-SYS-DATE PIC X(08). DTSIS32 00022 DTSIS32 00023 10 MAP-EMP-NO-AREA. DTSIS32 00024 15 F320210. DTSIS32 00025 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS32 00026 20 MAP-EMP-NO-1-A PIC X(01). DTSIS32 00027 20 MAP-EMP-NO-1 PIC X(03). DTSIS32 00028 15 F320214. DTSIS32 00029 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS32 00030 20 MAP-EMP-NO-2-A PIC X(01). DTSIS32 00031 20 MAP-EMP-NO-2 PIC X(03). DTSIS32 00032 DTSIS32 00033 10 MAP-YRQ-AREA. DTSIS32 00034 15 MAP-YRQ-YR-L PIC S9(04) COMP. DTSIS32 00035 15 MAP-YRQ-YR-A PIC X(01). DTSIS32 00036 15 MAP-YRQ-YR PIC X(02). DTSIS32 00037 15 MAP-YRQ-Q-L PIC S9(04) COMP. DTSIS32 00038 15 MAP-YRQ-Q-A PIC X(01). DTSIS32 00039 15 MAP-YRQ-Q PIC X(01). DTSIS32 00040 DTSIS32 00041 10 F320236. DTSIS32 00042 15 MAP-COMBINE-IND-L PIC S9(04) COMP. DTSIS32 00043 15 MAP-COMBINE-IND-A PIC X(01). DTSIS32 00044 15 MAP-COMBINE-IND PIC X(01). DTSIS32 00045 88 MAP-COMBINE-YES-88 VALUE 'Y'. DTSIS32 00046 88 MAP-COMBINE-NO-88 VALUE 'N'. DTSIS32 00047 88 MAP-COMBINE-VALID-88 VALUE 'Y' 'N'. DTSIS32 00048 DTSIS32 00049 10 MAP-COMP-DATE-AREA. DTSIS32 00050 15 MAP-COMP-MO-L PIC S9(04) COMP. DTSIS32 00051 15 MAP-COMP-MO-A PIC X(01). DTSIS32 00052 15 MAP-COMP-MO PIC X(02). DTSIS32 00053 DTSIS32 00054 15 MAP-COMP-DA-L PIC S9(04) COMP. DTSIS32 00055 15 MAP-COMP-DA-A PIC X(01). DTSIS32 00056 15 MAP-COMP-DA PIC X(02). DTSIS32 00057 DTSIS32 00058 15 MAP-COMP-YR-L PIC S9(04) COMP. DTSIS32 00059 15 MAP-COMP-YR-A PIC X(01). DTSIS32 00060 15 MAP-COMP-YR PIC X(02). DTSIS32 00061 DTSIS32 00062 10 F320259. DTSIS32 00063 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00064 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00065 15 MAP-PRIMARY-NAME PIC X(10). CL**2 00066 DTSIS32 00067 10 MAP-SYS-TIME-AREA. DTSIS32 00068 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS32 00069 15 MAP-SYS-TIME-A PIC X(01). DTSIS32 00070 15 MAP-SYS-TIME PIC X(08). DTSIS32 00071 DTSIS32 00072 DTSIS32 00073 10 MAP-YYQ-UIR-TABLE OCCURS 5 TIMES. DTSIS32 00074 15 MAP-YYQ-L PIC S9(04) COMP. DTSIS32 00075 15 MAP-YYQ-A PIC X(01). DTSIS32 00076 15 MAP-YYQ PIC X(04). DTSIS32 00077 DTSIS32 00078 15 MAP-UI-RATE-L PIC S9(04) COMP. DTSIS32 00079 15 MAP-UI-RATE-A PIC X(01). DTSIS32 00080 15 MAP-UI-RATE PIC X(05) DTSIS32 00081 JUST RIGHT. DTSIS32 00082 DTSIS32 00083 10 MAP-AMT-TABLE OCCURS 18 TIMES. DTSIS32 00084 15 MAP-AMT-LINE-L PIC S9(04) COMP. DTSIS32 00085 15 MAP-AMT-LINE-A PIC X(01). DTSIS32 00086 15 MAP-AMT-LINE PIC X(70). DTSIS32 00087 DTSIS32 00088 15 FILLER REDEFINES MAP-AMT-LINE. DTSIS32 00089 20 MAP-LINE-AMT-1-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32 00090 20 FILLER PIC X(01). DTSIS32 00091 20 MAP-LINE-AMT-2-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32 00092 20 FILLER PIC X(01). DTSIS32 00093 20 MAP-LINE-AMT-3-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32 00094 20 FILLER PIC X(01). DTSIS32 00095 20 MAP-LINE-AMT-4-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32 00096 20 FILLER PIC X(01). DTSIS32 00097 20 MAP-LINE-AMT-5-Z PIC ZZZ,ZZZ,ZZ9.99.DTSIS32 00098 DTSIS32 00099 15 FILLER REDEFINES MAP-AMT-LINE. DTSIS32 00100 20 MAP-LINE-AMT-TABLE OCCURS 4 TIMES. DTSIS32 00101 25 MAP-LINE-AMT-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32 00102 25 FILLER PIC X(01). DTSIS32 00103 DTSIS32 00104 20 MAP-AMT-TTL. DTSIS32 00105 25 MAP-LINE-TOT-Z PIC ZZZ,ZZZ,ZZ9.99.DTSIS32 00106 DTSIS32 00107 DTSIS32 00108 10 MAP-DOC-NO-TABLE OCCURS 5 TIMES. DTSIS32 00109 15 MAP-BATCH-NO-L PIC S9(04) COMP. DTSIS32 00110 15 MAP-BATCH-NO-A PIC X(01). DTSIS32 00111 15 MAP-BATCH-NO-Z PIC 9(05). DTSIS32 00112 DTSIS32 00113 15 MAP-ITEM-NO-L PIC S9(04) COMP. DTSIS32 00114 15 MAP-ITEM-NO-A PIC X(01). DTSIS32 00115 15 MAP-ITEM-NO-Z PIC 9(03). DTSIS32 00116 DTSIS32 00117 10 F322301. DTSIS32 00118 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS32 00119 15 MAP-KEY-FIRST-A PIC X(01). DTSIS32 00120 15 MAP-KEY-FIRST PIC X(07). DTSIS32 00121 DTSIS32 00122 10 F322309. DTSIS32 00123 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS32 00124 15 MAP-KEY-LAST-A PIC X(01). DTSIS32 00125 15 MAP-KEY-LAST PIC X(07). DTSIS32 00126 DTSIS32 00127 10 F322317. DTSIS32 00128 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS32 00129 15 MAP-KEY-BACK-A PIC X(01). DTSIS32 00130 15 MAP-KEY-BACK PIC X(07). DTSIS32 00131 DTSIS32 00132 10 F322325. DTSIS32 00133 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS32 00134 15 MAP-KEY-FWRD-A PIC X(01). DTSIS32 00135 15 MAP-KEY-FWRD PIC X(07). DTSIS32 00136 DTSIS32 00137 10 MAP-MSG-AREA. DTSIS32 00138 15 MAP-MSG-ID-AREA. DTSIS32 00139 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS32 00140 20 MAP-MSG-ID-A PIC X(01). DTSIS32 00141 20 MAP-MSG-ID PIC X(08). DTSIS32 00142 DTSIS32 00143 15 MAP-MSG-TEXT-AREA. DTSIS32 00144 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS32 00145 20 MAP-MSG-TEXT-A PIC X(01). DTSIS32 00146 20 MAP-MSG-TEXT PIC X(58). DTSIS32 00147 DTSIS32 00148 10 MAP-GOTO-AREA. DTSIS32 00149 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS32 00150 15 MAP-GOTO-A PIC X(01). DTSIS32 00151 15 MAP-GOTO PIC X(02). DTSIS32