1 
 2 /* BEGIN INCLUDE FILE ...   cobol_io_info.incl.pl1 */
 3 
 4 /*  EXTERNAL COBOL I/O ENTRIES  */
 5 
 6 dcl   cobol_vdwf_open ext entry (ptr, bit(32));
 7 dcl   cobol_swf_open ext entry (ptr,bit(32),ptr,fixed bin,char(2));
 8 
 9 dcl   cobol_swf_get ext entry(ptr,bit(32),ptr,fixed bin);
10 
11 dcl   cobol_swf_put ext entry(ptr,bit(32),ptr,fixed bin);
12 
13 dcl   cobol_swf_close ext entry(ptr,bit(32),ptr,fixed bin);
14 
15 dcl   cobol_vdwf_sget ext entry(ptr,bit(32),ptr,fixed bin,char(5));
16 
17 dcl   cobol_vdwf_sput ext entry (ptr,bit(32),ptr,fixed bin,char(5));
18 
19 dcl   cobol_vdwf_dget ext entry(ptr,bit(32),ptr,fixed bin,char(5));
20 
21 dcl   cobol_vdwf_dput ext entry(ptr,bit(32),ptr,fixed bin,char(5));
22 
23 dcl   cobol_vdwf_close ext entry(ptr,bit(32),ptr,fixed bin);
24 
25 
26 /*  DECLARATION OF SOME VARIABLES USED IN COMPILER I/O CALLS  */
27 
28 dcl keyno char(5);
29 dcl key1 char(5);
30 dcl curr_input ptr;
31 dcl curr_output ptr;
32 dcl recsize fixed bin;
33 dcl recsize2 fixed bin;
34 dcl status bit(32);
35 
36 
37 
38 dcl       1 status_word based(st_ptr),
39                     2 status_left bit(16),
40                     2 status_right bit(16);
41 
42 dcl st_ptr ptr;
43 
44 
45 /* END INCLUDE FILE ...   cobol_io_info.incl.pl1 */
46