MFmainframe-rea
WS carddemo · 26f629ef

bms · 273 lines · sha256 be0749c98ec7d60aapp/bms/COTRN01.bms

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