CROSSREF Manual

SCREEN COBOL
Sample Listing
57 05 FILLER AT 3, 14
58 VALUE "Press the appropriate function key to test the ".
59 05 FILLER AT 4, 14
60 VALUE "character set desired. ".
61 05 FILLER AT 5, 14
62 VALUE "The screens will contain all instructions necessary".
63 05 FILLER AT 6, 14
64 VALUE "to run the tests".
65 05 L1 AT 8, 14
66 PIC X(65)
67 FROM INFO1 .
68 05 L2 AT 9, 14
69 PIC X(65)
70 FROM INFO2 .
71 05 L3 AT 10, 14
72 PIC X(65)
73 FROM INFO3 .
74 05 L4 AT 11, 14
75 PIC X(65)
76 FROM INFO4 .
77 05 L5 AT 12, 14
78 PIC X(65)
79 FROM INFO5 .
80 05 FILLER AT 14, 25
81 VALUE "Character set selection keys".
82 05 FILLER AT 16, 22
83 VALUE "F1 French (AZ) F2 French (QW)".
84 05 FILLER AT 17, 22
85 VALUE "F3 German F4 Spanish".
86 05 FILLER AT 18, 22
87 VALUE "F5 United Kingdom F6 Swedish".
88 05 FILLER AT 19, 22
89 VALUE "F7 Danish F14 Recover ".
90 05 FILLER AT 20, 22
91 VALUE "RETURN message SF16 End Test ".
92 05 ERR-WINDOW AT 24, 4
93 PIC X(67)
94 FROM ERR-MSG
95 ADVISORY .
96
97 PROCEDURE DIVISION.
98 DECLARATIVES.
99 RECOVER-SCRN SECTION.
100 USE FOR SCREEN RECOVERY.
101 DISPLAY DRAGON-SCREEN.
102 MOVE "SCREEN RECOVERY ACTIVATED" TO ERR-MSG.
103 DISPLAY TEMP ERR-WINDOW.
104 END DECLARATIVES.
105
106 MAIN-DRIVER.
107 Move space to info1.
108 MOVE "NO" TO END-OF-TEST.
109 PERFORM STEP1
110 UNTIL END-OF-TEST = "YES".
111 ALL-DONE.
112 EXIT PROGRAM.
Figure 11-1. SCREEN COBOL Sample Program (Page 2 of 4)
11-5