MFmainframe-rea
WS carddemo · 26f629ef

bms · 164 lines · sha256 f79efda027a728faapp/bms/COUSR01.bms

1******************************************************************
2* CardDemo - Add User
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******************************************************************
19COUSR01 DFHMSD CTRL=(ALARM,FREEKB), -
20 EXTATT=YES, -
21 LANG=COBOL, -
22 MODE=INOUT, -
23 STORAGE=AUTO, -
24 TIOAPFX=YES, -
25 TYPE=&&SYSPARM
26COUSR1A 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=9, -
78 POS=(4,35), -
79 INITIAL='Add User'
80 DFHMDF COLOR=TURQUOISE, -
81 LENGTH=11, -
82 POS=(8,6), -
83 INITIAL='First Name:'
84FNAME DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
85 COLOR=GREEN, -
86 HILIGHT=UNDERLINE, -
87 LENGTH=20, -
88 POS=(8,18)
89 DFHMDF ATTRB=(ASKIP,NORM), -
90 LENGTH=0, -
91 POS=(8,39)
92 DFHMDF ATTRB=(ASKIP,NORM), -
93 COLOR=TURQUOISE, -
94 LENGTH=10, -
95 POS=(8,45), -
96 INITIAL='Last Name:'
97LNAME DFHMDF ATTRB=(FSET,NORM,UNPROT), -
98 COLOR=GREEN, -
99 HILIGHT=UNDERLINE, -
100 LENGTH=20, -
101 POS=(8,56)
102 DFHMDF ATTRB=(ASKIP,NORM), -
103 COLOR=GREEN, -
104 LENGTH=0, -
105 POS=(8,77)
106 DFHMDF ATTRB=(ASKIP,NORM), -
107 COLOR=TURQUOISE, -
108 LENGTH=8, -
109 POS=(11,6), -
110 INITIAL='User ID:'
111USERID DFHMDF ATTRB=(FSET,NORM,UNPROT), -
112 COLOR=GREEN, -
113 HILIGHT=UNDERLINE, -
114 LENGTH=8, -
115 POS=(11,15)
116 DFHMDF ATTRB=(ASKIP,NORM), -
117 COLOR=BLUE, -
118 LENGTH=8, -
119 POS=(11,24), -
120 INITIAL='(8 Char)'
121 DFHMDF ATTRB=(ASKIP,NORM), -
122 COLOR=TURQUOISE, -
123 LENGTH=9, -
124 POS=(11,45), -
125 INITIAL='Password:'
126PASSWD DFHMDF ATTRB=(DRK,FSET,UNPROT), -
127 COLOR=GREEN, -
128 HILIGHT=UNDERLINE, -
129 LENGTH=8, -
130 POS=(11,55)
131 DFHMDF ATTRB=(ASKIP,NORM), -
132 COLOR=BLUE, -
133 LENGTH=8, -
134 POS=(11,64), -
135 INITIAL='(8 Char)'
136 DFHMDF ATTRB=(ASKIP,NORM), -
137 COLOR=TURQUOISE, -
138 LENGTH=11, -
139 POS=(14,6), -
140 INITIAL='User Type: '
141USRTYPE DFHMDF ATTRB=(FSET,NORM,UNPROT), -
142 COLOR=GREEN, -
143 HILIGHT=UNDERLINE, -
144 LENGTH=1, -
145 POS=(14,17)
146 DFHMDF ATTRB=(ASKIP,NORM), -
147 COLOR=BLUE, -
148 LENGTH=17, -
149 POS=(14,19), -
150 INITIAL='(A=Admin, U=User)'
151ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
152 COLOR=RED, -
153 LENGTH=78, -
154 POS=(23,1)
155 DFHMDF ATTRB=(ASKIP,NORM), -
156 COLOR=YELLOW, -
157 LENGTH=43, -
158 POS=(24,1), -
159 INITIAL='ENTER=Add User F3=Back F4=Clear F12=Exit'
160 DFHMSD TYPE=FINAL
161 END
162*
163* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:44 CDT
164*