MFmainframe-rea
WS carddemo · 26f629ef

bms · 294 lines · sha256 35b86cd8d764c831app/app-authorization-ims-db2-mq/bms/COPAU01.bms

1***********************************************************************
2* CardDemo - Pending Authorization Details Screen
3***********************************************************************
4* Copyright Amazon.com, Inc. or its affiliates.
5* All Rights Reserved.
6*
7* Licensed under the Apache License, Version 2.0 (the "License").
8* You may not use this file except in compliance with the License.
9* You may obtain a copy of the License at
10*
11* http://www.apache.org/licenses/LICENSE-2.0
12*
13* Unless required by applicable law or agreed to in writing,
14* software distributed under the License is distributed on an
15* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,
16* either express or implied. See the License for the specific
17* language governing permissions and limitations under the License
18******************************************************************
19COPAU01 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COPAU1A DFHMDI COLUMN=1, -
27 LINE=1, -
28 SIZE=(24,80)
29 DFHMDF ATTRB=(ASKIP,NORM), -
30 COLOR=BLUE, -
31 LENGTH=5, -
32 POS=(1,1), -
33 INITIAL='Tran:'
34TRNNAME DFHMDF ATTRB=(ASKIP,NORM), -
35 COLOR=BLUE, -
36 LENGTH=4, -
37 POS=(1,7)
38TITLE01 DFHMDF ATTRB=(ASKIP,NORM), -
39 COLOR=YELLOW, -
40 LENGTH=40, -
41 POS=(1,21)
42 DFHMDF ATTRB=(ASKIP,NORM), -
43 COLOR=BLUE, -
44 LENGTH=5, -
45 POS=(1,65), -
46 INITIAL='Date:'
47CURDATE DFHMDF ATTRB=(ASKIP,NORM), -
48 COLOR=BLUE, -
49 LENGTH=8, -
50 POS=(1,71), -
51 INITIAL='mm/dd/yy'
52 DFHMDF ATTRB=(ASKIP,NORM), -
53 COLOR=BLUE, -
54 LENGTH=5, -
55 POS=(2,1), -
56 INITIAL='Prog:'
57PGMNAME DFHMDF ATTRB=(ASKIP,NORM), -
58 COLOR=BLUE, -
59 LENGTH=8, -
60 POS=(2,7)
61TITLE02 DFHMDF ATTRB=(ASKIP,NORM), -
62 COLOR=YELLOW, -
63 LENGTH=40, -
64 POS=(2,21)
65 DFHMDF ATTRB=(ASKIP,NORM), -
66 COLOR=BLUE, -
67 LENGTH=5, -
68 POS=(2,65), -
69 INITIAL='Time:'
70CURTIME DFHMDF ATTRB=(ASKIP,NORM), -
71 COLOR=BLUE, -
72 LENGTH=8, -
73 POS=(2,71), -
74 INITIAL='hh:mm:ss'
75 DFHMDF ATTRB=(ASKIP,BRT), -
76 COLOR=NEUTRAL, -
77 LENGTH=26, -
78 POS=(4,27), -
79 INITIAL='View Authorization Details'
80 DFHMDF ATTRB=(ASKIP,NORM), -
81 COLOR=TURQUOISE, -
82 LENGTH=7, -
83 POS=(7,2), -
84 INITIAL='Card #:'
85CARDNUM DFHMDF ATTRB=(ASKIP,NORM), -
86 COLOR=PINK, -
87 LENGTH=16, -
88 POS=(7,11)
89 DFHMDF ATTRB=(ASKIP,NORM), -
90 COLOR=TURQUOISE, -
91 LENGTH=10, -
92 POS=(7,31), -
93 INITIAL='Auth Date:'
94AUTHDT DFHMDF ATTRB=(ASKIP,NORM), -
95 COLOR=PINK, -
96 LENGTH=10, -
97 POS=(7,43), -
98 INITIAL=' '
99 DFHMDF ATTRB=(ASKIP,NORM), -
100 COLOR=TURQUOISE, -
101 LENGTH=10, -
102 POS=(7,56), -
103 INITIAL='Auth Time:'
104AUTHTM DFHMDF ATTRB=(ASKIP,NORM), -
105 COLOR=PINK, -
106 LENGTH=10, -
107 POS=(7,68), -
108 INITIAL=' '
109 DFHMDF ATTRB=(ASKIP,NORM), -
110 COLOR=TURQUOISE, -
111 LENGTH=10, -
112 POS=(9,2), -
113 INITIAL='Auth Resp:'
114AUTHRSP DFHMDF ATTRB=(ASKIP,NORM), -
115 COLOR=PINK, -
116 LENGTH=1, -
117 POS=(9,14), -
118 INITIAL=' '
119 DFHMDF ATTRB=(ASKIP,NORM), -
120 COLOR=TURQUOISE, -
121 LENGTH=12, -
122 POS=(9,18), -
123 INITIAL='Resp Reason:'
124AUTHRSN DFHMDF ATTRB=(ASKIP,NORM), -
125 COLOR=BLUE, -
126 LENGTH=20, -
127 POS=(9,32), -
128 INITIAL=' '
129 DFHMDF ATTRB=(ASKIP,NORM), -
130 COLOR=TURQUOISE, -
131 LENGTH=10, -
132 POS=(9,56), -
133 INITIAL='Auth Code:'
134AUTHCD DFHMDF ATTRB=(ASKIP,NORM), -
135 COLOR=BLUE, -
136 LENGTH=6, -
137 POS=(9,68), -
138 INITIAL=' '
139 DFHMDF ATTRB=(ASKIP,NORM), -
140 COLOR=TURQUOISE, -
141 LENGTH=7, -
142 POS=(11,2), -
143 INITIAL='Amount:'
144AUTHAMT DFHMDF ATTRB=(ASKIP,NORM), -
145 COLOR=BLUE, -
146 LENGTH=12, -
147 POS=(11,11), -
148 INITIAL=' '
149 DFHMDF ATTRB=(ASKIP,NORM), -
150 COLOR=TURQUOISE, -
151 LENGTH=15, -
152 POS=(11,29), -
153 INITIAL='POS Entry Mode:'
154POSEMD DFHMDF ATTRB=(ASKIP,NORM), -
155 COLOR=BLUE, -
156 LENGTH=4, -
157 POS=(11,46), -
158 INITIAL=' '
159 DFHMDF ATTRB=(ASKIP,NORM), -
160 COLOR=TURQUOISE, -
161 LENGTH=10, -
162 POS=(11,56), -
163 INITIAL='Source :'
164AUTHSRC DFHMDF ATTRB=(ASKIP,NORM), -
165 COLOR=BLUE, -
166 LENGTH=10, -
167 POS=(11,68), -
168 INITIAL=' '
169 DFHMDF ATTRB=(ASKIP,NORM), -
170 COLOR=TURQUOISE, -
171 LENGTH=9, -
172 POS=(13,2), -
173 INITIAL='MCC Code:'
174MCCCD DFHMDF ATTRB=(ASKIP,NORM), -
175 COLOR=BLUE, -
176 LENGTH=4, -
177 POS=(13,13), -
178 INITIAL=' '
179 DFHMDF ATTRB=(ASKIP,NORM), -
180 COLOR=TURQUOISE, -
181 LENGTH=15, -
182 POS=(13,25), -
183 INITIAL='Card Exp. Date:'
184CRDEXP DFHMDF ATTRB=(ASKIP,NORM), -
185 COLOR=BLUE, -
186 LENGTH=5, -
187 POS=(13,42), -
188 INITIAL=' '
189 DFHMDF ATTRB=(ASKIP,NORM), -
190 COLOR=TURQUOISE, -
191 LENGTH=10, -
192 POS=(13,52), -
193 INITIAL='Auth Type:'
194AUTHTYP DFHMDF ATTRB=(ASKIP,NORM), -
195 COLOR=BLUE, -
196 LENGTH=14, -
197 POS=(13,64), -
198 INITIAL=' '
199 DFHMDF ATTRB=(ASKIP,NORM), -
200 COLOR=TURQUOISE, -
201 LENGTH=18, -
202 POS=(15,2), -
203 INITIAL='Tran Id:'
204TRNID DFHMDF ATTRB=(ASKIP,NORM), -
205 COLOR=BLUE, -
206 LENGTH=15, -
207 POS=(15,12), -
208 INITIAL=' '
209 DFHMDF ATTRB=(ASKIP,NORM), -
210 COLOR=TURQUOISE, -
211 LENGTH=13, -
212 POS=(15,31), -
213 INITIAL='Match Status:'
214AUTHMTC DFHMDF ATTRB=(ASKIP,NORM), -
215 COLOR=RED, -
216 LENGTH=1, -
217 POS=(15,46), -
218 INITIAL=' '
219 DFHMDF ATTRB=(ASKIP,NORM), -
220 COLOR=TURQUOISE, -
221 LENGTH=13, -
222 POS=(15,52), -
223 INITIAL='Fraud Status:'
224AUTHFRD DFHMDF ATTRB=(ASKIP,NORM), -
225 COLOR=RED, -
226 LENGTH=10, -
227 POS=(15,67), -
228 INITIAL=' '
229 DFHMDF COLOR=NEUTRAL, -
230 LENGTH=76, -
231 POS=(17,2), -
232 INITIAL='Merchant Details -------------------------------
233 -----------------------------'
234 DFHMDF ATTRB=(ASKIP,NORM), -
235 COLOR=TURQUOISE, -
236 LENGTH=5, -
237 POS=(19,2), -
238 INITIAL='Name:'
239MERNAME DFHMDF ATTRB=(ASKIP,NORM), -
240 COLOR=BLUE, -
241 LENGTH=25, -
242 POS=(19,9), -
243 INITIAL=' '
244 DFHMDF ATTRB=(ASKIP,NORM), -
245 COLOR=TURQUOISE, -
246 LENGTH=12, -
247 POS=(19,41), -
248 INITIAL='Merchant ID:'
249MERID DFHMDF ATTRB=(ASKIP,NORM), -
250 COLOR=BLUE, -
251 LENGTH=15, -
252 POS=(19,55), -
253 INITIAL=' '
254 DFHMDF ATTRB=(ASKIP,NORM), -
255 COLOR=TURQUOISE, -
256 LENGTH=5, -
257 POS=(21,2), -
258 INITIAL='City:'
259MERCITY DFHMDF ATTRB=(ASKIP,NORM), -
260 COLOR=BLUE, -
261 LENGTH=25, -
262 POS=(21,9), -
263 INITIAL=' '
264 DFHMDF ATTRB=(ASKIP,NORM), -
265 COLOR=TURQUOISE, -
266 LENGTH=6, -
267 POS=(21,41), -
268 INITIAL='State:'
269MERST DFHMDF ATTRB=(ASKIP,NORM), -
270 COLOR=BLUE, -
271 LENGTH=2, -
272 POS=(21,49), -
273 INITIAL=' '
274 DFHMDF ATTRB=(ASKIP,NORM), -
275 COLOR=TURQUOISE, -
276 LENGTH=4, -
277 POS=(21,55), -
278 INITIAL='Zip:'
279MERZIP DFHMDF ATTRB=(ASKIP,NORM), -
280 COLOR=BLUE, -
281 LENGTH=10, -
282 POS=(21,61), -
283 INITIAL=' '
284ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
285 COLOR=RED, -
286 LENGTH=78, -
287 POS=(23,1)
288 DFHMDF ATTRB=(ASKIP,NORM), -
289 COLOR=YELLOW, -
290 LENGTH=45, -
291 POS=(24,1), -
292 INITIAL=' F3=Back F5=Mark/Remove Fraud F8=Next Auth'
293 DFHMSD TYPE=FINAL
294 END