MFmainframe-rea
WS carddemo · 26f629ef

bms · 464 lines · sha256 6f914caf567937cdapp/bms/COTRN00.bms

1******************************************************************
2* CardDemo - Transaction List
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******************************************************************
19COTRN00 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COTRN0A 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 ATTRB=(ASKIP,BRT), -
76 COLOR=NEUTRAL, -
77 LENGTH=17, -
78 POS=(4,30), -
79 INITIAL='List Transactions'
80 DFHMDF ATTRB=(ASKIP,BRT), -
81 COLOR=TURQUOISE, -
82 LENGTH=5, -
83 POS=(4,65), -
84 INITIAL='Page:'
85PAGENUM DFHMDF ATTRB=(ASKIP,FSET,NORM), -
86 COLOR=BLUE, -
87 LENGTH=8, -
88 POS=(4,71), -
89 INITIAL=' '
90 DFHMDF ATTRB=(ASKIP,NORM), -
91 COLOR=TURQUOISE, -
92 LENGTH=15, -
93 POS=(6,5), -
94 INITIAL='Search Tran ID:'
95TRNIDIN DFHMDF ATTRB=(FSET,NORM,UNPROT), -
96 COLOR=GREEN, -
97 HILIGHT=UNDERLINE, -
98 LENGTH=16, -
99 POS=(6,21)
100 DFHMDF ATTRB=(ASKIP,NORM), -
101 LENGTH=0, -
102 POS=(6,38)
103 DFHMDF ATTRB=(ASKIP,NORM), -
104 COLOR=NEUTRAL, -
105 LENGTH=3, -
106 POS=(8,2), -
107 INITIAL='Sel'
108 DFHMDF ATTRB=(ASKIP,NORM), -
109 COLOR=NEUTRAL, -
110 LENGTH=16, -
111 POS=(8,8), -
112 INITIAL=' Transaction ID '
113 DFHMDF ATTRB=(ASKIP,NORM), -
114 COLOR=NEUTRAL, -
115 LENGTH=8, -
116 POS=(8,27), -
117 INITIAL=' Date '
118 DFHMDF ATTRB=(ASKIP,NORM), -
119 COLOR=NEUTRAL, -
120 LENGTH=26, -
121 POS=(8,38), -
122 INITIAL=' Description '
123 DFHMDF ATTRB=(ASKIP,NORM), -
124 COLOR=NEUTRAL, -
125 LENGTH=12, -
126 POS=(8,67), -
127 INITIAL=' Amount '
128 DFHMDF ATTRB=(ASKIP,NORM), -
129 COLOR=NEUTRAL, -
130 LENGTH=3, -
131 POS=(9,2), -
132 INITIAL='---'
133 DFHMDF ATTRB=(ASKIP,NORM), -
134 COLOR=NEUTRAL, -
135 LENGTH=16, -
136 POS=(9,8), -
137 INITIAL='----------------'
138 DFHMDF ATTRB=(ASKIP,NORM), -
139 COLOR=NEUTRAL, -
140 LENGTH=8, -
141 POS=(9,27), -
142 INITIAL='--------'
143 DFHMDF ATTRB=(ASKIP,NORM), -
144 COLOR=NEUTRAL, -
145 LENGTH=26, -
146 POS=(9,38), -
147 INITIAL='--------------------------'
148 DFHMDF ATTRB=(ASKIP,NORM), -
149 COLOR=NEUTRAL, -
150 LENGTH=12, -
151 POS=(9,67), -
152 INITIAL='------------'
153SEL0001 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
154 COLOR=GREEN, -
155 HILIGHT=UNDERLINE, -
156 LENGTH=1, -
157 POS=(10,3), -
158 INITIAL=' '
159 DFHMDF ATTRB=(ASKIP,NORM), -
160 LENGTH=0, -
161 POS=(10,5)
162TRNID01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
163 COLOR=BLUE, -
164 LENGTH=16, -
165 POS=(10,8), -
166 INITIAL=' '
167TDATE01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
168 COLOR=BLUE, -
169 LENGTH=8, -
170 POS=(10,27), -
171 INITIAL=' '
172TDESC01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
173 COLOR=BLUE, -
174 LENGTH=26, -
175 POS=(10,38), -
176 INITIAL=' '
177TAMT001 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
178 COLOR=BLUE, -
179 LENGTH=12, -
180 POS=(10,67), -
181 INITIAL=' '
182SEL0002 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
183 COLOR=GREEN, -
184 HILIGHT=UNDERLINE, -
185 LENGTH=1, -
186 POS=(11,3), -
187 INITIAL=' '
188 DFHMDF ATTRB=(ASKIP,NORM), -
189 LENGTH=0, -
190 POS=(11,5)
191TRNID02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
192 COLOR=BLUE, -
193 LENGTH=16, -
194 POS=(11,8), -
195 INITIAL=' '
196TDATE02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
197 COLOR=BLUE, -
198 LENGTH=8, -
199 POS=(11,27), -
200 INITIAL=' '
201TDESC02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
202 COLOR=BLUE, -
203 LENGTH=26, -
204 POS=(11,38), -
205 INITIAL=' '
206TAMT002 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
207 COLOR=BLUE, -
208 LENGTH=12, -
209 POS=(11,67), -
210 INITIAL=' '
211SEL0003 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
212 COLOR=GREEN, -
213 HILIGHT=UNDERLINE, -
214 LENGTH=1, -
215 POS=(12,3), -
216 INITIAL=' '
217 DFHMDF ATTRB=(ASKIP,NORM), -
218 LENGTH=0, -
219 POS=(12,5)
220TRNID03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
221 COLOR=BLUE, -
222 LENGTH=16, -
223 POS=(12,8), -
224 INITIAL=' '
225TDATE03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
226 COLOR=BLUE, -
227 LENGTH=8, -
228 POS=(12,27), -
229 INITIAL=' '
230TDESC03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
231 COLOR=BLUE, -
232 LENGTH=26, -
233 POS=(12,38), -
234 INITIAL=' '
235TAMT003 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
236 COLOR=BLUE, -
237 LENGTH=12, -
238 POS=(12,67), -
239 INITIAL=' '
240SEL0004 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
241 COLOR=GREEN, -
242 HILIGHT=UNDERLINE, -
243 LENGTH=1, -
244 POS=(13,3), -
245 INITIAL=' '
246 DFHMDF ATTRB=(ASKIP,NORM), -
247 LENGTH=0, -
248 POS=(13,5)
249TRNID04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
250 COLOR=BLUE, -
251 LENGTH=16, -
252 POS=(13,8), -
253 INITIAL=' '
254TDATE04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
255 COLOR=BLUE, -
256 LENGTH=8, -
257 POS=(13,27), -
258 INITIAL=' '
259TDESC04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
260 COLOR=BLUE, -
261 LENGTH=26, -
262 POS=(13,38), -
263 INITIAL=' '
264TAMT004 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
265 COLOR=BLUE, -
266 LENGTH=12, -
267 POS=(13,67), -
268 INITIAL=' '
269SEL0005 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
270 COLOR=GREEN, -
271 HILIGHT=UNDERLINE, -
272 LENGTH=1, -
273 POS=(14,3), -
274 INITIAL=' '
275 DFHMDF ATTRB=(ASKIP,NORM), -
276 LENGTH=0, -
277 POS=(14,5)
278TRNID05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
279 COLOR=BLUE, -
280 LENGTH=16, -
281 POS=(14,8), -
282 INITIAL=' '
283TDATE05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
284 COLOR=BLUE, -
285 LENGTH=8, -
286 POS=(14,27), -
287 INITIAL=' '
288TDESC05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
289 COLOR=BLUE, -
290 LENGTH=26, -
291 POS=(14,38), -
292 INITIAL=' '
293TAMT005 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
294 COLOR=BLUE, -
295 LENGTH=12, -
296 POS=(14,67), -
297 INITIAL=' '
298SEL0006 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
299 COLOR=GREEN, -
300 HILIGHT=UNDERLINE, -
301 LENGTH=1, -
302 POS=(15,3), -
303 INITIAL=' '
304 DFHMDF ATTRB=(ASKIP,NORM), -
305 LENGTH=0, -
306 POS=(15,5)
307TRNID06 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
308 COLOR=BLUE, -
309 LENGTH=16, -
310 POS=(15,8), -
311 INITIAL=' '
312TDATE06 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
313 COLOR=BLUE, -
314 LENGTH=8, -
315 POS=(15,27), -
316 INITIAL=' '
317TDESC06 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
318 COLOR=BLUE, -
319 LENGTH=26, -
320 POS=(15,38), -
321 INITIAL=' '
322TAMT006 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
323 COLOR=BLUE, -
324 LENGTH=12, -
325 POS=(15,67), -
326 INITIAL=' '
327SEL0007 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
328 COLOR=GREEN, -
329 HILIGHT=UNDERLINE, -
330 LENGTH=1, -
331 POS=(16,3), -
332 INITIAL=' '
333 DFHMDF ATTRB=(ASKIP,NORM), -
334 LENGTH=0, -
335 POS=(16,5)
336TRNID07 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
337 COLOR=BLUE, -
338 LENGTH=16, -
339 POS=(16,8), -
340 INITIAL=' '
341TDATE07 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
342 COLOR=BLUE, -
343 LENGTH=8, -
344 POS=(16,27), -
345 INITIAL=' '
346TDESC07 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
347 COLOR=BLUE, -
348 LENGTH=26, -
349 POS=(16,38), -
350 INITIAL=' '
351TAMT007 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
352 COLOR=BLUE, -
353 LENGTH=12, -
354 POS=(16,67), -
355 INITIAL=' '
356SEL0008 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
357 COLOR=GREEN, -
358 HILIGHT=UNDERLINE, -
359 LENGTH=1, -
360 POS=(17,3), -
361 INITIAL=' '
362 DFHMDF ATTRB=(ASKIP,NORM), -
363 LENGTH=0, -
364 POS=(17,5)
365TRNID08 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
366 COLOR=BLUE, -
367 LENGTH=16, -
368 POS=(17,8), -
369 INITIAL=' '
370TDATE08 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
371 COLOR=BLUE, -
372 LENGTH=8, -
373 POS=(17,27), -
374 INITIAL=' '
375TDESC08 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
376 COLOR=BLUE, -
377 LENGTH=26, -
378 POS=(17,38), -
379 INITIAL=' '
380TAMT008 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
381 COLOR=BLUE, -
382 LENGTH=12, -
383 POS=(17,67), -
384 INITIAL=' '
385SEL0009 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
386 COLOR=GREEN, -
387 HILIGHT=UNDERLINE, -
388 LENGTH=1, -
389 POS=(18,3), -
390 INITIAL=' '
391 DFHMDF ATTRB=(ASKIP,NORM), -
392 LENGTH=0, -
393 POS=(18,5)
394TRNID09 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
395 COLOR=BLUE, -
396 LENGTH=16, -
397 POS=(18,8), -
398 INITIAL=' '
399TDATE09 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
400 COLOR=BLUE, -
401 LENGTH=8, -
402 POS=(18,27), -
403 INITIAL=' '
404TDESC09 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
405 COLOR=BLUE, -
406 LENGTH=26, -
407 POS=(18,38), -
408 INITIAL=' '
409TAMT009 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
410 COLOR=BLUE, -
411 LENGTH=12, -
412 POS=(18,67), -
413 INITIAL=' '
414SEL0010 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
415 COLOR=GREEN, -
416 HILIGHT=UNDERLINE, -
417 LENGTH=1, -
418 POS=(19,3), -
419 INITIAL=' '
420 DFHMDF ATTRB=(ASKIP,NORM), -
421 LENGTH=0, -
422 POS=(19,5)
423TRNID10 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
424 COLOR=BLUE, -
425 LENGTH=16, -
426 POS=(19,8), -
427 INITIAL=' '
428TDATE10 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
429 COLOR=BLUE, -
430 LENGTH=8, -
431 POS=(19,27), -
432 INITIAL=' '
433TDESC10 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
434 COLOR=BLUE, -
435 LENGTH=26, -
436 POS=(19,38), -
437 INITIAL=' '
438TAMT010 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
439 COLOR=BLUE, -
440 LENGTH=12, -
441 POS=(19,67), -
442 INITIAL=' '
443
444 DFHMDF ATTRB=(ASKIP,BRT), -
445 COLOR=NEUTRAL, -
446 LENGTH=50, -
447 POS=(21,12), -
448 INITIAL='Type ''S'' to View Transaction details from the-
449 list'
450ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
451 COLOR=RED, -
452 LENGTH=78, -
453 POS=(23,1)
454 DFHMDF ATTRB=(ASKIP,NORM), -
455 COLOR=YELLOW, -
456 LENGTH=48, -
457 POS=(24,1), -
458 INITIAL='ENTER=Continue F3=Back F7=Backward F8=Forwar-
459 d'
460 DFHMSD TYPE=FINAL
461 END
462*
463* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:43 CDT
464*