CROSSREF Manual

SCREEN COBOL
Sample Listing
113
114
115 Step1.
116
117 Display base DRAGON-SCREEN.
118 Display L1.
119 Display " " in L2.
120 Display " " in L3.
121 Display " " in L4.
122 Accept
123 UNTIL F1 F2 F3 F4 F5 F6 F7 F14 RETURN-KEY
124 Escape on SF16.
125 If termination-status = 10
126 move "YES" to end-of-test
127 else
128 move space to info1.
129 perform one of
130 TEST1
131 TEST2
132 TEST3
133 TEST4
134 TEST5
135 TEST6
136 TEST7
137 RECOVER-SCRN1
138 DISPLAY-RETURN
139 depending on termination-status.
140 /
141 TEST1.
142 * FRENCH (AZ)
143 Call scdragn6
144 on error
145 perform TEST1-ERROR.
146
147 TEST2.
148 * FRENCH (QW)
149 Call scdragn5
150 on error
151 perform TEST2-ERROR.
152
153 TEST3.
154 * GERMAN
155 Call scdragn3
156 on error
157 perform TEST3-ERROR.
158
159 TEST4.
160 * SPANISH
161 Call scdragn7
162 on error
163 perform TEST4-ERROR.
164
165 TEST5.
166 * UNITED KINGDOM
167 Call scdragn8
168 on error
Figure 11-1. SCREEN COBOL Sample Program (Page 3 of 4)
11-6