MFmainframe-rea
WS carddemo · 26f629ef

bms · 338 lines · sha256 5867235e382d6fc5app/app-transaction-type-db2/bms/COTRTLI.bms

1******************************************************************
2* CardDemo - Tran Type 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 TRAN TYPE LISTING'
20COTRTLI DFHMSD LANG=COBOL, -
21 MODE=INOUT, -
22 STORAGE=AUTO, -
23 TIOAPFX=YES, -
24 TYPE=&&SYSPARM
25CTRTLIA 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=25, -
77 POS=(4,28), -
78 INITIAL='Maintain Transaction Type'
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=12, -
87 POS=(6,30), -
88 INITIAL='Type Filter:'
89TRTYPE DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
90 COLOR=GREEN, -
91 HILIGHT=UNDERLINE, -
92 LENGTH=2, -
93 POS=(6,44)
94 DFHMDF LENGTH=0, -
95 POS=(6,47)
96 DFHMDF ATTRB=(ASKIP,NORM), -
97 COLOR=TURQUOISE, -
98 LENGTH=19, -
99 POS=(8,4), -
100 INITIAL='Description Filter:'
101TRDESC DFHMDF ATTRB=(FSET,NORM,UNPROT), -
102 COLOR=GREEN, -
103 HILIGHT=UNDERLINE, -
104 LENGTH=50, -
105 POS=(8,25)
106 DFHMDF LENGTH=0, -
107 POS=(8,76)
108 DFHMDF COLOR=NEUTRAL, -
109 LENGTH=10, -
110 POS=(10,4), -
111 INITIAL='Select '
112 DFHMDF COLOR=NEUTRAL, -
113 LENGTH=4, -
114 POS=(10,16), -
115 INITIAL='Type'
116 DFHMDF COLOR=NEUTRAL, -
117 LENGTH=11, -
118 POS=(10,42), -
119 INITIAL='Description'
120 DFHMDF COLOR=NEUTRAL, -
121 LENGTH=6, -
122 POS=(11,4), -
123 INITIAL='------'
124 DFHMDF COLOR=NEUTRAL, -
125 LENGTH=5, -
126 POS=(11,15), -
127 INITIAL='-----'
128 DFHMDF COLOR=NEUTRAL, -
129 LENGTH=50, -
130 POS=(11,25), -
131 INITIAL='------------------------------------------------
132 ---'
133TRTSEL1 DFHMDF ATTRB=(FSET,NORM,PROT), -
134 COLOR=DEFAULT, -
135 HILIGHT=UNDERLINE, -
136 LENGTH=1, -
137 POS=(12,6)
138 DFHMDF LENGTH=0, -
139 POS=(12,8)
140TRTTYP1 DFHMDF ATTRB=(FSET,NORM,PROT), -
141 COLOR=DEFAULT, -
142 HILIGHT=OFF, -
143 LENGTH=2, -
144 POS=(12,17)
145 DFHMDF LENGTH=0, -
146 POS=(12,20)
147TRTYPD1 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
148 COLOR=DEFAULT, -
149 HILIGHT=OFF, -
150 LENGTH=50, -
151 POS=(12,25)
152 DFHMDF LENGTH=0, -
153 POS=(12,76)
154TRTSEL2 DFHMDF ATTRB=(FSET,NORM,PROT), -
155 COLOR=DEFAULT, -
156 HILIGHT=UNDERLINE, -
157 LENGTH=1, -
158 POS=(13,6)
159 DFHMDF LENGTH=0, -
160 POS=(13,8)
161TRTTYP2 DFHMDF ATTRB=(FSET,NORM,PROT), -
162 COLOR=DEFAULT, -
163 HILIGHT=OFF, -
164 LENGTH=2, -
165 POS=(13,17)
166 DFHMDF LENGTH=0, -
167 POS=(13,20)
168TRTYPD2 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
169 COLOR=DEFAULT, -
170 HILIGHT=OFF, -
171 LENGTH=50, -
172 POS=(13,25)
173 DFHMDF LENGTH=0, -
174 POS=(13,76)
175TRTSEL3 DFHMDF ATTRB=(FSET,NORM,PROT), -
176 COLOR=DEFAULT, -
177 HILIGHT=UNDERLINE, -
178 LENGTH=1, -
179 POS=(14,6)
180 DFHMDF LENGTH=0, -
181 POS=(14,8)
182TRTTYP3 DFHMDF ATTRB=(FSET,NORM,PROT), -
183 COLOR=DEFAULT, -
184 HILIGHT=OFF, -
185 LENGTH=2, -
186 POS=(14,17)
187 DFHMDF LENGTH=0, -
188 POS=(14,20)
189TRTYPD3 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
190 COLOR=DEFAULT, -
191 HILIGHT=OFF, -
192 LENGTH=50, -
193 POS=(14,25)
194 DFHMDF LENGTH=0, -
195 POS=(14,76)
196TRTSEL4 DFHMDF ATTRB=(FSET,NORM,PROT), -
197 COLOR=DEFAULT, -
198 HILIGHT=UNDERLINE, -
199 LENGTH=1, -
200 POS=(15,6)
201 DFHMDF LENGTH=0, -
202 POS=(15,8)
203TRTTYP4 DFHMDF ATTRB=(FSET,NORM,PROT), -
204 COLOR=DEFAULT, -
205 HILIGHT=OFF, -
206 LENGTH=2, -
207 POS=(15,17)
208 DFHMDF LENGTH=0, -
209 POS=(15,20)
210TRTYPD4 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
211 COLOR=DEFAULT, -
212 HILIGHT=OFF, -
213 LENGTH=50, -
214 POS=(15,25)
215 DFHMDF LENGTH=0, -
216 POS=(15,76)
217TRTSEL5 DFHMDF ATTRB=(FSET,NORM,PROT), -
218 COLOR=DEFAULT, -
219 HILIGHT=UNDERLINE, -
220 LENGTH=1, -
221 POS=(16,6)
222 DFHMDF LENGTH=0, -
223 POS=(16,8)
224TRTTYP5 DFHMDF ATTRB=(FSET,NORM,PROT), -
225 COLOR=DEFAULT, -
226 HILIGHT=OFF, -
227 LENGTH=2, -
228 POS=(16,17)
229 DFHMDF LENGTH=0, -
230 POS=(16,20)
231TRTYPD5 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
232 COLOR=DEFAULT, -
233 HILIGHT=OFF, -
234 LENGTH=50, -
235 POS=(16,25)
236 DFHMDF LENGTH=0, -
237 POS=(16,76)
238TRTSEL6 DFHMDF ATTRB=(FSET,NORM,PROT), -
239 COLOR=DEFAULT, -
240 HILIGHT=UNDERLINE, -
241 LENGTH=1, -
242 POS=(17,6)
243 DFHMDF LENGTH=0, -
244 POS=(17,8)
245TRTTYP6 DFHMDF ATTRB=(FSET,NORM,PROT), -
246 COLOR=DEFAULT, -
247 HILIGHT=OFF, -
248 LENGTH=2, -
249 POS=(17,17)
250 DFHMDF LENGTH=0, -
251 POS=(17,20)
252TRTYPD6 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
253 COLOR=DEFAULT, -
254 HILIGHT=OFF, -
255 LENGTH=50, -
256 POS=(17,25)
257 DFHMDF LENGTH=0, -
258 POS=(17,76)
259TRTSEL7 DFHMDF ATTRB=(FSET,NORM,PROT), -
260 COLOR=DEFAULT, -
261 HILIGHT=UNDERLINE, -
262 LENGTH=1, -
263 POS=(18,6)
264 DFHMDF LENGTH=0, -
265 POS=(18,8)
266TRTTYP7 DFHMDF ATTRB=(FSET,NORM,PROT), -
267 COLOR=DEFAULT, -
268 HILIGHT=OFF, -
269 LENGTH=2, -
270 POS=(18,17)
271 DFHMDF LENGTH=0, -
272 POS=(18,20)
273TRTYPD7 DFHMDF ATTRB=(FSET,NORM,UNPROT), -
274 COLOR=DEFAULT, -
275 HILIGHT=OFF, -
276 LENGTH=50, -
277 POS=(18,25)
278 DFHMDF LENGTH=0, -
279 POS=(18,76)
280TRTSELA DFHMDF ATTRB=(FSET,NORM,PROT), -
281 COLOR=DEFAULT, -
282 HILIGHT=OFF, -
283 LENGTH=1, -
284 POS=(19,6)
285 DFHMDF LENGTH=0, -
286 POS=(19,8)
287TRTTYPA DFHMDF ATTRB=(FSET,NORM,PROT), -
288 COLOR=DEFAULT, -
289 HILIGHT=OFF, -
290 LENGTH=2, -
291 POS=(19,17)
292 DFHMDF LENGTH=0, -
293 POS=(19,20)
294TRTDSCA DFHMDF ATTRB=(FSET,NORM,PROT), -
295 COLOR=DEFAULT, -
296 HILIGHT=OFF, -
297 LENGTH=50, -
298 POS=(19,25)
299 DFHMDF LENGTH=0, -
300 POS=(19,76)
301INFOMSG DFHMDF ATTRB=(PROT), -
302 COLOR=NEUTRAL, -
303 HILIGHT=OFF, -
304 LENGTH=45, -
305 POS=(21,19)
306 DFHMDF LENGTH=0, -
307 POS=(21,65)
308ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
309 COLOR=RED, -
310 LENGTH=78, -
311 POS=(23,1)
312BUTNF02 DFHMDF ATTRB=(ASKIP,NORM), -
313 COLOR=TURQUOISE, -
314 LENGTH=7, -
315 POS=(24,1), -
316 INITIAL='F2=Add'
317BUTNF03 DFHMDF ATTRB=(ASKIP,NORM), -
318 COLOR=TURQUOISE, -
319 LENGTH=7, -
320 POS=(24,10), -
321 INITIAL='F3=Exit'
322BUTNF07 DFHMDF ATTRB=(ASKIP,NORM), -
323 COLOR=TURQUOISE, -
324 LENGTH=10, -
325 POS=(24,19), -
326 INITIAL='F7=Page Up'
327BUTNF08 DFHMDF ATTRB=(ASKIP,NORM), -
328 COLOR=TURQUOISE, -
329 LENGTH=10, -
330 POS=(24,32), -
331 INITIAL='F8=Page Dn'
332BUTNF10 DFHMDF ATTRB=(ASKIP,NORM), -
333 COLOR=TURQUOISE, -
334 LENGTH=8, -
335 POS=(24,44), -
336 INITIAL='F10=Save'
337 DFHMSD TYPE=FINAL
338 END