00001 ***** 07/17/03 00002 * DTSIS37 00003 * DTSIS37 ELECTRONIC PAYMENT INQUIRY SEND/RECEIVE AREA LV001 00004 * DTSIS37 00005 ***** DTSIS37 00006 DTSIS37 00007 10 FILLER PIC X(12). DTSIS37 00008 DTSIS37 00009 10 MAP-SCR-TYPE-AREA. DTSIS37 00010 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS37 00011 15 MAP-SCR-TYPE-A PIC X(01). DTSIS37 00012 15 MAP-SCR-TYPE PIC X(02). DTSIS37 00013 DTSIS37 00014 10 MAP-CICS-REGION-NAME-AREA. DTSIS37 00015 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS37 00016 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS37 00017 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS37 00018 DTSIS37 00019 10 MAP-SYS-DATE-AREA. DTSIS37 00020 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS37 00021 15 MAP-SYS-DATE-A PIC X(01). DTSIS37 00022 15 MAP-SYS-DATE PIC X(08). DTSIS37 00023 DTSIS37 00024 10 MAP-SYS-TIME-AREA. DTSIS37 00025 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS37 00026 15 MAP-SYS-TIME-A PIC X(01). DTSIS37 00027 15 MAP-SYS-TIME PIC X(08). DTSIS37 00028 DTSIS37 00029 10 MAP-SEARCH-TRACE-NO-AREA. DTSIS37 00030 15 MAP-SRCH-TRACE-NO-L PIC S9(04) COMP. DTSIS37 00031 15 MAP-SRCH-TRACE-NO-A PIC X(01). DTSIS37 00032 15 MAP-SRCH-TRACE-NO PIC X(13). DTSIS37 00033 DTSIS37 00034 10 F370372. DTSIS37 00035 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS37 00036 15 MAP-CURR-PAGE-A PIC X(01). DTSIS37 00037 15 MAP-CURR-PAGE PIC Z9. DTSIS37 00038 DTSIS37 00039 10 F370378. DTSIS37 00040 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS37 00041 15 MAP-LAST-PAGE-A PIC X(01). DTSIS37 00042 15 MAP-LAST-PAGE PIC Z9. DTSIS37 00043 DTSIS37 00044 10 MAP-SEARCH-EMP-NO-AREA. DTSIS37 00045 15 F370211. DTSIS37 00046 20 MAP-SRCH-EMP-NO-1-L PIC S9(04) COMP. DTSIS37 00047 20 MAP-SRCH-EMP-NO-1-A PIC X(01). DTSIS37 00048 20 MAP-SRCH-EMP-NO-1 PIC X(03). DTSIS37 00049 15 F370215. DTSIS37 00050 20 MAP-SRCH-EMP-NO-2-L PIC S9(04) COMP. DTSIS37 00051 20 MAP-SRCH-EMP-NO-2-A PIC X(01). DTSIS37 00052 20 MAP-SRCH-EMP-NO-2 PIC X(03). DTSIS37 00053 DTSIS37 00054 10 MAP-SEARCH-DATE1-AREA. DTSIS37 00055 15 MAP-SRCH-DATE1-MO-AREA. DTSIS37 00056 20 MAP-SRCH-DATE1-MO-L PIC S9(04) COMP. DTSIS37 00057 20 MAP-SRCH-DATE1-MO-A PIC X(01). DTSIS37 00058 20 MAP-SRCH-DATE1-MO PIC X(02). DTSIS37 00059 15 MAP-SRCH-DATE1-DA-AREA. DTSIS37 00060 20 MAP-SRCH-DATE1-DA-L PIC S9(04) COMP. DTSIS37 00061 20 MAP-SRCH-DATE1-DA-A PIC X(01). DTSIS37 00062 20 MAP-SRCH-DATE1-DA PIC X(02). DTSIS37 00063 15 MAP-SRCH-DATE1-YR-AREA. DTSIS37 00064 20 MAP-SRCH-DATE1-YR-L PIC S9(04) COMP. DTSIS37 00065 20 MAP-SRCH-DATE1-YR-A PIC X(01). DTSIS37 00066 20 MAP-SRCH-DATE1-YR PIC X(02). DTSIS37 00067 DTSIS37 00068 10 MAP-SEARCH-DATE2-AREA. DTSIS37 00069 15 MAP-SRCH-DATE2-MO-AREA. DTSIS37 00070 20 MAP-SRCH-DATE2-MO-L PIC S9(04) COMP. DTSIS37 00071 20 MAP-SRCH-DATE2-MO-A PIC X(01). DTSIS37 00072 20 MAP-SRCH-DATE2-MO PIC X(02). DTSIS37 00073 15 MAP-SRCH-DATE2-DA-AREA. DTSIS37 00074 20 MAP-SRCH-DATE2-DA-L PIC S9(04) COMP. DTSIS37 00075 20 MAP-SRCH-DATE2-DA-A PIC X(01). DTSIS37 00076 20 MAP-SRCH-DATE2-DA PIC X(02). DTSIS37 00077 15 MAP-SRCH-DATE2-YR-AREA. DTSIS37 00078 20 MAP-SRCH-DATE2-YR-L PIC S9(04) COMP. DTSIS37 00079 20 MAP-SRCH-DATE2-YR-A PIC X(01). DTSIS37 00080 20 MAP-SRCH-DATE2-YR PIC X(02). DTSIS37 00081 DTSIS37 00082 10 MAP-LINE-AREA OCCURS 15 TIMES. DTSIS37 00083 15 MAP-LINE-L PIC S9(04) COMP. DTSIS37 00084 15 MAP-LINE-A PIC X(01). DTSIS37 00085 15 MAP-LINE PIC X(79). DTSIS37 00086 15 FILLER REDEFINES MAP-LINE. DTSIS37 00087 20 MAP-EMP-NO PIC X(07). DTSIS37 00088 20 FILLER REDEFINES MAP-EMP-NO. DTSIS37 00089 25 MAP-EMP-NO-1 PIC 9(03). DTSIS37 00090 25 FILLER PIC X(01). DTSIS37 00091 25 MAP-EMP-NO-2 PIC 9(03). DTSIS37 00092 20 FILLER PIC X(02). DTSIS37 00093 20 MAP-PAY-TYPE PIC X(02). DTSIS37 00094 20 FILLER PIC X(03). DTSIS37 00095 20 MAP-DOC-NO. DTSIS37 00096 25 MAP-BATCH-NO PIC 9(05). DTSIS37 00097 25 FILLER PIC X(01). DTSIS37 00098 25 MAP-ITEM-NO PIC 9(03). DTSIS37 00099 20 FILLER PIC X(03). DTSIS37 00100 20 MAP-RECEIVED-DATE PIC X(10). DTSIS37 00101 20 FILLER PIC X(02). DTSIS37 00102 20 MAP-PROCESSED-DATE PIC X(10). DTSIS37 00103 20 FILLER PIC X(02). DTSIS37 00104 20 MAP-TRACE-NO PIC X(13). DTSIS37 00105 20 FILLER PIC X(02). DTSIS37 00106 20 MAP-AMT PIC X(14). DTSIS37 00107 20 FILLER REDEFINES MAP-AMT. DTSIS37 00108 25 MAP-AMT-Z PIC ------,--9.99. DTSIS37 00109 25 FILLER PIC X(01). DTSIS37 00110 DTSIS37 00111 10 F372308. DTSIS37 00112 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS37 00113 15 MAP-KEY-FIRST-A PIC X(01). DTSIS37 00114 15 MAP-KEY-FIRST PIC X(08). DTSIS37 00115 DTSIS37 00116 10 F372318. DTSIS37 00117 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS37 00118 15 MAP-KEY-LAST-A PIC X(01). DTSIS37 00119 15 MAP-KEY-LAST PIC X(07). DTSIS37 00120 DTSIS37 00121 10 F372327. DTSIS37 00122 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS37 00123 15 MAP-KEY-BACK-A PIC X(01). DTSIS37 00124 15 MAP-KEY-BACK PIC X(07). DTSIS37 00125 DTSIS37 00126 10 F372336. DTSIS37 00127 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS37 00128 15 MAP-KEY-FWRD-A PIC X(01). DTSIS37 00129 15 MAP-KEY-FWRD PIC X(07). DTSIS37 00130 DTSIS37 00131 10 F372344. DTSIS37 00132 15 MAP-KEY-RESET-L PIC S9(04) COMP. DTSIS37 00133 15 MAP-KEY-RESET-A PIC X(01). DTSIS37 00134 15 MAP-KEY-RESET PIC X(20). DTSIS37 00135 DTSIS37 00136 10 MAP-MSG-AREA. DTSIS37 00137 15 MAP-MSG-ID-AREA. DTSIS37 00138 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS37 00139 20 MAP-MSG-ID-A PIC X(01). DTSIS37 00140 20 MAP-MSG-ID PIC X(08). DTSIS37 00141 15 MAP-MSG-TEXT-AREA. DTSIS37 00142 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS37 00143 20 MAP-MSG-TEXT-A PIC X(01). DTSIS37 00144 20 MAP-MSG-TEXT PIC X(58). DTSIS37 00145 DTSIS37 00146 10 MAP-GOTO-AREA. DTSIS37 00147 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS37 00148 15 MAP-GOTO-A PIC X(01). DTSIS37 00149 15 MAP-GOTO PIC X(02). DTSIS37