MFmainframe-rea
WS carddemo · 26f629ef

bms · 167 lines · sha256 44a3f209e7fa8445app/bms/COADM01.bms

1******************************************************************
2* CardDemo - Admin Menu 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******************************************************************
19COADM01 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COADM1A 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='Admin Menu'
80OPTN001 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
81 COLOR=BLUE, -
82 LENGTH=40, -
83 POS=(6,20), -
84 INITIAL=' '
85OPTN002 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
86 COLOR=BLUE, -
87 LENGTH=40, -
88 POS=(7,20), -
89 INITIAL=' '
90OPTN003 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
91 COLOR=BLUE, -
92 LENGTH=40, -
93 POS=(8,20), -
94 INITIAL=' '
95OPTN004 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
96 COLOR=BLUE, -
97 LENGTH=40, -
98 POS=(9,20), -
99 INITIAL=' '
100OPTN005 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
101 COLOR=BLUE, -
102 LENGTH=40, -
103 POS=(10,20), -
104 INITIAL=' '
105OPTN006 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
106 COLOR=BLUE, -
107 LENGTH=40, -
108 POS=(11,20), -
109 INITIAL=' '
110OPTN007 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
111 COLOR=BLUE, -
112 LENGTH=40, -
113 POS=(12,20), -
114 INITIAL=' '
115OPTN008 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
116 COLOR=BLUE, -
117 LENGTH=40, -
118 POS=(13,20), -
119 INITIAL=' '
120OPTN009 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
121 COLOR=BLUE, -
122 LENGTH=40, -
123 POS=(14,20), -
124 INITIAL=' '
125OPTN010 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
126 COLOR=BLUE, -
127 LENGTH=40, -
128 POS=(15,20), -
129 INITIAL=' '
130OPTN011 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
131 COLOR=BLUE, -
132 LENGTH=40, -
133 POS=(16,20), -
134 INITIAL=' '
135OPTN012 DFHMDF ATTRB=(ASKIP,FSET,NORM), -
136 COLOR=BLUE, -
137 LENGTH=40, -
138 POS=(17,20), -
139 INITIAL=' '
140 DFHMDF ATTRB=(ASKIP,BRT), -
141 COLOR=TURQUOISE, -
142 LENGTH=25, -
143 POS=(20,15), -
144 INITIAL='Please select an option :'
145OPTION DFHMDF ATTRB=(FSET,IC,NORM,NUM,UNPROT), -
146 HILIGHT=UNDERLINE, -
147 JUSTIFY=(RIGHT,ZERO), -
148 LENGTH=2, -
149 POS=(20,41)
150 DFHMDF ATTRB=(ASKIP,NORM), -
151 COLOR=GREEN, -
152 LENGTH=0, -
153 POS=(20,44)
154ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
155 COLOR=RED, -
156 LENGTH=78, -
157 POS=(23,1)
158 DFHMDF ATTRB=(ASKIP,NORM), -
159 COLOR=YELLOW, -
160 LENGTH=23, -
161 POS=(24,1), -
162 INITIAL='ENTER=Continue F3=Exit'
163 DFHMSD TYPE=FINAL
164 END
165*
166* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:42 CDT
167*