MFmainframe-rea
WS carddemo · 26f629ef

bms · 307 lines · sha256 8b46b5ae879119b9app/bms/COTRN02.bms

1******************************************************************
2* CardDemo - Transaction Add
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******************************************************************
19COTRN02 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COTRN2A 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=15, -
78 POS=(4,30), -
79 INITIAL='Add Transaction'
80 DFHMDF ATTRB=(ASKIP,NORM), -
81 COLOR=TURQUOISE, -
82 LENGTH=13, -
83 POS=(6,6), -
84 INITIAL='Enter Acct #:'
85ACTIDIN DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
86 COLOR=GREEN, -
87 HILIGHT=UNDERLINE, -
88 LENGTH=11, -
89 POS=(6,21), -
90 INITIAL=' '
91 DFHMDF ATTRB=(ASKIP,NORM), -
92 LENGTH=0, -
93 POS=(6,33)
94 DFHMDF ATTRB=(ASKIP,NORM), -
95 COLOR=NEUTRAL, -
96 LENGTH=4, -
97 POS=(6,37), -
98 INITIAL='(or)'
99 DFHMDF ATTRB=(ASKIP,NORM), -
100 COLOR=TURQUOISE, -
101 LENGTH=7, -
102 POS=(6,46), -
103 INITIAL='Card #:'
104CARDNIN DFHMDF ATTRB=(FSET,NORM,UNPROT), -
105 COLOR=GREEN, -
106 HILIGHT=UNDERLINE, -
107 LENGTH=16, -
108 POS=(6,55)
109 DFHMDF LENGTH=0, -
110 POS=(6,72)
111 DFHMDF ATTRB=(ASKIP,NORM), -
112 COLOR=NEUTRAL, -
113 LENGTH=70, -
114 POS=(8,6), -
115 INITIAL='------------------------------------------------
116 -----------------------'
117 DFHMDF ATTRB=(ASKIP,NORM), -
118 COLOR=TURQUOISE, -
119 LENGTH=8, -
120 POS=(10,6), -
121 INITIAL='Type CD:'
122TTYPCD DFHMDF ATTRB=(FSET,NORM,UNPROT), -
123 COLOR=GREEN, -
124 HILIGHT=UNDERLINE, -
125 LENGTH=2, -
126 POS=(10,15), -
127 INITIAL=' '
128 DFHMDF LENGTH=0, -
129 POS=(10,18)
130 DFHMDF ATTRB=(ASKIP,NORM), -
131 COLOR=TURQUOISE, -
132 LENGTH=12, -
133 POS=(10,23), -
134 INITIAL='Category CD:'
135TCATCD DFHMDF ATTRB=(FSET,NORM,UNPROT), -
136 COLOR=GREEN, -
137 HILIGHT=UNDERLINE, -
138 LENGTH=4, -
139 POS=(10,36), -
140 INITIAL=' '
141 DFHMDF LENGTH=0, -
142 POS=(10,41)
143 DFHMDF ATTRB=(ASKIP,NORM), -
144 COLOR=TURQUOISE, -
145 LENGTH=7, -
146 POS=(10,46), -
147 INITIAL='Source:'
148TRNSRC DFHMDF ATTRB=(FSET,NORM,UNPROT), -
149 COLOR=GREEN, -
150 HILIGHT=UNDERLINE, -
151 LENGTH=10, -
152 POS=(10,54), -
153 INITIAL=' '
154 DFHMDF LENGTH=0, -
155 POS=(10,65)
156 DFHMDF ATTRB=(ASKIP,NORM), -
157 COLOR=TURQUOISE, -
158 LENGTH=12, -
159 POS=(12,6), -
160 INITIAL='Description:'
161TDESC DFHMDF ATTRB=(FSET,NORM,UNPROT), -
162 COLOR=GREEN, -
163 HILIGHT=UNDERLINE, -
164 LENGTH=60, -
165 POS=(12,19), -
166 INITIAL=' '
167 DFHMDF LENGTH=0, -
168 POS=(12,80)
169 DFHMDF ATTRB=(ASKIP,NORM), -
170 COLOR=TURQUOISE, -
171 LENGTH=7, -
172 POS=(14,6), -
173 INITIAL='Amount:'
174TRNAMT DFHMDF ATTRB=(FSET,NORM,UNPROT), -
175 COLOR=GREEN, -
176 HILIGHT=UNDERLINE, -
177 LENGTH=12, -
178 POS=(14,14), -
179 INITIAL=' '
180 DFHMDF LENGTH=0, -
181 POS=(14,27)
182 DFHMDF ATTRB=(ASKIP,NORM), -
183 COLOR=TURQUOISE, -
184 LENGTH=10, -
185 POS=(14,31), -
186 INITIAL='Orig Date:'
187TORIGDT DFHMDF ATTRB=(FSET,NORM,UNPROT), -
188 COLOR=GREEN, -
189 HILIGHT=UNDERLINE, -
190 LENGTH=10, -
191 POS=(14,42), -
192 INITIAL=' '
193 DFHMDF LENGTH=0, -
194 POS=(14,53)
195 DFHMDF ATTRB=(ASKIP,NORM), -
196 COLOR=TURQUOISE, -
197 LENGTH=10, -
198 POS=(14,57), -
199 INITIAL='Proc Date:'
200TPROCDT DFHMDF ATTRB=(FSET,NORM,UNPROT), -
201 COLOR=GREEN, -
202 HILIGHT=UNDERLINE, -
203 LENGTH=10, -
204 POS=(14,68), -
205 INITIAL=' '
206 DFHMDF LENGTH=0, -
207 POS=(14,79)
208 DFHMDF ATTRB=(ASKIP,NORM), -
209 COLOR=BLUE, -
210 LENGTH=14, -
211 POS=(15,13), -
212 INITIAL='(-99999999.99)'
213 DFHMDF ATTRB=(ASKIP,NORM), -
214 COLOR=BLUE, -
215 LENGTH=12, -
216 POS=(15,41), -
217 INITIAL='(YYYY-MM-DD)'
218 DFHMDF ATTRB=(ASKIP,NORM), -
219 COLOR=BLUE, -
220 LENGTH=12, -
221 POS=(15,67), -
222 INITIAL='(YYYY-MM-DD)'
223 DFHMDF ATTRB=(ASKIP,NORM), -
224 COLOR=TURQUOISE, -
225 LENGTH=12, -
226 POS=(16,6), -
227 INITIAL='Merchant ID:'
228MID DFHMDF ATTRB=(FSET,NORM,UNPROT), -
229 COLOR=GREEN, -
230 HILIGHT=UNDERLINE, -
231 LENGTH=9, -
232 POS=(16,19), -
233 INITIAL=' '
234 DFHMDF LENGTH=0, -
235 POS=(16,29)
236 DFHMDF ATTRB=(ASKIP,NORM), -
237 COLOR=TURQUOISE, -
238 LENGTH=14, -
239 POS=(16,33), -
240 INITIAL='Merchant Name:'
241MNAME DFHMDF ATTRB=(FSET,NORM,UNPROT), -
242 COLOR=GREEN, -
243 HILIGHT=UNDERLINE, -
244 LENGTH=30, -
245 POS=(16,48), -
246 INITIAL=' '
247 DFHMDF LENGTH=0, -
248 POS=(16,79)
249 DFHMDF ATTRB=(ASKIP,NORM), -
250 COLOR=TURQUOISE, -
251 LENGTH=14, -
252 POS=(18,6), -
253 INITIAL='Merchant City:'
254MCITY DFHMDF ATTRB=(FSET,NORM,UNPROT), -
255 COLOR=GREEN, -
256 HILIGHT=UNDERLINE, -
257 LENGTH=25, -
258 POS=(18,21), -
259 INITIAL=' '
260 DFHMDF LENGTH=0, -
261 POS=(18,47)
262 DFHMDF ATTRB=(ASKIP,NORM), -
263 COLOR=TURQUOISE, -
264 LENGTH=13, -
265 POS=(18,53), -
266 INITIAL='Merchant Zip:'
267MZIP DFHMDF ATTRB=(FSET,NORM,UNPROT), -
268 COLOR=GREEN, -
269 HILIGHT=UNDERLINE, -
270 LENGTH=10, -
271 POS=(18,67), -
272 INITIAL=' '
273 DFHMDF LENGTH=0, -
274 POS=(18,78)
275 DFHMDF ATTRB=(ASKIP,NORM), -
276 COLOR=TURQUOISE, -
277 LENGTH=55, -
278 POS=(21,6), -
279 INITIAL='You are about to add this transaction. Please c-
280 onfirm :'
281CONFIRM DFHMDF ATTRB=(FSET,NORM,UNPROT), -
282 COLOR=GREEN, -
283 HILIGHT=UNDERLINE, -
284 LENGTH=1, -
285 POS=(21,63)
286 DFHMDF LENGTH=0, -
287 POS=(21,65)
288 DFHMDF ATTRB=(ASKIP,NORM), -
289 COLOR=NEUTRAL, -
290 LENGTH=5, -
291 POS=(21,66), -
292 INITIAL='(Y/N)'
293ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
294 COLOR=RED, -
295 LENGTH=78, -
296 POS=(23,1)
297 DFHMDF ATTRB=(ASKIP,NORM), -
298 COLOR=YELLOW, -
299 LENGTH=53, -
300 POS=(24,1), -
301 INITIAL='ENTER=Continue F3=Back F4=Clear F5=Copy Last-
302 Tran.'
303 DFHMSD TYPE=FINAL
304 END
305*
306* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:43 CDT
307*