00001 ***** 08/06/99 00002 * DTSIS46 00003 * DTSIS46 STATEMENT OF ACCOUNT PRINT SEND/RECEIVE AREA LV004 00004 * DTSIS46 00005 ***** DTSIS46 00006 10 FILLER PIC X(12). DTSIS46 00007 DTSIS46 00008 10 MAP-SCR-TYPE-AREA. DTSIS46 00009 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS46 00010 15 MAP-SCR-TYPE-A PIC X(01). DTSIS46 00011 15 MAP-SCR-TYPE PIC X(02). DTSIS46 00012 DTSIS46 00013 10 MAP-CICS-REGION-NAME-AREA. DTSIS46 00014 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS46 00015 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS46 00016 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS46 00017 DTSIS46 00018 10 MAP-SYS-DATE-AREA. DTSIS46 00019 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS46 00020 15 MAP-SYS-DATE-A PIC X(01). DTSIS46 00021 15 MAP-SYS-DATE PIC X(08). DTSIS46 00022 DTSIS46 00023 10 MAP-SYS-TIME-AREA. DTSIS46 00024 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS46 00025 15 MAP-SYS-TIME-A PIC X(01). DTSIS46 00026 15 MAP-SYS-TIME PIC X(08). DTSIS46 00027 DTSIS46 00028 10 MAP-EMP-NO-AREA. DTSIS46 00029 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS46 00030 20 MAP-EMP-NO-1-A PIC X(01). DTSIS46 00031 20 MAP-EMP-NO-1 PIC X(03). DTSIS46 00032 DTSIS46 00033 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS46 00034 20 MAP-EMP-NO-2-A PIC X(01). DTSIS46 00035 20 MAP-EMP-NO-2 PIC X(03). DTSIS46 00036 DTSIS46 00037 10 MAP-PRIMARY-NAME-AREA. CL**2 00038 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00039 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00040 15 MAP-PRIMARY-NAME PIC X(40). CL**2 00041 DTSIS46 00042 10 MAP-CURR-PAGE-AREA. DTSIS46 00043 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS46 00044 15 MAP-CURR-PAGE-A PIC X(01). DTSIS46 00045 15 MAP-CURR-PAGE PIC Z9. DTSIS46 00046 DTSIS46 00047 10 MAP-LAST-PAGE-AREA. DTSIS46 00048 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS46 00049 15 MAP-LAST-PAGE-A PIC X(01). DTSIS46 00050 15 MAP-LAST-PAGE PIC Z9. DTSIS46 00051 DTSIS46 00052 10 MAP-YRQ-FROM-AREA. DTSIS46 00053 15 MAP-YRQ-FROM-YR-L PIC S9(04) COMP. DTSIS46 00054 15 MAP-YRQ-FROM-YR-A PIC X(01). DTSIS46 00055 15 MAP-YRQ-FROM-YR PIC X(02). DTSIS46 00056 DTSIS46 00057 15 MAP-YRQ-FROM-Q-L PIC S9(04) COMP. DTSIS46 00058 15 MAP-YRQ-FROM-Q-A PIC X(01). DTSIS46 00059 15 MAP-YRQ-FROM-Q PIC X(01). DTSIS46 00060 DTSIS46 00061 10 MAP-YRQ-TO-AREA. DTSIS46 00062 15 MAP-YRQ-TO-YR-L PIC S9(04) COMP. DTSIS46 00063 15 MAP-YRQ-TO-YR-A PIC X(01). DTSIS46 00064 15 MAP-YRQ-TO-YR PIC X(02). DTSIS46 00065 DTSIS46 00066 15 MAP-YRQ-TO-Q-L PIC S9(04) COMP. DTSIS46 00067 15 MAP-YRQ-TO-Q-A PIC X(01). DTSIS46 00068 15 MAP-YRQ-TO-Q PIC X(01). DTSIS46 00069 DTSIS46 00070 10 MAP-TOT-DUE-AMT-AREA. DTSIS46 00071 15 MAP-TOT-DUE-AMT-L PIC S9(04) COMP. DTSIS46 00072 15 MAP-TOT-DUE-AMT-A PIC X(01). DTSIS46 00073 15 MAP-TOT-DUE-AMT PIC X(13). DTSIS46 00074 15 MAP-TOT-DUE-AMT-Z REDEFINES DTSIS46 00075 MAP-TOT-DUE-AMT PIC --,---,--9.99. CL**2 00076 DTSIS46 00077 10 MAP-COMP-DATE-AREA. DTSIS46 00078 15 MAP-COMP-MO-L PIC S9(04) COMP. DTSIS46 00079 15 MAP-COMP-MO-A PIC X(01). DTSIS46 00080 15 MAP-COMP-MO PIC X(02). DTSIS46 00081 DTSIS46 00082 15 MAP-COMP-DA-L PIC S9(04) COMP. DTSIS46 00083 15 MAP-COMP-DA-A PIC X(01). DTSIS46 00084 15 MAP-COMP-DA PIC X(02). DTSIS46 00085 DTSIS46 00086 15 MAP-COMP-YR-L PIC S9(04) COMP. DTSIS46 00087 15 MAP-COMP-YR-A PIC X(01). DTSIS46 00088 15 MAP-COMP-YR PIC X(02). DTSIS46 00089 DTSIS46 00090 10 MAP-PURSUED-RPTS-CNT-AREA. DTSIS46 00091 15 MAP-PURSUED-RPTS-CNT-L PIC S9(04) COMP. DTSIS46 00092 15 MAP-PURSUED-RPTS-CNT-A PIC X(01). DTSIS46 00093 15 MAP-PURSUED-RPTS-CNT PIC X(03). DTSIS46 00094 15 MAP-PURSUED-RPTS-CNT-Z REDEFINES DTSIS46 00095 MAP-PURSUED-RPTS-CNT PIC ZZ9. DTSIS46 00096 DTSIS46 00097 10 MAP-ADDR-TYPE-AREA. DTSIS46 00098 15 MAP-ADDR-TYPE-L PIC S9(04) COMP. DTSIS46 00099 15 MAP-ADDR-TYPE-A PIC X(01). DTSIS46 00100 15 MAP-ADDR-TYPE PIC X(01). DTSIS46 00101 88 MAP-ADDR-TAX-88 VALUE 'T'. CL**3 00102 88 MAP-ADDR-TAX-ALT-88 VALUE 'A'. DTSIS46 00103 88 MAP-ADDR-PHY-88 VALUE 'P'. CL**3 00104 88 MAP-ADDR-OPO-88 VALUE 'O'. CL**3 00105 88 MAP-ADDR-TAD-88 VALUE 'T' 'P'. CL**3 00106 88 MAP-ADDR-TAA-OPO-88 VALUE 'A' 'O'. CL**3 00107 88 MAP-ADDR-VALID-88 VALUE 'T' 'A' CL**3 00108 'P' 'O'. CL**4 00109 DTSIS46 00110 10 MAP-ADDR-ID-NO-AREA. DTSIS46 00111 15 MAP-ADDR-ID-NO-L PIC S9(04) COMP. DTSIS46 00112 15 MAP-ADDR-ID-NO-A PIC X(01). DTSIS46 00113 15 MAP-ADDR-ID-NO PIC X(03). DTSIS46 00114 15 MAP-ADDR-ID-NO-Z REDEFINES MAP-ADDR-ID-NO DTSIS46 00115 PIC ZZ9. DTSIS46 00116 DTSIS46 00117 10 MAP-COPIES-AREA. DTSIS46 00118 15 MAP-COPIES-L PIC S9(04) COMP. DTSIS46 00119 15 MAP-COPIES-A PIC X(01). DTSIS46 00120 15 MAP-COPIES PIC X(01). DTSIS46 00121 88 MAP-COPIES-VALID-88 VALUE '1' THRU DTSIS46 00122 '9'. DTSIS46 00123 88 MAP-COPIES-DEFAULT-88 VALUE '2'. DTSIS46 00124 15 MAP-COPIES-N REDEFINES MAP-COPIES PIC 9(01). DTSIS46 00125 DTSIS46 00126 10 MAP-PRINTER-ID-AREA. DTSIS46 00127 15 MAP-PRINTER-ID-L PIC S9(04) COMP. DTSIS46 00128 15 MAP-PRINTER-ID-A PIC X(01). DTSIS46 00129 15 MAP-PRINTER-ID PIC X(04). DTSIS46 00130 DTSIS46 00131 10 MAP-RESP-OP-ID-AREA. DTSIS46 00132 15 MAP-RESP-OP-ID-L PIC S9(04) COMP. DTSIS46 00133 15 MAP-RESP-OP-ID-A PIC X(01). DTSIS46 00134 15 MAP-RESP-OP-ID PIC X(08). CL**2 00135 DTSIS46 00136 10 MAP-RESP-OP-ID-DSCR-AREA. DTSIS46 00137 15 MAP-RESP-OP-ID-DSCR-L PIC S9(04) COMP. DTSIS46 00138 15 MAP-RESP-OP-ID-DSCR-A PIC X(01). DTSIS46 00139 15 MAP-RESP-OP-ID-DSCR PIC X(10). DTSIS46 00140 DTSIS46 00141 10 MAP-NOTE-LINES-AREA. DTSIS46 00142 15 MAP-NOTE-LINE-AREA OCCURS 4 TIMES. DTSIS46 00143 20 MAP-NOTE-LINE-L PIC S9(04) COMP. DTSIS46 00144 20 MAP-NOTE-LINE-A PIC X(01). DTSIS46 00145 20 MAP-NOTE-LINE PIC X(72). DTSIS46 00146 DTSIS46 00147 10 MAP-STMT-LINES-AREA. CL**4 00148 15 MAP-STMT-LINE-AREA OCCURS 8 TIMES. CL**4 00149 20 MAP-STMT-LINE-L PIC S9(04) COMP. CL**4 00150 20 MAP-STMT-LINE-A PIC X(01). CL**4 00151 20 MAP-STMT-LINE PIC X(79). CL**4 00152 CL**4 00153 10 MAP-KEY-FIRST-AREA. DTSIS46 00154 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS46 00155 15 MAP-KEY-FIRST-A PIC X(01). DTSIS46 00156 15 MAP-KEY-FIRST PIC X(08). DTSIS46 00157 DTSIS46 00158 10 MAP-KEY-LAST-AREA. DTSIS46 00159 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS46 00160 15 MAP-KEY-LAST-A PIC X(01). DTSIS46 00161 15 MAP-KEY-LAST PIC X(07). DTSIS46 00162 DTSIS46 00163 10 MAP-KEY-BACK-AREA. DTSIS46 00164 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS46 00165 15 MAP-KEY-BACK-A PIC X(01). DTSIS46 00166 15 MAP-KEY-BACK PIC X(07). DTSIS46 00167 DTSIS46 00168 10 MAP-KEY-FWRD-AREA. DTSIS46 00169 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS46 00170 15 MAP-KEY-FWRD-A PIC X(01). DTSIS46 00171 15 MAP-KEY-FWRD PIC X(07). DTSIS46 00172 DTSIS46 00173 10 MAP-KEY-PRINT-AREA. DTSIS46 00174 15 MAP-KEY-PRINT-L PIC S9(04) COMP. DTSIS46 00175 15 MAP-KEY-PRINT-A PIC X(01). DTSIS46 00176 15 MAP-KEY-PRINT PIC X(08). DTSIS46 00177 DTSIS46 00178 10 MAP-MSG-AREA. DTSIS46 00179 15 MAP-MSG-ID-AREA. DTSIS46 00180 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS46 00181 20 MAP-MSG-ID-A PIC X(01). DTSIS46 00182 20 MAP-MSG-ID PIC X(08). DTSIS46 00183 15 MAP-MSG-TEXT-AREA. DTSIS46 00184 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS46 00185 20 MAP-MSG-TEXT-A PIC X(01). DTSIS46 00186 20 MAP-MSG-TEXT PIC X(58). DTSIS46 00187 DTSIS46 00188 10 MAP-GOTO-AREA. DTSIS46 00189 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS46 00190 15 MAP-GOTO-A PIC X(01). DTSIS46 00191 15 MAP-GOTO PIC X(02). DTSIS46