CROSSREF Manual

SCREEN COBOL
Sample Listing
169 perform TEST5-ERROR.
170
171 TEST6.
172 * SWEDISH/FINNISH
173 Call scdragn2
174 on error
175 perform TEST6-ERROR.
176
177 TEST7.
178 * DANISH/NORWEGIAN
179 Call scdragn4
180 on error
181 perform TEST7-ERROR.
182
183 RECOVER-SCRN1.
184 DISPLAY RECOVERY.
185
186 DISPLAY-RETURN.
187 MOVE "RETURN KEY PRESSED" TO ERR-MSG.
188 DISPLAY TEMP ERR-WINDOW.
189
190 /
191 TEST1-ERROR.
192 Move "on error returned from French (AZ) test" to info1.
193
194 TEST2-ERROR.
195 Move "on error returned from French (QW) test" to info1.
196
197 TEST3-ERROR.
198 Move "on error returned from German test" to info1.
199
200 TEST4-ERROR.
201 Move "on error returned from Spanish" to info1.
202
203 TEST5-ERROR.
204 Move "on error returned from United Kingdom test" to info1.
205
206 TEST6-ERROR.
207 Move "on error returned from Swedish/Finnish test" to info1.
208
209 TEST7-ERROR.
210 Move "on error returned from Danish/Norwegian test" to info1.
Figure 11-1. SCREEN COBOL Sample Program (Page 4 of 4)
11-7