MFmainframe-rea
WS carddemo · 26f629ef

bms · 344 lines · sha256 b73a1ebb2ec327dbapp/bms/COCRDLI.bms

1******************************************************************
2* CardDemo - Card Listing 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 CARD LISTING'
20COCRDLI DFHMSD LANG=COBOL, -
21 MODE=INOUT, -
22 STORAGE=AUTO, -
23 TIOAPFX=YES, -
24 TYPE=&&SYSPARM
25CCRDLIA 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=17, -
77 POS=(4,31), -
78 INITIAL='List Credit Cards'
79 DFHMDF LENGTH=5, -
80 POS=(4,70), -
81 INITIAL='Page '
82PAGENO DFHMDF LENGTH=3, -
83 POS=(4,76)
84 DFHMDF ATTRB=(ASKIP,NORM), -
85 COLOR=TURQUOISE, -
86 LENGTH=19, -
87 POS=(6,22), -
88 INITIAL='Account Number :'
89ACCTSID DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
90 COLOR=GREEN, -
91 HILIGHT=UNDERLINE, -
92 LENGTH=11, -
93 POS=(6,44)
94 DFHMDF LENGTH=0, -
95 POS=(6,56)
96 DFHMDF ATTRB=(ASKIP,NORM), -
97 COLOR=TURQUOISE, -
98 LENGTH=19, -
99 POS=(7,22), -
100 INITIAL='Credit Card Number:'
101CARDSID DFHMDF ATTRB=(FSET,NORM,UNPROT), -
102 COLOR=GREEN, -
103 HILIGHT=UNDERLINE, -
104 LENGTH=16, -
105 POS=(7,44)
106 DFHMDF LENGTH=0, -
107 POS=(7,61)
108 DFHMDF COLOR=NEUTRAL, -
109 LENGTH=10, -
110 POS=(9,10), -
111 INITIAL='Select '
112 DFHMDF COLOR=NEUTRAL, -
113 LENGTH=14, -
114 POS=(9,21), -
115 INITIAL='Account Number'
116 DFHMDF COLOR=NEUTRAL, -
117 LENGTH=13, -
118 POS=(9,45), -
119 INITIAL=' Card Number '
120 DFHMDF COLOR=NEUTRAL, -
121 LENGTH=7, -
122 POS=(9,66), -
123 INITIAL='Active '
124 DFHMDF COLOR=NEUTRAL, -
125 LENGTH=6, -
126 POS=(10,10), -
127 INITIAL='------'
128 DFHMDF COLOR=NEUTRAL, -
129 LENGTH=15, -
130 POS=(10,20), -
131 INITIAL='---------------'
132 DFHMDF COLOR=NEUTRAL, -
133 LENGTH=15, -
134 POS=(10,43), -
135 INITIAL='---------------'
136 DFHMDF COLOR=NEUTRAL, -
137 LENGTH=8, -
138 POS=(10,65), -
139 INITIAL='--------'
140CRDSEL1 DFHMDF ATTRB=(FSET,NORM,PROT), -
141 COLOR=DEFAULT, -
142 HILIGHT=UNDERLINE, -
143 LENGTH=1, -
144 POS=(11,12)
145 DFHMDF LENGTH=0, -
146 POS=(11,14)
147ACCTNO1 DFHMDF ATTRB=(NORM,PROT), -
148 COLOR=DEFAULT, -
149 HILIGHT=OFF, -
150 LENGTH=11, -
151 POS=(11,22)
152CRDNUM1 DFHMDF ATTRB=(NORM,PROT), -
153 COLOR=DEFAULT, -
154 HILIGHT=OFF, -
155 LENGTH=16, -
156 POS=(11,43)
157CRDSTS1 DFHMDF ATTRB=(NORM,PROT), -
158 COLOR=DEFAULT, -
159 HILIGHT=OFF, -
160 LENGTH=1, -
161 POS=(11,67)
162CRDSEL2 DFHMDF ATTRB=(FSET,NORM,PROT), -
163 COLOR=DEFAULT, -
164 HILIGHT=UNDERLINE, -
165 LENGTH=1, -
166 POS=(12,12)
167 DFHMDF LENGTH=0, -
168 POS=(12,14)
169CRDSTP2 DFHMDF ATTRB=(ASKIP,DRK,FSET), -
170 COLOR=DEFAULT, -
171 HILIGHT=OFF, -
172 LENGTH=1, -
173 POS=(12,14)
174ACCTNO2 DFHMDF ATTRB=(NORM,PROT), -
175 COLOR=DEFAULT, -
176 HILIGHT=OFF, -
177 LENGTH=11, -
178 POS=(12,22)
179CRDNUM2 DFHMDF ATTRB=(NORM,PROT), -
180 COLOR=DEFAULT, -
181 HILIGHT=OFF, -
182 LENGTH=16, -
183 POS=(12,43)
184CRDSTS2 DFHMDF ATTRB=(NORM,PROT), -
185 COLOR=DEFAULT, -
186 HILIGHT=OFF, -
187 LENGTH=1, -
188 POS=(12,67)
189CRDSEL3 DFHMDF ATTRB=(FSET,NORM,PROT), -
190 COLOR=DEFAULT, -
191 HILIGHT=UNDERLINE, -
192 LENGTH=1, -
193 POS=(13,12)
194 DFHMDF LENGTH=0, -
195 POS=(13,14)
196CRDSTP3 DFHMDF ATTRB=(ASKIP,DRK,FSET), -
197 COLOR=DEFAULT, -
198 HILIGHT=OFF, -
199 LENGTH=1, -
200 POS=(13,14)
201ACCTNO3 DFHMDF ATTRB=(NORM,PROT), -
202 COLOR=DEFAULT, -
203 HILIGHT=OFF, -
204 LENGTH=11, -
205 POS=(13,22)
206CRDNUM3 DFHMDF ATTRB=(NORM,PROT), -
207 COLOR=DEFAULT, -
208 HILIGHT=OFF, -
209 LENGTH=16, -
210 POS=(13,43)
211CRDSTS3 DFHMDF ATTRB=(NORM,PROT), -
212 COLOR=DEFAULT, -
213 HILIGHT=OFF, -
214 LENGTH=1, -
215 POS=(13,67)
216CRDSEL4 DFHMDF ATTRB=(FSET,NORM,PROT), -
217 COLOR=DEFAULT, -
218 HILIGHT=UNDERLINE, -
219 LENGTH=1, -
220 POS=(14,12)
221 DFHMDF LENGTH=0, -
222 POS=(14,14)
223CRDSTP4 DFHMDF ATTRB=(ASKIP,DRK,FSET), -
224 COLOR=DEFAULT, -
225 HILIGHT=OFF, -
226 LENGTH=1, -
227 POS=(14,14)
228ACCTNO4 DFHMDF ATTRB=(NORM,PROT), -
229 COLOR=DEFAULT, -
230 HILIGHT=OFF, -
231 LENGTH=11, -
232 POS=(14,22)
233CRDNUM4 DFHMDF ATTRB=(NORM,PROT), -
234 COLOR=DEFAULT, -
235 HILIGHT=OFF, -
236 LENGTH=16, -
237 POS=(14,43)
238CRDSTS4 DFHMDF ATTRB=(NORM,PROT), -
239 COLOR=DEFAULT, -
240 HILIGHT=OFF, -
241 LENGTH=1, -
242 POS=(14,67)
243CRDSEL5 DFHMDF ATTRB=(FSET,NORM,PROT), -
244 COLOR=DEFAULT, -
245 HILIGHT=UNDERLINE, -
246 LENGTH=1, -
247 POS=(15,12)
248 DFHMDF LENGTH=0, -
249 POS=(15,14)
250CRDSTP5 DFHMDF ATTRB=(ASKIP,DRK,FSET), -
251 COLOR=DEFAULT, -
252 HILIGHT=OFF, -
253 LENGTH=1, -
254 POS=(15,14)
255ACCTNO5 DFHMDF ATTRB=(NORM,PROT), -
256 COLOR=DEFAULT, -
257 HILIGHT=OFF, -
258 LENGTH=11, -
259 POS=(15,22)
260CRDNUM5 DFHMDF ATTRB=(NORM,PROT), -
261 COLOR=DEFAULT, -
262 HILIGHT=OFF, -
263 LENGTH=16, -
264 POS=(15,43)
265CRDSTS5 DFHMDF ATTRB=(NORM,PROT), -
266 COLOR=DEFAULT, -
267 HILIGHT=OFF, -
268 LENGTH=1, -
269 POS=(15,67)
270CRDSEL6 DFHMDF ATTRB=(FSET,NORM,PROT), -
271 COLOR=DEFAULT, -
272 HILIGHT=UNDERLINE, -
273 LENGTH=1, -
274 POS=(16,12)
275 DFHMDF LENGTH=0, -
276 POS=(16,14)
277CRDSTP6 DFHMDF ATTRB=(ASKIP,DRK,FSET), -
278 COLOR=DEFAULT, -
279 HILIGHT=OFF, -
280 LENGTH=1, -
281 POS=(16,14)
282ACCTNO6 DFHMDF ATTRB=(NORM,PROT), -
283 COLOR=DEFAULT, -
284 HILIGHT=OFF, -
285 LENGTH=11, -
286 POS=(16,22)
287CRDNUM6 DFHMDF ATTRB=(NORM,PROT), -
288 COLOR=DEFAULT, -
289 HILIGHT=OFF, -
290 LENGTH=16, -
291 POS=(16,43)
292CRDSTS6 DFHMDF ATTRB=(NORM,PROT), -
293 COLOR=DEFAULT, -
294 HILIGHT=OFF, -
295 LENGTH=1, -
296 POS=(16,67)
297CRDSEL7 DFHMDF ATTRB=(FSET,NORM,PROT), -
298 COLOR=DEFAULT, -
299 HILIGHT=UNDERLINE, -
300 LENGTH=1, -
301 POS=(17,12)
302 DFHMDF LENGTH=0, -
303 POS=(17,14)
304CRDSTP7 DFHMDF ATTRB=(ASKIP,DRK,FSET), -
305 COLOR=DEFAULT, -
306 HILIGHT=OFF, -
307 LENGTH=1, -
308 POS=(17,14)
309ACCTNO7 DFHMDF ATTRB=(NORM,PROT), -
310 COLOR=DEFAULT, -
311 HILIGHT=OFF, -
312 LENGTH=11, -
313 POS=(17,22)
314CRDNUM7 DFHMDF ATTRB=(NORM,PROT), -
315 COLOR=DEFAULT, -
316 HILIGHT=OFF, -
317 LENGTH=16, -
318 POS=(17,43)
319CRDSTS7 DFHMDF ATTRB=(NORM,PROT), -
320 COLOR=DEFAULT, -
321 HILIGHT=OFF, -
322 LENGTH=1, -
323 POS=(17,67)
324INFOMSG DFHMDF ATTRB=(PROT), -
325 COLOR=NEUTRAL, -
326 HILIGHT=OFF, -
327 LENGTH=45, -
328 POS=(20,19)
329 DFHMDF LENGTH=0, -
330 POS=(20,65)
331ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
332 COLOR=RED, -
333 LENGTH=78, -
334 POS=(23,1)
335 DFHMDF ATTRB=(ASKIP,NORM), -
336 COLOR=TURQUOISE, -
337 LENGTH=78, -
338 POS=(24,1), -
339 INITIAL=' F3=Exit F7=Backward F8=Forward'
340 DFHMSD TYPE=FINAL
341 END
342*
343* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:42 CDT
344*