CROSSREF Manual

SCREEN COBOL
Sample Listing
1 IDENTIFICATION DIVISION.
2 Program-id.
3 ScdragnA.
4 ENVIRONMENT DIVISION.
5 CONFIGURATION SECTION.
6 SOURCE-COMPUTER.
7 T16.
8 OBJECT-COMPUTER.
9 T16,
10 Terminal is T16-6530.
11 * Character-set is US ASCII
12 * Character-set is USASCII.
13 SPECIAL-NAMES.
14 F1 is F1,
15 F2 is F2,
16 F3 is F3,
17 F4 is F4,
18 F5 is F5,
19 F6 is F6,
20 F7 is F7,
21 F14 is F14
22 SF16 is SF16,
23 RETURN-KEY is RETURN-KEY.
24
25 *---------------------------------------------------------------------
26 *
27 * ---->>>>>> This version for 6530 terminal.
28 * ---->>>>>> The terminal must have the appropriate language
29 * ---->>>>>> installed and the RETURN key configured as a function
30 * ---->>>>>> key.
31 * The purpose of this test is to check out the national use character
32 * features of SCOBOL.
33 *
34 * 1. A menu screen will appear and ask you to select the
35 * character set you wish to test.
36 *
37 *---------------------------------------------------------------------
38
39 DATA DIVISION.
40 WORKING-STORAGE SECTION.
41
42 01 Info1 Pic x(65) Value spaces.
43 01 Info2 Pic x(65) Value spaces.
44 01 Info3 Pic x(65) Value spaces.
45 01 Info4 Pic x(65) Value spaces.
46 01 Info5 Pic x(65) Value spaces.
47 01 Err-msg Pic x(67) Value spaces.
48 01 END-OF-TEST Pic x(03) Value "NO ".
49
50 LINKAGE SECTION.
51
52 SCREEN SECTION.
53
54 01 DRAGON-SCREEN SIZE 24, 80 .
55 05 FILLER AT 1, 18
56 VALUE "Test of European National Use Characters" .
Figure 11-1. SCREEN COBOL Sample Program (Page 1 of 4)
11-4