MFmainframe-rea
WS carddemo · 26f629ef

bms · 463 lines · sha256 82a453530e4457e4app/bms/COUSR00.bms

1******************************************************************
2* CardDemo - List Users
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******************************************************************
19COUSR00 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COUSR0A 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=10, -
78 POS=(4,35), -
79 INITIAL='List Users'
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 User ID:'
95USRIDIN DFHMDF ATTRB=(FSET,NORM,UNPROT), -
96 COLOR=GREEN, -
97 HILIGHT=UNDERLINE, -
98 LENGTH=8, -
99 POS=(6,21)
100 DFHMDF ATTRB=(ASKIP,NORM), -
101 LENGTH=0, -
102 POS=(6,30)
103 DFHMDF ATTRB=(ASKIP,NORM), -
104 COLOR=NEUTRAL, -
105 LENGTH=3, -
106 POS=(8,5), -
107 INITIAL='Sel'
108 DFHMDF ATTRB=(ASKIP,NORM), -
109 COLOR=NEUTRAL, -
110 LENGTH=8, -
111 POS=(8,12), -
112 INITIAL='User ID '
113 DFHMDF ATTRB=(ASKIP,NORM), -
114 COLOR=NEUTRAL, -
115 LENGTH=20, -
116 POS=(8,24), -
117 INITIAL=' First Name '
118 DFHMDF ATTRB=(ASKIP,NORM), -
119 COLOR=NEUTRAL, -
120 LENGTH=20, -
121 POS=(8,48), -
122 INITIAL=' Last Name '
123 DFHMDF ATTRB=(ASKIP,NORM), -
124 COLOR=NEUTRAL, -
125 LENGTH=4, -
126 POS=(8,72), -
127 INITIAL='Type'
128 DFHMDF ATTRB=(ASKIP,NORM), -
129 COLOR=NEUTRAL, -
130 LENGTH=3, -
131 POS=(9,5), -
132 INITIAL='---'
133 DFHMDF ATTRB=(ASKIP,NORM), -
134 COLOR=NEUTRAL, -
135 LENGTH=8, -
136 POS=(9,12), -
137 INITIAL='--------'
138 DFHMDF ATTRB=(ASKIP,NORM), -
139 COLOR=NEUTRAL, -
140 LENGTH=20, -
141 POS=(9,24), -
142 INITIAL='--------------------'
143 DFHMDF ATTRB=(ASKIP,NORM), -
144 COLOR=NEUTRAL, -
145 LENGTH=20, -
146 POS=(9,48), -
147 INITIAL='--------------------'
148 DFHMDF ATTRB=(ASKIP,NORM), -
149 COLOR=NEUTRAL, -
150 LENGTH=4, -
151 POS=(9,72), -
152 INITIAL='----'
153SEL0001 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
154 COLOR=GREEN, -
155 HILIGHT=UNDERLINE, -
156 LENGTH=1, -
157 POS=(10,6), -
158 INITIAL=' '
159 DFHMDF ATTRB=(ASKIP,NORM), -
160 LENGTH=0, -
161 POS=(10,8)
162USRID01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
163 COLOR=BLUE, -
164 LENGTH=8, -
165 POS=(10,12), -
166 INITIAL=' '
167FNAME01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
168 COLOR=BLUE, -
169 LENGTH=20, -
170 POS=(10,24), -
171 INITIAL=' '
172LNAME01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
173 COLOR=BLUE, -
174 LENGTH=20, -
175 POS=(10,48), -
176 INITIAL=' '
177UTYPE01 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
178 COLOR=BLUE, -
179 LENGTH=1, -
180 POS=(10,73), -
181 INITIAL=' '
182SEL0002 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
183 COLOR=GREEN, -
184 HILIGHT=UNDERLINE, -
185 LENGTH=1, -
186 POS=(11,6), -
187 INITIAL=' '
188 DFHMDF ATTRB=(ASKIP,NORM), -
189 LENGTH=0, -
190 POS=(11,8)
191USRID02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
192 COLOR=BLUE, -
193 LENGTH=8, -
194 POS=(11,12), -
195 INITIAL=' '
196FNAME02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
197 COLOR=BLUE, -
198 LENGTH=20, -
199 POS=(11,24), -
200 INITIAL=' '
201LNAME02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
202 COLOR=BLUE, -
203 LENGTH=20, -
204 POS=(11,48), -
205 INITIAL=' '
206UTYPE02 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
207 COLOR=BLUE, -
208 LENGTH=1, -
209 POS=(11,73), -
210 INITIAL=' '
211SEL0003 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
212 COLOR=GREEN, -
213 HILIGHT=UNDERLINE, -
214 LENGTH=1, -
215 POS=(12,6), -
216 INITIAL=' '
217 DFHMDF ATTRB=(ASKIP,NORM), -
218 LENGTH=0, -
219 POS=(12,8)
220USRID03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
221 COLOR=BLUE, -
222 LENGTH=8, -
223 POS=(12,12), -
224 INITIAL=' '
225FNAME03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
226 COLOR=BLUE, -
227 LENGTH=20, -
228 POS=(12,24), -
229 INITIAL=' '
230LNAME03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
231 COLOR=BLUE, -
232 LENGTH=20, -
233 POS=(12,48), -
234 INITIAL=' '
235UTYPE03 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
236 COLOR=BLUE, -
237 LENGTH=1, -
238 POS=(12,73), -
239 INITIAL=' '
240SEL0004 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
241 COLOR=GREEN, -
242 HILIGHT=UNDERLINE, -
243 LENGTH=1, -
244 POS=(13,6), -
245 INITIAL=' '
246 DFHMDF ATTRB=(ASKIP,NORM), -
247 LENGTH=0, -
248 POS=(13,8)
249USRID04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
250 COLOR=BLUE, -
251 LENGTH=8, -
252 POS=(13,12), -
253 INITIAL=' '
254FNAME04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
255 COLOR=BLUE, -
256 LENGTH=20, -
257 POS=(13,24), -
258 INITIAL=' '
259LNAME04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
260 COLOR=BLUE, -
261 LENGTH=20, -
262 POS=(13,48), -
263 INITIAL=' '
264UTYPE04 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
265 COLOR=BLUE, -
266 LENGTH=1, -
267 POS=(13,73), -
268 INITIAL=' '
269SEL0005 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
270 COLOR=GREEN, -
271 HILIGHT=UNDERLINE, -
272 LENGTH=1, -
273 POS=(14,6), -
274 INITIAL=' '
275 DFHMDF ATTRB=(ASKIP,NORM), -
276 LENGTH=0, -
277 POS=(14,8)
278USRID05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
279 COLOR=BLUE, -
280 LENGTH=8, -
281 POS=(14,12), -
282 INITIAL=' '
283FNAME05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
284 COLOR=BLUE, -
285 LENGTH=20, -
286 POS=(14,24), -
287 INITIAL=' '
288LNAME05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
289 COLOR=BLUE, -
290 LENGTH=20, -
291 POS=(14,48), -
292 INITIAL=' '
293UTYPE05 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
294 COLOR=BLUE, -
295 LENGTH=1, -
296 POS=(14,73), -
297 INITIAL=' '
298SEL0006 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
299 COLOR=GREEN, -
300 HILIGHT=UNDERLINE, -
301 LENGTH=1, -
302 POS=(15,6), -
303 INITIAL=' '
304 DFHMDF ATTRB=(ASKIP,NORM), -
305 LENGTH=0, -
306 POS=(15,8)
307USRID06 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
308 COLOR=BLUE, -
309 LENGTH=8, -
310 POS=(15,12), -
311 INITIAL=' '
312FNAME06 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
313 COLOR=BLUE, -
314 LENGTH=20, -
315 POS=(15,24), -
316 INITIAL=' '
317LNAME06 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
318 COLOR=BLUE, -
319 LENGTH=20, -
320 POS=(15,48), -
321 INITIAL=' '
322UTYPE06 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
323 COLOR=BLUE, -
324 LENGTH=1, -
325 POS=(15,73), -
326 INITIAL=' '
327SEL0007 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
328 COLOR=GREEN, -
329 HILIGHT=UNDERLINE, -
330 LENGTH=1, -
331 POS=(16,6), -
332 INITIAL=' '
333 DFHMDF ATTRB=(ASKIP,NORM), -
334 LENGTH=0, -
335 POS=(16,8)
336USRID07 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
337 COLOR=BLUE, -
338 LENGTH=8, -
339 POS=(16,12), -
340 INITIAL=' '
341FNAME07 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
342 COLOR=BLUE, -
343 LENGTH=20, -
344 POS=(16,24), -
345 INITIAL=' '
346LNAME07 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
347 COLOR=BLUE, -
348 LENGTH=20, -
349 POS=(16,48), -
350 INITIAL=' '
351UTYPE07 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
352 COLOR=BLUE, -
353 LENGTH=1, -
354 POS=(16,73), -
355 INITIAL=' '
356SEL0008 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
357 COLOR=GREEN, -
358 HILIGHT=UNDERLINE, -
359 LENGTH=1, -
360 POS=(17,6), -
361 INITIAL=' '
362 DFHMDF ATTRB=(ASKIP,NORM), -
363 LENGTH=0, -
364 POS=(17,8)
365USRID08 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
366 COLOR=BLUE, -
367 LENGTH=8, -
368 POS=(17,12), -
369 INITIAL=' '
370FNAME08 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
371 COLOR=BLUE, -
372 LENGTH=20, -
373 POS=(17,24), -
374 INITIAL=' '
375LNAME08 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
376 COLOR=BLUE, -
377 LENGTH=20, -
378 POS=(17,48), -
379 INITIAL=' '
380UTYPE08 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
381 COLOR=BLUE, -
382 LENGTH=1, -
383 POS=(17,73), -
384 INITIAL=' '
385SEL0009 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
386 COLOR=GREEN, -
387 HILIGHT=UNDERLINE, -
388 LENGTH=1, -
389 POS=(18,6), -
390 INITIAL=' '
391 DFHMDF ATTRB=(ASKIP,NORM), -
392 LENGTH=0, -
393 POS=(18,8)
394USRID09 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
395 COLOR=BLUE, -
396 LENGTH=8, -
397 POS=(18,12), -
398 INITIAL=' '
399FNAME09 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
400 COLOR=BLUE, -
401 LENGTH=20, -
402 POS=(18,24), -
403 INITIAL=' '
404LNAME09 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
405 COLOR=BLUE, -
406 LENGTH=20, -
407 POS=(18,48), -
408 INITIAL=' '
409UTYPE09 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
410 COLOR=BLUE, -
411 LENGTH=1, -
412 POS=(18,73), -
413 INITIAL=' '
414SEL0010 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
415 COLOR=GREEN, -
416 HILIGHT=UNDERLINE, -
417 LENGTH=1, -
418 POS=(19,6), -
419 INITIAL=' '
420 DFHMDF ATTRB=(ASKIP,NORM), -
421 LENGTH=0, -
422 POS=(19,8)
423USRID10 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
424 COLOR=BLUE, -
425 LENGTH=8, -
426 POS=(19,12), -
427 INITIAL=' '
428FNAME10 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
429 COLOR=BLUE, -
430 LENGTH=20, -
431 POS=(19,24), -
432 INITIAL=' '
433LNAME10 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
434 COLOR=BLUE, -
435 LENGTH=20, -
436 POS=(19,48), -
437 INITIAL=' '
438UTYPE10 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
439 COLOR=BLUE, -
440 LENGTH=1, -
441 POS=(19,73), -
442 INITIAL=' '
443 DFHMDF ATTRB=(ASKIP,BRT), -
444 COLOR=NEUTRAL, -
445 LENGTH=56, -
446 POS=(21,12), -
447 INITIAL='Type ''U'' to Update or ''D'' to Delete a User -
448 from the list'
449ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
450 COLOR=RED, -
451 LENGTH=78, -
452 POS=(23,1)
453 DFHMDF ATTRB=(ASKIP,NORM), -
454 COLOR=YELLOW, -
455 LENGTH=48, -
456 POS=(24,1), -
457 INITIAL='ENTER=Continue F3=Back F7=Backward F8=Forwar-
458 d'
459 DFHMSD TYPE=FINAL
460 END
461*
462* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:44 CDT
463*