MFmainframe-rea
WS carddemo · 26f629ef

bms · 515 lines · sha256 402516c3203e3940app/app-authorization-ims-db2-mq/bms/COPAU00.bms

1***********************************************************************
2* CardDemo - Pending Authorization 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******************************************************************
19COPAU00 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COPAU0A 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,FSET,NORM), -
35 COLOR=BLUE, -
36 LENGTH=4, -
37 POS=(1,7)
38TITLE01 DFHMDF ATTRB=(ASKIP,FSET,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,FSET,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,FSET,NORM), -
58 COLOR=BLUE, -
59 LENGTH=8, -
60 POS=(2,7)
61TITLE02 DFHMDF ATTRB=(ASKIP,FSET,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,FSET,NORM), -
71 COLOR=BLUE, -
72 LENGTH=8, -
73 POS=(2,71), -
74 INITIAL='hh:mm:ss'
75 DFHMDF COLOR=NEUTRAL, -
76 LENGTH=19, -
77 POS=(3,30), -
78 INITIAL='View Authorizations'
79 DFHMDF ATTRB=(ASKIP,NORM), -
80 COLOR=TURQUOISE, -
81 LENGTH=15, -
82 POS=(5,3), -
83 INITIAL='Search Acct Id:'
84ACCTID DFHMDF ATTRB=(FSET,NORM,UNPROT), -
85 COLOR=GREEN, -
86 HILIGHT=UNDERLINE, -
87 LENGTH=11, -
88 POS=(5,19)
89 DFHMDF ATTRB=(ASKIP,NORM), -
90 LENGTH=0, -
91 POS=(5,31)
92 DFHMDF COLOR=DEFAULT, -
93 LENGTH=6, -
94 POS=(6,3), -
95 INITIAL='Name: '
96CNAME DFHMDF ATTRB=(ASKIP,NORM), -
97 COLOR=BLUE, -
98 LENGTH=25, -
99 POS=(6,10)
100 DFHMDF LENGTH=13, -
101 POS=(6,44), -
102 INITIAL='Customer Id: '
103CUSTID DFHMDF ATTRB=(ASKIP,NORM), -
104 COLOR=BLUE, -
105 LENGTH=9, -
106 POS=(6,58)
107ADDR001 DFHMDF ATTRB=(ASKIP,NORM), -
108 COLOR=BLUE, -
109 LENGTH=25, -
110 POS=(7,10)
111 DFHMDF LENGTH=13, -
112 POS=(7,44), -
113 INITIAL='Acct Status: '
114ACCSTAT DFHMDF ATTRB=(ASKIP,NORM), -
115 COLOR=BLUE, -
116 LENGTH=1, -
117 POS=(7,58)
118ADDR002 DFHMDF ATTRB=(ASKIP,NORM), -
119 COLOR=BLUE, -
120 LENGTH=25, -
121 POS=(8,10)
122 DFHMDF LENGTH=3, -
123 POS=(9,10), -
124 INITIAL='PH:'
125PHONE1 DFHMDF ATTRB=(ASKIP,NORM), -
126 COLOR=BLUE, -
127 LENGTH=13, -
128 POS=(9,15)
129 DFHMDF LENGTH=13, -
130 POS=(9,44), -
131 INITIAL='Approval # : '
132APPRCNT DFHMDF ATTRB=(ASKIP,NORM), -
133 COLOR=BLUE, -
134 LENGTH=3, -
135 POS=(9,58)
136 DFHMDF LENGTH=10, -
137 POS=(9,64), -
138 INITIAL='Decline #:'
139DECLCNT DFHMDF ATTRB=(ASKIP,NORM), -
140 COLOR=BLUE, -
141 LENGTH=3, -
142 POS=(9,76)
143 DFHMDF COLOR=DEFAULT, -
144 LENGTH=11, -
145 POS=(11,6), -
146 INITIAL='Credit Lim:'
147CREDLIM DFHMDF ATTRB=(ASKIP,FSET,NORM), -
148 COLOR=BLUE, -
149 LENGTH=12, -
150 POS=(11,19), -
151 INITIAL=' '
152 DFHMDF COLOR=DEFAULT, -
153 LENGTH=9, -
154 POS=(11,35), -
155 INITIAL='Cash Lim:'
156CASHLIM DFHMDF ATTRB=(ASKIP,FSET,NORM), -
157 COLOR=BLUE, -
158 LENGTH=9, -
159 POS=(11,46), -
160 INITIAL=' '
161 DFHMDF COLOR=DEFAULT, -
162 LENGTH=9, -
163 POS=(11,58), -
164 INITIAL='Appr Amt:'
165APPRAMT DFHMDF ATTRB=(ASKIP,FSET,NORM), -
166 COLOR=BLUE, -
167 LENGTH=10, -
168 POS=(11,69), -
169 INITIAL=' '
170 DFHMDF COLOR=DEFAULT, -
171 LENGTH=11, -
172 POS=(12,6), -
173 INITIAL='Credit Bal:'
174CREDBAL DFHMDF ATTRB=(ASKIP,FSET,NORM), -
175 COLOR=BLUE, -
176 LENGTH=12, -
177 POS=(12,19), -
178 INITIAL=' '
179 DFHMDF COLOR=DEFAULT, -
180 LENGTH=9, -
181 POS=(12,35), -
182 INITIAL='Cash Bal:'
183CASHBAL DFHMDF ATTRB=(ASKIP,FSET,NORM), -
184 COLOR=BLUE, -
185 LENGTH=9, -
186 POS=(12,46), -
187 INITIAL=' '
188 DFHMDF COLOR=DEFAULT, -
189 LENGTH=9, -
190 POS=(12,58), -
191 INITIAL='Decl Amt:'
192DECLAMT DFHMDF ATTRB=(ASKIP,FSET,NORM), -
193 COLOR=BLUE, -
194 LENGTH=10, -
195 POS=(12,69), -
196 INITIAL=' '
197 DFHMDF ATTRB=(ASKIP,NORM), -
198 COLOR=NEUTRAL, -
199 LENGTH=3, -
200 POS=(14,2), -
201 INITIAL='Sel'
202 DFHMDF ATTRB=(ASKIP,NORM), -
203 COLOR=NEUTRAL, -
204 LENGTH=16, -
205 POS=(14,8), -
206 INITIAL=' Transaction ID '
207 DFHMDF ATTRB=(ASKIP,NORM), -
208 COLOR=NEUTRAL, -
209 LENGTH=8, -
210 POS=(14,27), -
211 INITIAL=' Date '
212 DFHMDF ATTRB=(ASKIP,NORM), -
213 COLOR=NEUTRAL, -
214 LENGTH=8, -
215 POS=(14,38), -
216 INITIAL=' Time '
217 DFHMDF ATTRB=(ASKIP,NORM), -
218 COLOR=NEUTRAL, -
219 LENGTH=5, -
220 POS=(14,49), -
221 INITIAL='Type '
222 DFHMDF ATTRB=(ASKIP,NORM), -
223 COLOR=NEUTRAL, -
224 LENGTH=3, -
225 POS=(14,56), -
226 INITIAL='A/D'
227 DFHMDF ATTRB=(ASKIP,NORM), -
228 COLOR=NEUTRAL, -
229 LENGTH=3, -
230 POS=(14,61), -
231 INITIAL='STS'
232 DFHMDF ATTRB=(ASKIP,NORM), -
233 COLOR=NEUTRAL, -
234 LENGTH=12, -
235 POS=(14,67), -
236 INITIAL=' Amount '
237 DFHMDF ATTRB=(ASKIP,NORM), -
238 COLOR=NEUTRAL, -
239 LENGTH=3, -
240 POS=(15,2), -
241 INITIAL='---'
242 DFHMDF ATTRB=(ASKIP,NORM), -
243 COLOR=NEUTRAL, -
244 LENGTH=16, -
245 POS=(15,8), -
246 INITIAL='----------------'
247 DFHMDF ATTRB=(ASKIP,NORM), -
248 COLOR=NEUTRAL, -
249 LENGTH=8, -
250 POS=(15,27), -
251 INITIAL='--------'
252 DFHMDF ATTRB=(ASKIP,NORM), -
253 COLOR=NEUTRAL, -
254 LENGTH=8, -
255 POS=(15,37), -
256 INITIAL='--------'
257 DFHMDF ATTRB=(ASKIP,NORM), -
258 COLOR=NEUTRAL, -
259 LENGTH=4, -
260 POS=(15,49), -
261 INITIAL='----'
262 DFHMDF ATTRB=(ASKIP,NORM), -
263 COLOR=NEUTRAL, -
264 LENGTH=3, -
265 POS=(15,56), -
266 INITIAL='---'
267 DFHMDF ATTRB=(ASKIP,NORM), -
268 COLOR=NEUTRAL, -
269 LENGTH=3, -
270 POS=(15,61), -
271 INITIAL='---'
272 DFHMDF ATTRB=(ASKIP,NORM), -
273 COLOR=NEUTRAL, -
274 LENGTH=12, -
275 POS=(15,67), -
276 INITIAL='------------'
277SEL0001 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
278 COLOR=GREEN, -
279 HILIGHT=UNDERLINE, -
280 LENGTH=1, -
281 POS=(16,3), -
282 INITIAL=' '
283 DFHMDF ATTRB=(ASKIP,NORM), -
284 LENGTH=0, -
285 POS=(16,5)
286TRNID01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
287 COLOR=BLUE, -
288 LENGTH=16, -
289 POS=(16,8), -
290 INITIAL=' '
291PDATE01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
292 COLOR=BLUE, -
293 LENGTH=8, -
294 POS=(16,27), -
295 INITIAL=' '
296PTIME01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
297 COLOR=BLUE, -
298 LENGTH=8, -
299 POS=(16,38), -
300 INITIAL=' '
301PTYPE01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
302 COLOR=BLUE, -
303 LENGTH=4, -
304 POS=(16,49), -
305 INITIAL=' '
306PAPRV01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
307 COLOR=BLUE, -
308 LENGTH=1, -
309 POS=(16,58), -
310 INITIAL=' '
311PSTAT01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
312 COLOR=BLUE, -
313 LENGTH=1, -
314 POS=(16,63), -
315 INITIAL=' '
316PAMT001 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
317 COLOR=BLUE, -
318 LENGTH=12, -
319 POS=(16,67), -
320 INITIAL=' '
321SEL0002 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
322 COLOR=GREEN, -
323 HILIGHT=UNDERLINE, -
324 LENGTH=1, -
325 POS=(17,3), -
326 INITIAL=' '
327 DFHMDF ATTRB=(ASKIP,NORM), -
328 LENGTH=0, -
329 POS=(17,5)
330TRNID02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
331 COLOR=BLUE, -
332 LENGTH=16, -
333 POS=(17,8), -
334 INITIAL=' '
335PDATE02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
336 COLOR=BLUE, -
337 LENGTH=8, -
338 POS=(17,27), -
339 INITIAL=' '
340PTIME02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
341 COLOR=BLUE, -
342 LENGTH=8, -
343 POS=(17,38), -
344 INITIAL=' '
345PTYPE02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
346 COLOR=BLUE, -
347 LENGTH=4, -
348 POS=(17,49), -
349 INITIAL=' '
350PAPRV02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
351 COLOR=BLUE, -
352 LENGTH=1, -
353 POS=(17,58), -
354 INITIAL=' '
355PSTAT02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
356 COLOR=BLUE, -
357 LENGTH=1, -
358 POS=(17,63), -
359 INITIAL=' '
360PAMT002 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
361 COLOR=BLUE, -
362 LENGTH=12, -
363 POS=(17,67), -
364 INITIAL=' '
365SEL0003 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
366 COLOR=GREEN, -
367 HILIGHT=UNDERLINE, -
368 LENGTH=1, -
369 POS=(18,3), -
370 INITIAL=' '
371 DFHMDF ATTRB=(ASKIP,NORM), -
372 LENGTH=0, -
373 POS=(18,5)
374TRNID03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
375 COLOR=BLUE, -
376 LENGTH=16, -
377 POS=(18,8), -
378 INITIAL=' '
379PDATE03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
380 COLOR=BLUE, -
381 LENGTH=8, -
382 POS=(18,27), -
383 INITIAL=' '
384PTIME03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
385 COLOR=BLUE, -
386 LENGTH=8, -
387 POS=(18,38), -
388 INITIAL=' '
389PTYPE03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
390 COLOR=BLUE, -
391 LENGTH=4, -
392 POS=(18,49), -
393 INITIAL=' '
394PAPRV03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
395 COLOR=BLUE, -
396 LENGTH=1, -
397 POS=(18,58), -
398 INITIAL=' '
399PSTAT03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
400 COLOR=BLUE, -
401 LENGTH=1, -
402 POS=(18,63), -
403 INITIAL=' '
404PAMT003 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
405 COLOR=BLUE, -
406 LENGTH=12, -
407 POS=(18,67), -
408 INITIAL=' '
409SEL0004 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
410 COLOR=GREEN, -
411 HILIGHT=UNDERLINE, -
412 LENGTH=1, -
413 POS=(19,3), -
414 INITIAL=' '
415 DFHMDF ATTRB=(ASKIP,NORM), -
416 LENGTH=0, -
417 POS=(19,5)
418TRNID04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
419 COLOR=BLUE, -
420 LENGTH=16, -
421 POS=(19,8), -
422 INITIAL=' '
423PDATE04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
424 COLOR=BLUE, -
425 LENGTH=8, -
426 POS=(19,27), -
427 INITIAL=' '
428PTIME04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
429 COLOR=BLUE, -
430 LENGTH=8, -
431 POS=(19,38), -
432 INITIAL=' '
433PTYPE04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
434 COLOR=BLUE, -
435 LENGTH=4, -
436 POS=(19,49), -
437 INITIAL=' '
438PAPRV04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
439 COLOR=BLUE, -
440 LENGTH=1, -
441 POS=(19,58), -
442 INITIAL=' '
443PSTAT04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
444 COLOR=BLUE, -
445 LENGTH=1, -
446 POS=(19,63), -
447 INITIAL=' '
448PAMT004 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
449 COLOR=BLUE, -
450 LENGTH=12, -
451 POS=(19,67), -
452 INITIAL=' '
453TRNID05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
454 COLOR=BLUE, -
455 LENGTH=16, -
456 POS=(20,8), -
457 INITIAL=' '
458PDATE05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
459 COLOR=BLUE, -
460 LENGTH=8, -
461 POS=(20,27), -
462 INITIAL=' '
463PTIME05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
464 COLOR=BLUE, -
465 LENGTH=8, -
466 POS=(20,38), -
467 INITIAL=' '
468PTYPE05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
469 COLOR=BLUE, -
470 LENGTH=4, -
471 POS=(20,49), -
472 INITIAL=' '
473PAPRV05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
474 COLOR=BLUE, -
475 LENGTH=1, -
476 POS=(20,58), -
477 INITIAL=' '
478PSTAT05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
479 COLOR=BLUE, -
480 LENGTH=1, -
481 POS=(20,63), -
482 INITIAL=' '
483PAMT005 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
484 COLOR=BLUE, -
485 LENGTH=12, -
486 POS=(20,67), -
487 INITIAL=' '
488SEL0005 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
489 COLOR=GREEN, -
490 HILIGHT=UNDERLINE, -
491 LENGTH=1, -
492 POS=(20,3), -
493 INITIAL=' '
494 DFHMDF ATTRB=(ASKIP,NORM), -
495 LENGTH=0, -
496 POS=(20,5)
497 DFHMDF ATTRB=(ASKIP,BRT), -
498 COLOR=NEUTRAL, -
499 LENGTH=52, -
500 POS=(22,12), -
501 INITIAL='Type ''S'' to View Authorization details from t-
502 he list'
503ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
504 COLOR=RED, -
505 LENGTH=78, -
506 POS=(23,1)
507 DFHMDF ATTRB=(ASKIP,NORM), -
508 COLOR=YELLOW, -
509 LENGTH=48, -
510 POS=(24,1), -
511 INITIAL='ENTER=Continue F3=Back F7=Backward F8=Forwar-
512 d'
513 DFHMSD TYPE=FINAL
514 END
515*