1
2
3
4
5
6
7
8
9
10 dcl cobol_ext_$cobol_afp ptr ext;
11 dcl cobol_afp ptr defined ( cobol_ext_$cobol_afp);
12 dcl cobol_ext_$cobol_analin_fileno ptr ext;
13 dcl cobol_analin_fileno ptr defined ( cobol_ext_$cobol_analin_fileno);
14 dcl cobol_ext_$report_first_token ptr ext;
15 dcl report_first_token ptr defined( cobol_ext_$report_first_token);
16 dcl cobol_ext_$report_last_token ptr ext;
17 dcl report_last_token ptr defined ( cobol_ext_$report_last_token);
18 dcl cobol_ext_$cobol_eltp ptr ext;
19 dcl cobol_eltp ptr defined ( cobol_ext_$cobol_eltp);
20 dcl cobol_ext_$cobol_cmfp ptr ext;
21 dcl cobol_cmfp ptr defined ( cobol_ext_$cobol_cmfp);
22 dcl cobol_ext_$cobol_com_fileno ptr ext;
23 dcl cobol_com_fileno ptr defined ( cobol_ext_$cobol_com_fileno);
24 dcl cobol_ext_$cobol_com_ptr ptr ext;
25 dcl cobol_com_ptr ptr defined ( cobol_ext_$cobol_com_ptr);
26 dcl cobol_ext_$cobol_dfp ptr ext;
27 dcl cobol_dfp ptr defined ( cobol_ext_$cobol_dfp);
28 dcl cobol_ext_$cobol_hfp ptr ext;
29 dcl cobol_hfp ptr defined ( cobol_ext_$cobol_hfp);
30 dcl cobol_ext_$cobol_m1fp ptr ext;
31 dcl cobol_m1fp ptr defined ( cobol_ext_$cobol_m1fp);
32 dcl cobol_ext_$cobol_m2fp ptr ext;
33 dcl cobol_m2fp ptr defined ( cobol_ext_$cobol_m2fp);
34 dcl cobol_ext_$cobol_min1_fileno ptr ext;
35 dcl cobol_min1_fileno ptr defined ( cobol_ext_$cobol_min1_fileno);
36 dcl cobol_ext_$cobol_min2_fileno_ptr ptr ext;
37 dcl cobol_min2_fileno_ptr ptr defined ( cobol_ext_$cobol_min2_fileno_ptr);
38 dcl cobol_ext_$cobol_name_fileno ptr ext;
39 dcl cobol_name_fileno ptr defined ( cobol_ext_$cobol_name_fileno);
40 dcl cobol_ext_$cobol_name_fileno_ptr ptr ext;
41 dcl cobol_name_fileno_ptr ptr defined ( cobol_ext_$cobol_name_fileno_ptr);
42 dcl cobol_ext_$cobol_ntfp ptr ext;
43 dcl cobol_ntfp ptr defined ( cobol_ext_$cobol_ntfp);
44 dcl cobol_ext_$cobol_pdofp ptr ext;
45 dcl cobol_pdofp ptr defined ( cobol_ext_$cobol_pdofp);
46 dcl cobol_ext_$cobol_pfp ptr ext;
47 dcl cobol_pfp ptr defined ( cobol_ext_$cobol_pfp);
48 dcl cobol_ext_$cobol_rm2fp ptr ext;
49 dcl cobol_rm2fp ptr defined ( cobol_ext_$cobol_rm2fp);
50 dcl cobol_ext_$cobol_rmin2fp ptr ext;
51 dcl cobol_rmin2fp ptr defined ( cobol_ext_$cobol_rmin2fp);
52 dcl cobol_ext_$cobol_curr_in ptr ext;
53 dcl cobol_curr_in ptr defined ( cobol_ext_$cobol_curr_in);
54 dcl cobol_ext_$cobol_curr_out ptr ext;
55 dcl cobol_curr_out ptr defined ( cobol_ext_$cobol_curr_out);
56 dcl cobol_ext_$cobol_sfp ptr ext;
57 dcl cobol_sfp ptr defined ( cobol_ext_$cobol_sfp);
58 dcl cobol_ext_$cobol_w1p ptr ext;
59 dcl cobol_w1p ptr defined ( cobol_ext_$cobol_w1p);
60 dcl cobol_ext_$cobol_w2p ptr ext;
61 dcl cobol_w2p ptr defined ( cobol_ext_$cobol_w2p);
62 dcl cobol_ext_$cobol_w3p ptr ext;
63 dcl cobol_w3p ptr defined ( cobol_ext_$cobol_w3p);
64 dcl cobol_ext_$cobol_w5p ptr ext;
65 dcl cobol_w5p ptr defined ( cobol_ext_$cobol_w5p);
66 dcl cobol_ext_$cobol_w6p ptr ext;
67 dcl cobol_w6p ptr defined ( cobol_ext_$cobol_w6p);
68 dcl cobol_ext_$cobol_w7p ptr ext;
69 dcl cobol_w7p ptr defined ( cobol_ext_$cobol_w7p);
70 dcl cobol_ext_$cobol_x3fp ptr ext;
71 dcl cobol_x3fp ptr defined ( cobol_ext_$cobol_x3fp);
72 dcl cobol_ext_$cobol_rwdd ptr ext;
73 dcl cobol_rwdd ptr defined(cobol_ext_$cobol_rwdd);
74 dcl cobol_ext_$cobol_rwpd ptr ext;
75 dcl cobol_rwpd ptr defined(cobol_ext_$cobol_rwpd);
76
77
78 dcl cobol_ext_$cobol_fileno1 fixed bin(24)ext;
79 dcl cobol_fileno1 fixed bin(24)defined ( cobol_ext_$cobol_fileno1);
80 dcl cobol_ext_$cobol_options_len fixed bin(24)ext;
81 dcl cobol_options_len fixed bin(24)defined ( cobol_ext_$cobol_options_len);
82 dcl cobol_ext_$cobol_pdout_fileno fixed bin(24)ext;
83 dcl cobol_pdout_fileno fixed bin(24)defined ( cobol_ext_$cobol_pdout_fileno);
84 dcl cobol_ext_$cobol_print_fileno fixed bin(24)ext;
85 dcl cobol_print_fileno fixed bin(24)defined ( cobol_ext_$cobol_print_fileno);
86 dcl cobol_ext_$cobol_rmin2_fileno fixed bin(24)ext;
87 dcl cobol_rmin2_fileno fixed bin(24)defined ( cobol_ext_$cobol_rmin2_fileno);
88 dcl cobol_ext_$cobol_x1_fileno fixed bin(24)ext;
89 dcl cobol_x1_fileno fixed bin(24)defined ( cobol_ext_$cobol_x1_fileno);
90 dcl cobol_ext_$cobol_x2_fileno fixed bin(24)ext;
91 dcl cobol_x2_fileno fixed bin(24)defined ( cobol_ext_$cobol_x2_fileno);
92 dcl cobol_ext_$cobol_x3_fileno fixed bin(24)ext;
93 dcl cobol_x3_fileno fixed bin(24)defined ( cobol_ext_$cobol_x3_fileno);
94
95 dcl cobol_ext_$cobol_lpr char (5) ext;
96 dcl cobol_lpr char (5) defined ( cobol_ext_$cobol_lpr);
97 dcl cobol_ext_$cobol_options char (120) ext;
98 dcl cobol_options char (120) defined ( cobol_ext_$cobol_options);
99
100 dcl cobol_ext_$cobol_xlast8 bit (1) ext;
101 dcl cobol_xlast8 bit (1) defined ( cobol_ext_$cobol_xlast8);
102 dcl cobol_ext_$report_exists bit (1) ext;
103 dcl report_exists bit (1) defined ( cobol_ext_$report_exists);
104
105
106
107
108