MFmainframe-rea
WS carddemo · 26f629ef

bms · 512 lines · sha256 60b261bd2d0c6c85app/bms/COACTUP.bms

1***********************************************************************
2* CardDemo - Account Update 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******************************************************************
19 TITLE 'BMS MAP FOR ACCOUNT UPDATE'
20COACTUP DFHMSD LANG=COBOL, -
21 MODE=INOUT, -
22 STORAGE=AUTO, -
23 TIOAPFX=YES, -
24 TYPE=&&SYSPARM
25CACTUPA DFHMDI CTRL=(FREEKB), -
26 DSATTS=(COLOR,HILIGHT,PS,VALIDN), -
27 MAPATTS=(COLOR,HILIGHT,PS,VALIDN), -
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,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 COLOR=NEUTRAL, -
76 LENGTH=14, -
77 POS=(4,33), -
78 INITIAL='Update Account'
79 DFHMDF ATTRB=(ASKIP,NORM), -
80 COLOR=TURQUOISE, -
81 LENGTH=16, -
82 POS=(5,19), -
83 INITIAL='Account Number :'
84ACCTSID DFHMDF ATTRB=(IC,UNPROT), -
85 HILIGHT=UNDERLINE, -
86 LENGTH=11, -
87 POS=(5,38)
88 DFHMDF LENGTH=0, -
89 POS=(5,50)
90 DFHMDF COLOR=TURQUOISE, -
91 LENGTH=12, -
92 POS=(5,57), -
93 INITIAL='Active Y/N: '
94ACSTTUS DFHMDF ATTRB=(UNPROT), -
95 HILIGHT=UNDERLINE, -
96 LENGTH=1, -
97 POS=(5,70)
98 DFHMDF LENGTH=0, -
99 POS=(5,72)
100 DFHMDF COLOR=TURQUOISE, -
101 LENGTH=8, -
102 POS=(6,8), -
103 INITIAL='Opened :'
104OPNYEAR DFHMDF ATTRB=(FSET,UNPROT), -
105 HILIGHT=UNDERLINE, -
106 JUSTIFY=(RIGHT), -
107 LENGTH=4, -
108 POS=(6,17)
109 DFHMDF LENGTH=1, -
110 POS=(6,22), -
111 INITIAL='-'
112OPNMON DFHMDF ATTRB=(UNPROT), -
113 HILIGHT=UNDERLINE, -
114 JUSTIFY=(RIGHT), -
115 LENGTH=2, -
116 POS=(6,24)
117 DFHMDF LENGTH=1, -
118 POS=(6,27), -
119 INITIAL='-'
120OPNDAY DFHMDF ATTRB=(UNPROT), -
121 HILIGHT=UNDERLINE, -
122 JUSTIFY=(RIGHT), -
123 LENGTH=2, -
124 POS=(6,29)
125 DFHMDF LENGTH=0, -
126 POS=(6,32)
127 DFHMDF ATTRB=(ASKIP,NORM), -
128 COLOR=TURQUOISE, -
129 LENGTH=21, -
130 POS=(6,39), -
131 INITIAL='Credit Limit :'
132ACRDLIM DFHMDF ATTRB=(FSET,UNPROT), -
133 HILIGHT=UNDERLINE, -
134 LENGTH=15, -
135 POS=(6,61)
136 DFHMDF LENGTH=0, -
137 POS=(6,77)
138 DFHMDF COLOR=TURQUOISE, -
139 LENGTH=8, -
140 POS=(7,8), -
141 INITIAL='Expiry :'
142EXPYEAR DFHMDF ATTRB=(UNPROT), -
143 HILIGHT=UNDERLINE, -
144 JUSTIFY=(RIGHT), -
145 LENGTH=4, -
146 POS=(7,17)
147 DFHMDF LENGTH=1, -
148 POS=(7,22), -
149 INITIAL='-'
150EXPMON DFHMDF ATTRB=(UNPROT), -
151 HILIGHT=UNDERLINE, -
152 JUSTIFY=(RIGHT), -
153 LENGTH=2, -
154 POS=(7,24)
155 DFHMDF LENGTH=1, -
156 POS=(7,27), -
157 INITIAL='-'
158EXPDAY DFHMDF ATTRB=(UNPROT), -
159 HILIGHT=UNDERLINE, -
160 JUSTIFY=(RIGHT), -
161 LENGTH=2, -
162 POS=(7,29)
163 DFHMDF LENGTH=0, -
164 POS=(7,32)
165 DFHMDF ATTRB=(ASKIP,NORM), -
166 COLOR=TURQUOISE, -
167 LENGTH=21, -
168 POS=(7,39), -
169 INITIAL='Cash credit Limit :'
170ACSHLIM DFHMDF ATTRB=(FSET,UNPROT), -
171 HILIGHT=UNDERLINE, -
172 LENGTH=15, -
173 POS=(7,61)
174 DFHMDF LENGTH=0, -
175 POS=(7,77)
176 DFHMDF COLOR=TURQUOISE, -
177 LENGTH=8, -
178 POS=(8,8), -
179 INITIAL='Reissue:'
180RISYEAR DFHMDF ATTRB=(UNPROT), -
181 HILIGHT=UNDERLINE, -
182 JUSTIFY=(RIGHT), -
183 LENGTH=4, -
184 POS=(8,17)
185 DFHMDF LENGTH=1, -
186 POS=(8,22), -
187 INITIAL='-'
188RISMON DFHMDF ATTRB=(UNPROT), -
189 HILIGHT=UNDERLINE, -
190 JUSTIFY=(RIGHT), -
191 LENGTH=2, -
192 POS=(8,24)
193 DFHMDF LENGTH=1, -
194 POS=(8,27), -
195 INITIAL='-'
196RISDAY DFHMDF ATTRB=(UNPROT), -
197 HILIGHT=UNDERLINE, -
198 JUSTIFY=(RIGHT), -
199 LENGTH=2, -
200 POS=(8,29)
201 DFHMDF LENGTH=0, -
202 POS=(8,32)
203 DFHMDF ATTRB=(ASKIP,NORM), -
204 COLOR=TURQUOISE, -
205 LENGTH=21, -
206 POS=(8,39), -
207 INITIAL='Current Balance :'
208ACURBAL DFHMDF ATTRB=(FSET,UNPROT), -
209 HILIGHT=UNDERLINE, -
210 LENGTH=15, -
211 POS=(8,61)
212 DFHMDF LENGTH=0, -
213 POS=(8,77)
214 DFHMDF ATTRB=(ASKIP,NORM), -
215 COLOR=TURQUOISE, -
216 LENGTH=21, -
217 POS=(9,39), -
218 INITIAL='Current Cycle Credit:'
219ACRCYCR DFHMDF ATTRB=(FSET,UNPROT), -
220 HILIGHT=UNDERLINE, -
221 LENGTH=15, -
222 POS=(9,61)
223 DFHMDF LENGTH=0, -
224 POS=(9,77)
225 DFHMDF COLOR=TURQUOISE, -
226 LENGTH=14, -
227 POS=(10,8), -
228 INITIAL='Account Group:'
229AADDGRP DFHMDF ATTRB=(UNPROT), -
230 HILIGHT=UNDERLINE, -
231 LENGTH=10, -
232 POS=(10,23)
233 DFHMDF LENGTH=0, -
234 POS=(10,34)
235 DFHMDF ATTRB=(ASKIP,NORM), -
236 COLOR=TURQUOISE, -
237 LENGTH=21, -
238 POS=(10,39), -
239 INITIAL='Current Cycle Debit :'
240ACRCYDB DFHMDF ATTRB=(FSET,UNPROT), -
241 HILIGHT=UNDERLINE, -
242 LENGTH=15, -
243 POS=(10,61)
244 DFHMDF LENGTH=0, -
245 POS=(10,77)
246 DFHMDF COLOR=NEUTRAL, -
247 LENGTH=16, -
248 POS=(11,32), -
249 INITIAL='Customer Details'
250 DFHMDF COLOR=TURQUOISE, -
251 LENGTH=14, -
252 POS=(12,8), -
253 INITIAL='Customer id :'
254ACSTNUM DFHMDF ATTRB=(UNPROT), -
255 HILIGHT=UNDERLINE, -
256 LENGTH=9, -
257 POS=(12,23)
258 DFHMDF LENGTH=0, -
259 POS=(12,33)
260 DFHMDF COLOR=TURQUOISE, -
261 LENGTH=4, -
262 POS=(12,49), -
263 INITIAL='SSN:'
264ACTSSN1 DFHMDF ATTRB=(UNPROT), -
265 HILIGHT=UNDERLINE, -
266 LENGTH=3, -
267 POS=(12,55), -
268 INITIAL='999'
269 DFHMDF LENGTH=1, -
270 POS=(12,59), -
271 INITIAL='-'
272ACTSSN2 DFHMDF ATTRB=(UNPROT), -
273 HILIGHT=UNDERLINE, -
274 LENGTH=2, -
275 POS=(12,61), -
276 INITIAL='99'
277 DFHMDF LENGTH=1, -
278 POS=(12,64), -
279 INITIAL='-'
280ACTSSN3 DFHMDF ATTRB=(UNPROT), -
281 HILIGHT=UNDERLINE, -
282 LENGTH=4, -
283 POS=(12,66), -
284 INITIAL='9999'
285 DFHMDF LENGTH=0, -
286 POS=(12,71)
287 DFHMDF COLOR=TURQUOISE, -
288 LENGTH=14, -
289 POS=(13,8), -
290 INITIAL='Date of birth:'
291DOBYEAR DFHMDF ATTRB=(UNPROT), -
292 HILIGHT=UNDERLINE, -
293 JUSTIFY=(RIGHT), -
294 LENGTH=4, -
295 POS=(13,23)
296 DFHMDF LENGTH=1, -
297 POS=(13,28), -
298 INITIAL='-'
299DOBMON DFHMDF ATTRB=(UNPROT), -
300 HILIGHT=UNDERLINE, -
301 JUSTIFY=(RIGHT), -
302 LENGTH=2, -
303 POS=(13,30)
304 DFHMDF LENGTH=1, -
305 POS=(13,33), -
306 INITIAL='-'
307DOBDAY DFHMDF ATTRB=(UNPROT), -
308 HILIGHT=UNDERLINE, -
309 JUSTIFY=(RIGHT), -
310 LENGTH=2, -
311 POS=(13,35)
312 DFHMDF LENGTH=0, -
313 POS=(13,38)
314 DFHMDF COLOR=TURQUOISE, -
315 LENGTH=11, -
316 POS=(13,49), -
317 INITIAL='FICO Score:'
318ACSTFCO DFHMDF ATTRB=(UNPROT), -
319 HILIGHT=UNDERLINE, -
320 LENGTH=3, -
321 POS=(13,62)
322 DFHMDF LENGTH=0, -
323 POS=(13,66)
324 DFHMDF COLOR=TURQUOISE, -
325 LENGTH=10, -
326 POS=(14,1), -
327 INITIAL='First Name'
328 DFHMDF COLOR=TURQUOISE, -
329 LENGTH=13, -
330 POS=(14,28), -
331 INITIAL='Middle Name: '
332 DFHMDF COLOR=TURQUOISE, -
333 LENGTH=12, -
334 POS=(14,55), -
335 INITIAL='Last Name : '
336ACSFNAM DFHMDF ATTRB=(UNPROT), -
337 HILIGHT=UNDERLINE, -
338 LENGTH=25, -
339 POS=(15,1)
340 DFHMDF LENGTH=0, -
341 POS=(15,27)
342ACSMNAM DFHMDF ATTRB=(UNPROT), -
343 HILIGHT=UNDERLINE, -
344 LENGTH=25, -
345 POS=(15,28)
346 DFHMDF LENGTH=0, -
347 POS=(15,54)
348ACSLNAM DFHMDF ATTRB=(UNPROT), -
349 HILIGHT=UNDERLINE, -
350 LENGTH=25, -
351 POS=(15,55)
352 DFHMDF COLOR=TURQUOISE, -
353 LENGTH=8, -
354 POS=(16,1), -
355 INITIAL='Address:'
356ACSADL1 DFHMDF ATTRB=(UNPROT), -
357 HILIGHT=UNDERLINE, -
358 LENGTH=50, -
359 POS=(16,10)
360 DFHMDF LENGTH=0, -
361 POS=(16,61)
362 DFHMDF COLOR=TURQUOISE, -
363 LENGTH=6, -
364 POS=(16,63), -
365 INITIAL='State '
366ACSSTTE DFHMDF ATTRB=(UNPROT), -
367 HILIGHT=UNDERLINE, -
368 LENGTH=2, -
369 POS=(16,73)
370 DFHMDF LENGTH=0, -
371 POS=(16,76)
372ACSADL2 DFHMDF ATTRB=(UNPROT), -
373 HILIGHT=UNDERLINE, -
374 LENGTH=50, -
375 POS=(17,10)
376 DFHMDF LENGTH=0, -
377 POS=(17,61)
378 DFHMDF COLOR=TURQUOISE, -
379 LENGTH=3, -
380 POS=(17,63), -
381 INITIAL='Zip'
382ACSZIPC DFHMDF ATTRB=(UNPROT), -
383 HILIGHT=UNDERLINE, -
384 LENGTH=5, -
385 POS=(17,73)
386 DFHMDF LENGTH=0, -
387 POS=(17,79)
388 DFHMDF COLOR=TURQUOISE, -
389 LENGTH=5, -
390 POS=(18,1), -
391 INITIAL='City '
392ACSCITY DFHMDF ATTRB=(UNPROT), -
393 HILIGHT=UNDERLINE, -
394 LENGTH=50, -
395 POS=(18,10)
396 DFHMDF LENGTH=0, -
397 POS=(18,61)
398 DFHMDF COLOR=TURQUOISE, -
399 LENGTH=7, -
400 POS=(18,63), -
401 INITIAL='Country'
402ACSCTRY DFHMDF ATTRB=(UNPROT), -
403 HILIGHT=UNDERLINE, -
404 LENGTH=3, -
405 POS=(18,73)
406 DFHMDF LENGTH=0, -
407 POS=(18,77)
408 DFHMDF COLOR=TURQUOISE, -
409 LENGTH=8, -
410 POS=(19,1), -
411 INITIAL='Phone 1:'
412ACSPH1A DFHMDF ATTRB=(UNPROT), -
413 HILIGHT=UNDERLINE, -
414 JUSTIFY=(RIGHT), -
415 LENGTH=3, -
416 POS=(19,10)
417ACSPH1B DFHMDF ATTRB=(UNPROT), -
418 HILIGHT=UNDERLINE, -
419 JUSTIFY=(RIGHT), -
420 LENGTH=3, -
421 POS=(19,14)
422ACSPH1C DFHMDF ATTRB=(UNPROT), -
423 HILIGHT=UNDERLINE, -
424 JUSTIFY=(RIGHT), -
425 LENGTH=4, -
426 POS=(19,18)
427 DFHMDF LENGTH=0, -
428 POS=(19,23)
429 DFHMDF COLOR=TURQUOISE, -
430 LENGTH=30, -
431 POS=(19,24), -
432 INITIAL='Government Issued Id Ref : '
433ACSGOVT DFHMDF ATTRB=(UNPROT), -
434 HILIGHT=UNDERLINE, -
435 LENGTH=20, -
436 POS=(19,58)
437 DFHMDF LENGTH=0, -
438 POS=(19,79)
439 DFHMDF COLOR=TURQUOISE, -
440 LENGTH=8, -
441 POS=(20,1), -
442 INITIAL='Phone 2:'
443ACSPH2A DFHMDF ATTRB=(UNPROT), -
444 HILIGHT=UNDERLINE, -
445 JUSTIFY=(RIGHT), -
446 LENGTH=3, -
447 POS=(20,10)
448ACSPH2B DFHMDF ATTRB=(UNPROT), -
449 HILIGHT=UNDERLINE, -
450 JUSTIFY=(RIGHT), -
451 LENGTH=3, -
452 POS=(20,14)
453ACSPH2C DFHMDF ATTRB=(UNPROT), -
454 HILIGHT=UNDERLINE, -
455 JUSTIFY=(RIGHT), -
456 LENGTH=4, -
457 POS=(20,18)
458 DFHMDF LENGTH=0, -
459 POS=(20,23)
460 DFHMDF COLOR=TURQUOISE, -
461 LENGTH=16, -
462 POS=(20,24), -
463 INITIAL='EFT Account Id: '
464ACSEFTC DFHMDF ATTRB=(UNPROT), -
465 HILIGHT=UNDERLINE, -
466 LENGTH=10, -
467 POS=(20,41)
468 DFHMDF LENGTH=0, -
469 POS=(20,52)
470 DFHMDF COLOR=TURQUOISE, -
471 LENGTH=24, -
472 POS=(20,53), -
473 INITIAL='Primary Card Holder Y/N:'
474ACSPFLG DFHMDF ATTRB=(UNPROT), -
475 HILIGHT=UNDERLINE, -
476 LENGTH=1, -
477 POS=(20,78)
478 DFHMDF LENGTH=0, -
479 POS=(20,80)
480INFOMSG DFHMDF ATTRB=(ASKIP), -
481 COLOR=NEUTRAL, -
482 HILIGHT=OFF, -
483 LENGTH=45, -
484 POS=(22,23)
485 DFHMDF LENGTH=0, -
486 POS=(22,69)
487 DFHMDF LENGTH=9, -
488 POS=(1,1)
489ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
490 COLOR=RED, -
491 LENGTH=78, -
492 POS=(23,1)
493FKEYS DFHMDF ATTRB=(ASKIP,NORM), -
494 COLOR=YELLOW, -
495 LENGTH=21, -
496 POS=(24,1), -
497 INITIAL='ENTER=Process F3=Exit'
498FKEY05 DFHMDF ATTRB=(ASKIP,DRK), -
499 COLOR=YELLOW, -
500 LENGTH=7, -
501 POS=(24,23), -
502 INITIAL='F5=Save'
503FKEY12 DFHMDF ATTRB=(ASKIP,DRK), -
504 COLOR=YELLOW, -
505 LENGTH=10, -
506 POS=(24,31), -
507 INITIAL='F12=Cancel'
508 DFHMSD TYPE=FINAL
509 END
510*
511* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:42 CDT
512*