MFmainframe-rea
WS carddemo · 26f629ef

bms · 157 lines · sha256 93feec4d134e991aapp/bms/COCRDSL.bms

1******************************************************************
2* CardDemo - Card Selection 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******************************************************************
19 TITLE 'BMS MAP FOR SELECT CARDS '
20COCRDSL DFHMSD LANG=COBOL, -
21 MODE=INOUT, -
22 STORAGE=AUTO, -
23 TIOAPFX=YES, -
24 TYPE=&&SYSPARM
25CCRDSLA DFHMDI CTRL=(FREEKB), -
26 DSATTS=(COLOR,HILIGHT,PS,VALIDN), -
27 MAPATTS=(COLOR,HILIGHT,PS,VALIDN), -
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,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,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,NORM), -
58 COLOR=BLUE, -
59 LENGTH=8, -
60 POS=(2,7)
61TITLE02 DFHMDF ATTRB=(ASKIP,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,NORM), -
71 COLOR=BLUE, -
72 LENGTH=8, -
73 POS=(2,71), -
74 INITIAL='hh:mm:ss'
75 DFHMDF COLOR=NEUTRAL, -
76 LENGTH=23, -
77 POS=(4,30), -
78 INITIAL='View Credit Card Detail'
79 DFHMDF ATTRB=(ASKIP,NORM), -
80 COLOR=TURQUOISE, -
81 LENGTH=19, -
82 POS=(7,23), -
83 INITIAL='Account Number :'
84ACCTSID DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), -
85 COLOR=DEFAULT, -
86 HILIGHT=UNDERLINE, -
87 LENGTH=11, -
88 POS=(7,45)
89 DFHMDF LENGTH=0, -
90 POS=(7,57)
91 DFHMDF ATTRB=(ASKIP,NORM), -
92 COLOR=TURQUOISE, -
93 LENGTH=19, -
94 POS=(8,23), -
95 INITIAL='Card Number :'
96CARDSID DFHMDF ATTRB=(FSET,NORM,UNPROT), -
97 COLOR=DEFAULT, -
98 HILIGHT=UNDERLINE, -
99 LENGTH=16, -
100 POS=(8,45)
101 DFHMDF LENGTH=0, -
102 POS=(8,62)
103 DFHMDF COLOR=TURQUOISE, -
104 LENGTH=20, -
105 POS=(11,4), -
106 INITIAL='Name on card :'
107CRDNAME DFHMDF HILIGHT=UNDERLINE, -
108 LENGTH=50, -
109 POS=(11,25)
110 DFHMDF LENGTH=0, -
111 POS=(11,76)
112 DFHMDF COLOR=TURQUOISE, -
113 LENGTH=20, -
114 POS=(13,4), -
115 INITIAL='Card Active Y/N : '
116CRDSTCD DFHMDF ATTRB=(ASKIP), -
117 HILIGHT=UNDERLINE, -
118 LENGTH=1, -
119 POS=(13,25)
120 DFHMDF LENGTH=0, -
121 POS=(13,27)
122 DFHMDF COLOR=TURQUOISE, -
123 LENGTH=20, -
124 POS=(15,4), -
125 INITIAL='Expiry Date : '
126EXPMON DFHMDF ATTRB=(ASKIP), -
127 HILIGHT=UNDERLINE, -
128 LENGTH=2, -
129 POS=(15,25)
130 DFHMDF LENGTH=1, -
131 POS=(15,28), -
132 INITIAL='/'
133EXPYEAR DFHMDF ATTRB=(ASKIP), -
134 HILIGHT=UNDERLINE, -
135 LENGTH=4, -
136 POS=(15,30)
137 DFHMDF LENGTH=0, -
138 POS=(15,35)
139INFOMSG DFHMDF ATTRB=(PROT), -
140 COLOR=NEUTRAL, -
141 HILIGHT=OFF, -
142 LENGTH=40, -
143 POS=(20,25)
144ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
145 COLOR=RED, -
146 LENGTH=80, -
147 POS=(23,1)
148FKEYS DFHMDF ATTRB=(ASKIP,NORM), -
149 COLOR=YELLOW, -
150 LENGTH=75, -
151 POS=(24,1), -
152 INITIAL='ENTER=Search Cards F3=Exit'
153 DFHMSD TYPE=FINAL
154 END
155*
156* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:42 CDT
157*