MFmainframe-rea
WS carddemo · 26f629ef

bms · 137 lines · sha256 1496a35f219e92b5app/app-transaction-type-db2/bms/COTRTUP.bms

1***********************************************************************
2* CardDemo -Transaction Type Update 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 TRANSACTION TYPE UPDATE'
20COTRTUP DFHMSD LANG=COBOL, -
21 MODE=INOUT, -
22 STORAGE=AUTO, -
23 TIOAPFX=YES, -
24 TYPE=&&SYSPARM
25CTRTUPA 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=25, -
77 POS=(7,28), -
78 INITIAL='Maintain Transaction Type'
79 DFHMDF ATTRB=(ASKIP,NORM), -
80 COLOR=TURQUOISE, -
81 LENGTH=19, -
82 POS=(12,4), -
83 INITIAL='Transaction Type :'
84TRTYPCD DFHMDF ATTRB=(IC,UNPROT), -
85 HILIGHT=UNDERLINE, -
86 LENGTH=2, -
87 POS=(12,26)
88 DFHMDF LENGTH=0, -
89 POS=(12,29)
90 DFHMDF COLOR=TURQUOISE, -
91 LENGTH=19, -
92 POS=(14,4), -
93 INITIAL='Description :'
94TRTYDSC DFHMDF ATTRB=(UNPROT), -
95 HILIGHT=UNDERLINE, -
96 LENGTH=50, -
97 POS=(14,26)
98 DFHMDF LENGTH=0, -
99 POS=(14,77)
100INFOMSG DFHMDF ATTRB=(ASKIP), -
101 COLOR=NEUTRAL, -
102 HILIGHT=OFF, -
103 LENGTH=45, -
104 POS=(22,23)
105 DFHMDF LENGTH=0, -
106 POS=(22,69)
107ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), -
108 COLOR=RED, -
109 LENGTH=78, -
110 POS=(23,1)
111FKEYS DFHMDF ATTRB=(ASKIP,NORM), -
112 COLOR=YELLOW, -
113 LENGTH=21, -
114 POS=(24,1), -
115 INITIAL='ENTER=Process F3=Exit'
116FKEY04 DFHMDF ATTRB=(ASKIP,DRK), -
117 COLOR=YELLOW, -
118 LENGTH=9, -
119 POS=(24,23), -
120 INITIAL='F4=Delete'
121FKEY05 DFHMDF ATTRB=(ASKIP,DRK), -
122 COLOR=YELLOW, -
123 LENGTH=8, -
124 POS=(24,33), -
125 INITIAL='F5=Save'
126FKEY06 DFHMDF ATTRB=(ASKIP,DRK), -
127 COLOR=YELLOW, -
128 LENGTH=6, -
129 POS=(24,43), -
130 INITIAL='F6=Add'
131FKEY12 DFHMDF ATTRB=(ASKIP,DRK), -
132 COLOR=YELLOW, -
133 LENGTH=10, -
134 POS=(24,69), -
135 INITIAL='F12=Cancel'
136 DFHMSD TYPE=FINAL
137 END