MFmainframe-rea
WS carddemo · 26f629ef

bms · 378 lines · sha256 e229c1b4c9d3f52aapp/bms/COACTVW.bms

1***********************************************************************
2* CardDemo - Account Viewer 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 VIEWING'
20COACTVW DFHMSD LANG=COBOL, -
21 MODE=INOUT, -
22 STORAGE=AUTO, -
23 TIOAPFX=YES, -
24 TYPE=&&SYSPARM
25CACTVWA 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=12, -
77 POS=(4,33), -
78 INITIAL='View Account'
79 DFHMDF ATTRB=(ASKIP,NORM), -
80 COLOR=TURQUOISE, -
81 LENGTH=16, -
82 POS=(5,19), -
83 INITIAL='Account Number :'
84ACCTSID DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
85 COLOR=GREEN, -
86 HILIGHT=UNDERLINE, -
87 LENGTH=11, -
88 PICIN='99999999999', -
89 POS=(5,38), -
90 VALIDN=(MUSTFILL)
91 DFHMDF LENGTH=0, -
92 POS=(5,50)
93 DFHMDF COLOR=TURQUOISE, -
94 LENGTH=12, -
95 POS=(5,57), -
96 INITIAL='Active Y/N: '
97ACSTTUS DFHMDF ATTRB=(ASKIP), -
98 HILIGHT=UNDERLINE, -
99 LENGTH=1, -
100 POS=(5,70)
101 DFHMDF LENGTH=0, -
102 POS=(5,72)
103 DFHMDF COLOR=TURQUOISE, -
104 LENGTH=7, -
105 POS=(6,8), -
106 INITIAL='Opened:'
107ADTOPEN DFHMDF HILIGHT=UNDERLINE, -
108 LENGTH=10, -
109 POS=(6,17)
110 DFHMDF LENGTH=0, -
111 POS=(6,28)
112 DFHMDF ATTRB=(ASKIP,NORM), -
113 COLOR=TURQUOISE, -
114 LENGTH=21, -
115 POS=(6,39), -
116 INITIAL='Credit Limit :'
117ACRDLIM DFHMDF HILIGHT=UNDERLINE, -
118 JUSTIFY=(RIGHT), -
119 LENGTH=15, -
120 PICOUT='+ZZZ,ZZZ,ZZZ.99', -
121 POS=(6,61)
122 DFHMDF LENGTH=0, -
123 POS=(6,77)
124 DFHMDF COLOR=TURQUOISE, -
125 LENGTH=7, -
126 POS=(7,8), -
127 INITIAL='Expiry:'
128AEXPDT DFHMDF HILIGHT=UNDERLINE, -
129 LENGTH=10, -
130 POS=(7,17)
131 DFHMDF LENGTH=0, -
132 POS=(7,28)
133 DFHMDF ATTRB=(ASKIP,NORM), -
134 COLOR=TURQUOISE, -
135 LENGTH=21, -
136 POS=(7,39), -
137 INITIAL='Cash credit Limit :'
138ACSHLIM DFHMDF HILIGHT=UNDERLINE, -
139 JUSTIFY=(RIGHT), -
140 LENGTH=15, -
141 PICOUT='+ZZZ,ZZZ,ZZZ.99', -
142 POS=(7,61)
143 DFHMDF LENGTH=0, -
144 POS=(7,77)
145 DFHMDF COLOR=TURQUOISE, -
146 LENGTH=8, -
147 POS=(8,8), -
148 INITIAL='Reissue:'
149AREISDT DFHMDF HILIGHT=UNDERLINE, -
150 LENGTH=10, -
151 POS=(8,17)
152 DFHMDF LENGTH=0, -
153 POS=(8,28)
154 DFHMDF ATTRB=(ASKIP,NORM), -
155 COLOR=TURQUOISE, -
156 LENGTH=21, -
157 POS=(8,39), -
158 INITIAL='Current Balance :'
159ACURBAL DFHMDF HILIGHT=UNDERLINE, -
160 JUSTIFY=(RIGHT), -
161 LENGTH=15, -
162 PICOUT='+ZZZ,ZZZ,ZZZ.99', -
163 POS=(8,61)
164 DFHMDF LENGTH=0, -
165 POS=(8,77)
166 DFHMDF ATTRB=(ASKIP,NORM), -
167 COLOR=TURQUOISE, -
168 LENGTH=21, -
169 POS=(9,39), -
170 INITIAL='Current Cycle Credit:'
171ACRCYCR DFHMDF HILIGHT=UNDERLINE, -
172 JUSTIFY=(RIGHT), -
173 LENGTH=15, -
174 PICOUT='+ZZZ,ZZZ,ZZZ.99', -
175 POS=(9,61)
176 DFHMDF LENGTH=0, -
177 POS=(9,77)
178 DFHMDF COLOR=TURQUOISE, -
179 LENGTH=14, -
180 POS=(10,8), -
181 INITIAL='Account Group:'
182AADDGRP DFHMDF HILIGHT=UNDERLINE, -
183 LENGTH=10, -
184 POS=(10,23)
185 DFHMDF LENGTH=0, -
186 POS=(10,34)
187 DFHMDF ATTRB=(ASKIP,NORM), -
188 COLOR=TURQUOISE, -
189 LENGTH=21, -
190 POS=(10,39), -
191 INITIAL='Current Cycle Debit :'
192ACRCYDB DFHMDF HILIGHT=UNDERLINE, -
193 JUSTIFY=(RIGHT), -
194 LENGTH=15, -
195 PICOUT='+ZZZ,ZZZ,ZZZ.99', -
196 POS=(10,61)
197 DFHMDF LENGTH=0, -
198 POS=(10,77)
199 DFHMDF COLOR=NEUTRAL, -
200 LENGTH=16, -
201 POS=(11,32), -
202 INITIAL='Customer Details'
203 DFHMDF COLOR=TURQUOISE, -
204 LENGTH=14, -
205 POS=(12,8), -
206 INITIAL='Customer id :'
207ACSTNUM DFHMDF HILIGHT=UNDERLINE, -
208 LENGTH=9, -
209 POS=(12,23)
210 DFHMDF LENGTH=0, -
211 POS=(12,33)
212 DFHMDF COLOR=TURQUOISE, -
213 LENGTH=4, -
214 POS=(12,49), -
215 INITIAL='SSN:'
216ACSTSSN DFHMDF HILIGHT=UNDERLINE, -
217 LENGTH=12, -
218 POS=(12,54)
219 DFHMDF LENGTH=0, -
220 POS=(12,67)
221 DFHMDF COLOR=TURQUOISE, -
222 LENGTH=14, -
223 POS=(13,8), -
224 INITIAL='Date of birth:'
225ACSTDOB DFHMDF HILIGHT=UNDERLINE, -
226 LENGTH=10, -
227 POS=(13,23)
228 DFHMDF LENGTH=0, -
229 POS=(13,34)
230 DFHMDF COLOR=TURQUOISE, -
231 LENGTH=11, -
232 POS=(13,49), -
233 INITIAL='FICO Score:'
234ACSTFCO DFHMDF HILIGHT=UNDERLINE, -
235 LENGTH=3, -
236 POS=(13,61)
237 DFHMDF LENGTH=0, -
238 POS=(13,65)
239 DFHMDF COLOR=TURQUOISE, -
240 LENGTH=10, -
241 POS=(14,1), -
242 INITIAL='First Name'
243 DFHMDF COLOR=TURQUOISE, -
244 LENGTH=13, -
245 POS=(14,28), -
246 INITIAL='Middle Name: '
247 DFHMDF COLOR=TURQUOISE, -
248 LENGTH=12, -
249 POS=(14,55), -
250 INITIAL='Last Name : '
251ACSFNAM DFHMDF HILIGHT=UNDERLINE, -
252 LENGTH=25, -
253 POS=(15,1)
254 DFHMDF LENGTH=0, -
255 POS=(15,27)
256ACSMNAM DFHMDF HILIGHT=UNDERLINE, -
257 LENGTH=25, -
258 POS=(15,28)
259 DFHMDF LENGTH=0, -
260 POS=(15,54)
261ACSLNAM DFHMDF HILIGHT=UNDERLINE, -
262 LENGTH=25, -
263 POS=(15,55)
264 DFHMDF COLOR=TURQUOISE, -
265 LENGTH=8, -
266 POS=(16,1), -
267 INITIAL='Address:'
268ACSADL1 DFHMDF HILIGHT=UNDERLINE, -
269 LENGTH=50, -
270 POS=(16,10)
271 DFHMDF LENGTH=0, -
272 POS=(16,61)
273 DFHMDF COLOR=TURQUOISE, -
274 LENGTH=6, -
275 POS=(16,63), -
276 INITIAL='State '
277ACSSTTE DFHMDF HILIGHT=UNDERLINE, -
278 LENGTH=2, -
279 POS=(16,73)
280 DFHMDF LENGTH=0, -
281 POS=(16,76)
282ACSADL2 DFHMDF HILIGHT=UNDERLINE, -
283 LENGTH=50, -
284 POS=(17,10)
285 DFHMDF LENGTH=0, -
286 POS=(17,61)
287 DFHMDF COLOR=TURQUOISE, -
288 LENGTH=3, -
289 POS=(17,63), -
290 INITIAL='Zip'
291ACSZIPC DFHMDF HILIGHT=UNDERLINE, -
292 JUSTIFY=(RIGHT), -
293 LENGTH=5, -
294 POS=(17,73)
295 DFHMDF LENGTH=0, -
296 POS=(17,79)
297 DFHMDF COLOR=TURQUOISE, -
298 LENGTH=5, -
299 POS=(18,1), -
300 INITIAL='City '
301ACSCITY DFHMDF HILIGHT=UNDERLINE, -
302 LENGTH=50, -
303 POS=(18,10)
304 DFHMDF LENGTH=0, -
305 POS=(18,61)
306 DFHMDF COLOR=TURQUOISE, -
307 LENGTH=7, -
308 POS=(18,63), -
309 INITIAL='Country'
310ACSCTRY DFHMDF HILIGHT=UNDERLINE, -
311 LENGTH=3, -
312 POS=(18,73)
313 DFHMDF LENGTH=0, -
314 POS=(18,77)
315 DFHMDF COLOR=TURQUOISE, -
316 LENGTH=8, -
317 POS=(19,1), -
318 INITIAL='Phone 1:'
319ACSPHN1 DFHMDF HILIGHT=UNDERLINE, -
320 LENGTH=13, -
321 POS=(19,10)
322 DFHMDF COLOR=TURQUOISE, -
323 LENGTH=30, -
324 POS=(19,24), -
325 INITIAL='Government Issued Id Ref : '
326ACSGOVT DFHMDF HILIGHT=UNDERLINE, -
327 LENGTH=20, -
328 POS=(19,58)
329 DFHMDF LENGTH=0, -
330 POS=(19,79)
331 DFHMDF COLOR=TURQUOISE, -
332 LENGTH=8, -
333 POS=(20,1), -
334 INITIAL='Phone 2:'
335ACSPHN2 DFHMDF HILIGHT=UNDERLINE, -
336 LENGTH=13, -
337 POS=(20,10)
338 DFHMDF COLOR=TURQUOISE, -
339 LENGTH=16, -
340 POS=(20,24), -
341 INITIAL='EFT Account Id: '
342ACSEFTC DFHMDF HILIGHT=UNDERLINE, -
343 LENGTH=10, -
344 POS=(20,41)
345 DFHMDF LENGTH=0, -
346 POS=(20,52)
347 DFHMDF COLOR=TURQUOISE, -
348 LENGTH=24, -
349 POS=(20,53), -
350 INITIAL='Primary Card Holder Y/N:'
351ACSPFLG DFHMDF HILIGHT=UNDERLINE, -
352 LENGTH=1, -
353 POS=(20,78)
354 DFHMDF LENGTH=0, -
355 POS=(20,80)
356INFOMSG DFHMDF ATTRB=(PROT), -
357 COLOR=NEUTRAL, -
358 HILIGHT=OFF, -
359 LENGTH=45, -
360 POS=(22,23)
361 DFHMDF LENGTH=0, -
362 POS=(22,69)
363 DFHMDF LENGTH=9, -
364 POS=(1,1)
365ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
366 COLOR=RED, -
367 LENGTH=78, -
368 POS=(23,1)
369 DFHMDF ATTRB=(ASKIP,NORM), -
370 COLOR=TURQUOISE, -
371 LENGTH=60, -
372 POS=(24,1), -
373 INITIAL=' F3=Exit '
374 DFHMSD TYPE=FINAL
375 END
376*
377* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:42 CDT
378*