MFmainframe-rea
WS carddemo · 26f629ef

bms · 231 lines · sha256 3ae6f0a2db62f64capp/bms/CORPT00.bms

1******************************************************************
2* CardDemo - Main 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******************************************************************
19CORPT00 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26CORPT0A 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=19, -
78 POS=(4,30), -
79 INITIAL='Transaction Reports'
80MONTHLY DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
81 COLOR=GREEN, -
82 HILIGHT=UNDERLINE, -
83 LENGTH=1, -
84 POS=(7,10), -
85 INITIAL=' '
86 DFHMDF ATTRB=(ASKIP,NORM), -
87 LENGTH=0, -
88 POS=(7,12)
89 DFHMDF ATTRB=(ASKIP,BRT), -
90 COLOR=TURQUOISE, -
91 LENGTH=23, -
92 POS=(7,15), -
93 INITIAL='Monthly (Current Month)'
94YEARLY DFHMDF ATTRB=(FSET,NORM,UNPROT), -
95 COLOR=GREEN, -
96 HILIGHT=UNDERLINE, -
97 LENGTH=1, -
98 POS=(9,10), -
99 INITIAL=' '
100 DFHMDF ATTRB=(ASKIP,NORM), -
101 LENGTH=0, -
102 POS=(9,12)
103 DFHMDF ATTRB=(ASKIP,BRT), -
104 COLOR=TURQUOISE, -
105 LENGTH=23, -
106 POS=(9,15), -
107 INITIAL='Yearly (Current Year)'
108CUSTOM DFHMDF ATTRB=(FSET,NORM,UNPROT), -
109 COLOR=GREEN, -
110 HILIGHT=UNDERLINE, -
111 LENGTH=1, -
112 POS=(11,10), -
113 INITIAL=' '
114 DFHMDF ATTRB=(ASKIP,NORM), -
115 LENGTH=0, -
116 POS=(11,12)
117 DFHMDF ATTRB=(ASKIP,BRT), -
118 COLOR=TURQUOISE, -
119 LENGTH=23, -
120 POS=(11,15), -
121 INITIAL='Custom (Date Range)'
122 DFHMDF ATTRB=(ASKIP,NORM), -
123 COLOR=TURQUOISE, -
124 LENGTH=12, -
125 POS=(13,15), -
126 INITIAL='Start Date :'
127SDTMM DFHMDF ATTRB=(FSET,NORM,NUM,UNPROT), -
128 COLOR=GREEN, -
129 HILIGHT=UNDERLINE, -
130 LENGTH=2, -
131 POS=(13,29), -
132 INITIAL=' '
133 DFHMDF ATTRB=(ASKIP,NORM), -
134 COLOR=BLUE, -
135 LENGTH=1, -
136 POS=(13,32), -
137 INITIAL='/'
138SDTDD DFHMDF ATTRB=(FSET,NORM,NUM,UNPROT), -
139 COLOR=GREEN, -
140 HILIGHT=UNDERLINE, -
141 LENGTH=2, -
142 POS=(13,34), -
143 INITIAL=' '
144 DFHMDF ATTRB=(ASKIP,NORM), -
145 COLOR=BLUE, -
146 LENGTH=1, -
147 POS=(13,37), -
148 INITIAL='/'
149SDTYYYY DFHMDF ATTRB=(FSET,NORM,NUM,UNPROT), -
150 COLOR=GREEN, -
151 HILIGHT=UNDERLINE, -
152 LENGTH=4, -
153 POS=(13,39), -
154 INITIAL=' '
155 DFHMDF LENGTH=0, -
156 POS=(13,44)
157 DFHMDF COLOR=BLUE, -
158 LENGTH=12, -
159 POS=(13,46), -
160 INITIAL='(MM/DD/YYYY)'
161 DFHMDF ATTRB=(ASKIP,NORM), -
162 COLOR=TURQUOISE, -
163 LENGTH=12, -
164 POS=(14,15), -
165 INITIAL=' End Date :'
166EDTMM DFHMDF ATTRB=(FSET,NORM,NUM,UNPROT), -
167 COLOR=GREEN, -
168 HILIGHT=UNDERLINE, -
169 LENGTH=2, -
170 POS=(14,29), -
171 INITIAL=' '
172 DFHMDF ATTRB=(ASKIP,NORM), -
173 COLOR=BLUE, -
174 LENGTH=1, -
175 POS=(14,32), -
176 INITIAL='/'
177EDTDD DFHMDF ATTRB=(FSET,NORM,NUM,UNPROT), -
178 COLOR=GREEN, -
179 HILIGHT=UNDERLINE, -
180 LENGTH=2, -
181 POS=(14,34), -
182 INITIAL=' '
183 DFHMDF ATTRB=(ASKIP,NORM), -
184 COLOR=BLUE, -
185 LENGTH=1, -
186 POS=(14,37), -
187 INITIAL='/'
188EDTYYYY DFHMDF ATTRB=(FSET,NORM,NUM,UNPROT), -
189 COLOR=GREEN, -
190 HILIGHT=UNDERLINE, -
191 LENGTH=4, -
192 POS=(14,39), -
193 INITIAL=' '
194 DFHMDF LENGTH=0, -
195 POS=(14,44)
196 DFHMDF COLOR=BLUE, -
197 LENGTH=12, -
198 POS=(14,46), -
199 INITIAL='(MM/DD/YYYY)'
200 DFHMDF ATTRB=(ASKIP,NORM), -
201 COLOR=TURQUOISE, -
202 LENGTH=59, -
203 POS=(19,6), -
204 INITIAL='The Report will be submitted for printing. Plea-
205 se confirm: '
206CONFIRM DFHMDF ATTRB=(FSET,NORM,UNPROT), -
207 COLOR=GREEN, -
208 HILIGHT=UNDERLINE, -
209 LENGTH=1, -
210 POS=(19,66)
211 DFHMDF LENGTH=0, -
212 POS=(19,68)
213 DFHMDF ATTRB=(ASKIP,NORM), -
214 COLOR=NEUTRAL, -
215 LENGTH=5, -
216 POS=(19,69), -
217 INITIAL='(Y/N)'
218ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
219 COLOR=RED, -
220 LENGTH=78, -
221 POS=(23,1)
222 DFHMDF ATTRB=(ASKIP,NORM), -
223 COLOR=YELLOW, -
224 LENGTH=23, -
225 POS=(24,1), -
226 INITIAL='ENTER=Continue F3=Back'
227 DFHMSD TYPE=FINAL
228 END
229*
230* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:43 CDT
231*