MFmainframe-rea
WS carddemo · 26f629ef

bms · 210 lines · sha256 6747ba57e45fed7eapp/bms/COSGN00.bms

1******************************************************************
2* CardDemo - Login 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******************************************************************
19COSGN00 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COSGN0A DFHMDI COLUMN=1, -
27 LINE=1, -
28 SIZE=(24,80)
29 DFHMDF ATTRB=(ASKIP,NORM), -
30 COLOR=BLUE, -
31 LENGTH=6, -
32 POS=(1,1), -
33 INITIAL='Tran :'
34TRNNAME DFHMDF ATTRB=(ASKIP,FSET,NORM), -
35 COLOR=BLUE, -
36 LENGTH=4, -
37 POS=(1,8)
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=6, -
45 POS=(1,64), -
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=6, -
55 POS=(2,1), -
56 INITIAL='Prog :'
57PGMNAME DFHMDF ATTRB=(FSET,NORM,PROT), -
58 COLOR=BLUE, -
59 LENGTH=8, -
60 POS=(2,8)
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=6, -
68 POS=(2,64), -
69 INITIAL='Time :'
70CURTIME DFHMDF ATTRB=(FSET,NORM,PROT), -
71 COLOR=BLUE, -
72 LENGTH=9, -
73 POS=(2,71), -
74 INITIAL='Ahh:mm:ss'
75 DFHMDF ATTRB=(FSET,NORM,PROT), -
76 COLOR=BLUE, -
77 LENGTH=6, -
78 POS=(3,1), -
79 INITIAL='AppID:'
80APPLID DFHMDF ATTRB=(FSET,NORM,PROT), -
81 COLOR=BLUE, -
82 LENGTH=8, -
83 POS=(3,8)
84 DFHMDF ATTRB=(ASKIP,NORM), -
85 COLOR=BLUE, -
86 LENGTH=6, -
87 POS=(3,64), -
88 INITIAL='SysID:'
89SYSID DFHMDF ATTRB=(FSET,NORM,PROT), -
90 COLOR=BLUE, -
91 LENGTH=8, -
92 POS=(3,71), -
93 INITIAL=' '
94 DFHMDF ATTRB=(ASKIP,NORM), -
95 COLOR=NEUTRAL, -
96 LENGTH=66, -
97 POS=(5,6), -
98 INITIAL='This is a Credit Card Demo Application for Main-
99 frame Modernization'
100 DFHMDF ATTRB=(ASKIP,NORM), -
101 COLOR=BLUE, -
102 LENGTH=42, -
103 POS=(7,21), -
104 INITIAL='+========================================+'
105 DFHMDF ATTRB=(ASKIP,NORM), -
106 COLOR=BLUE, -
107 LENGTH=42, -
108 POS=(8,21), -
109 INITIAL='|%%%%%%% NATIONAL RESERVE NOTE %%%%%%%%|'
110 DFHMDF ATTRB=(ASKIP,NORM), -
111 COLOR=BLUE, -
112 LENGTH=42, -
113 POS=(9,21), -
114 INITIAL='|%(1) THE UNITED STATES OF KICSLAND (1)%|'
115 DFHMDF ATTRB=(ASKIP,NORM), -
116 COLOR=BLUE, -
117 LENGTH=42, -
118 POS=(10,21), -
119 INITIAL='|%$$ ___ ******** $$%|'
120 DFHMDF ATTRB=(ASKIP,NORM), -
121 COLOR=BLUE, -
122 LENGTH=42, -
123 POS=(11,21), -
124 INITIAL='|%$ {x} (o o) $%|'
125 DFHMDF ATTRB=(ASKIP,NORM), -
126 COLOR=BLUE, -
127 LENGTH=42, -
128 POS=(12,21), -
129 INITIAL='|%$ ****** ( V ) O N E $%|'
130 DFHMDF ATTRB=(ASKIP,NORM), -
131 COLOR=BLUE, -
132 LENGTH=42, -
133 POS=(13,21), -
134 INITIAL='|%(1) ---m-m--- (1)%|'
135 DFHMDF ATTRB=(ASKIP,NORM), -
136 COLOR=BLUE, -
137 LENGTH=42, -
138 POS=(14,21), -
139 INITIAL='|%%~~~~~~~~~~~ ONE DOLLAR ~~~~~~~~~~~~~%%|'
140 DFHMDF ATTRB=(ASKIP,NORM), -
141 COLOR=BLUE, -
142 LENGTH=42, -
143 POS=(15,21), -
144 INITIAL='+========================================+'
145 DFHMDF ATTRB=(ASKIP,NORM), -
146 COLOR=TURQUOISE, -
147 LENGTH=49, -
148 POS=(17,16), -
149 INITIAL='Type your User ID and Password, then press ENTE-
150 R:'
151 DFHMDF ATTRB=(ASKIP,NORM), -
152 COLOR=TURQUOISE, -
153 LENGTH=13, -
154 POS=(19,29), -
155 INITIAL='User ID :'
156USERID DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
157 COLOR=GREEN, -
158 HILIGHT=OFF, -
159 LENGTH=8, -
160 POS=(19,43)
161 DFHMDF ATTRB=(ASKIP,NORM), -
162 COLOR=GREEN, -
163 LENGTH=0, -
164 POS=(19,52)
165 DFHMDF ATTRB=(ASKIP,NORM), -
166 COLOR=BLUE, -
167 LENGTH=8, -
168 POS=(19,52), -
169 INITIAL='(8 Char)'
170 DFHMDF ATTRB=(ASKIP,NORM), -
171 COLOR=TURQUOISE, -
172 LENGTH=13, -
173 POS=(20,29), -
174 INITIAL='Password :'
175PASSWD DFHMDF ATTRB=(DRK,FSET,UNPROT), -
176 COLOR=GREEN, -
177 HILIGHT=OFF, -
178 LENGTH=8, -
179 POS=(20,43), -
180 INITIAL='________'
181 DFHMDF ATTRB=(ASKIP,NORM), -
182 COLOR=GREEN, -
183 LENGTH=0, -
184 POS=(20,52)
185 DFHMDF ATTRB=(ASKIP,NORM), -
186 COLOR=BLUE, -
187 LENGTH=8, -
188 POS=(20,52), -
189 INITIAL='(8 Char)'
190 DFHMDF ATTRB=(DRK,UNPROT), -
191 LENGTH=1, -
192 POS=(20,61), -
193 INITIAL=' '
194 DFHMDF ATTRB=(ASKIP,NORM), -
195 LENGTH=0, -
196 POS=(20,63)
197ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
198 COLOR=RED, -
199 LENGTH=78, -
200 POS=(23,1)
201 DFHMDF ATTRB=(ASKIP,NORM), -
202 COLOR=YELLOW, -
203 LENGTH=22, -
204 POS=(24,1), -
205 INITIAL='ENTER=Sign-on F3=Exit'
206 DFHMSD TYPE=FINAL
207 END
208*
209* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:43 CDT
210*