1 /* BEGIN INCLUDE FILE ..... iocb.incl.pl1 ..... 13 Feb 1975, M. Asherman */
 2 /* Modified 11/29/82 by S. Krupp to add new entries and to change
 3       version number to IOX2. */
 4 /* format: style2 */
 5 
 6      dcl     1 iocb                 aligned based,          /* I/O control block. */
 7                2 version            character (4) aligned,  /* IOX2 */
 8                2 name               char (32),              /* I/O name of this block. */
 9                2 actual_iocb_ptr    ptr,                    /* IOCB ultimately SYNed to. */
10                2 attach_descrip_ptr ptr,                    /* Ptr to printable attach description. */
11                2 attach_data_ptr    ptr,                    /* Ptr to attach data structure. */
12                2 open_descrip_ptr   ptr,                    /* Ptr to printable open description. */
13                2 open_data_ptr      ptr,                    /* Ptr to open data structure (old SDB). */
14                2 reserved           bit (72),               /* Reserved for future use. */
15                2 detach_iocb        entry (ptr, fixed (35)),/* detach_iocb(p,s) */
16                2 open               entry (ptr, fixed, bit (1) aligned, fixed (35)),
17                                                             /* open(p,mode,not_used,s) */
18                2 close              entry (ptr, fixed (35)),/* close(p,s) */
19                2 get_line           entry (ptr, ptr, fixed (21), fixed (21), fixed (35)),
20                                                             /* get_line(p,bufptr,buflen,actlen,s) */
21                2 get_chars          entry (ptr, ptr, fixed (21), fixed (21), fixed (35)),
22                                                             /* get_chars(p,bufptr,buflen,actlen,s) */
23                2 put_chars          entry (ptr, ptr, fixed (21), fixed (35)),
24                                                             /* put_chars(p,bufptr,buflen,s) */
25                2 modes              entry (ptr, char (*), char (*), fixed (35)),
26                                                             /* modes(p,newmode,oldmode,s) */
27                2 position           entry (ptr, fixed, fixed (21), fixed (35)),
28                                                             /* position(p,u1,u2,s) */
29                2 control            entry (ptr, char (*), ptr, fixed (35)),
30                                                             /* control(p,order,infptr,s) */
31                2 read_record        entry (ptr, ptr, fixed (21), fixed (21), fixed (35)),
32                                                             /* read_record(p,bufptr,buflen,actlen,s) */
33                2 write_record       entry (ptr, ptr, fixed (21), fixed (35)),
34                                                             /* write_record(p,bufptr,buflen,s) */
35                2 rewrite_record     entry (ptr, ptr, fixed (21), fixed (35)),
36                                                             /* rewrite_record(p,bufptr,buflen,s) */
37                2 delete_record      entry (ptr, fixed (35)),/* delete_record(p,s) */
38                2 seek_key           entry (ptr, char (256) varying, fixed (21), fixed (35)),
39                                                             /* seek_key(p,key,len,s) */
40                2 read_key           entry (ptr, char (256) varying, fixed (21), fixed (35)),
41                                                             /* read_key(p,key,len,s) */
42                2 read_length        entry (ptr, fixed (21), fixed (35)),
43                                                             /* read_length(p,len,s) */
44                2 open_file          entry (ptr, fixed bin, char (*), bit (1) aligned, fixed bin (35)),
45                                                             /* open_file(p,mode,desc,not_used,s) */
46                2 close_file         entry (ptr, char (*), fixed bin (35)),
47                                                             /* close_file(p,desc,s) */
48                2 detach             entry (ptr, char (*), fixed bin (35));
49                                                             /* detach(p,desc,s) */
50 
51      declare iox_$iocb_version_sentinel
52                                     character (4) aligned external static;
53 
54 /* END INCLUDE FILE ..... iocb.incl.pl1 ..... */