1 /* BEGIN INCLUDE FILE gcos_xio_dcl_.incl.pl1 */
 2 /*
 3  Created:  Ron Barstad  83-03-04  based on dcl_XIO.incl.pl1
 4 */
 5 dcl       gcos_xio_$open      entry(
 6                               /* 1. */ char(*)    /* (input)  Caller. */
 7 ,                             /* 2. */ char(*)    /* (input)  Stream name. */
 8 ,                             /* 3. */ char(*)    /* (input)  Mode: "input" | "output" */
 9 ,                             /* 4. */ ptr        /* (output) Pointer to file control block . */
10 ,                             /* 5. */ char(*))   /* (input)  Segment pathname. */
11                               /* 6. */ returns(bit(1)) /* "1"b => failure. */;
12 
13 dcl       gcos_xio_$close     entry(
14                               /* 1. */ char(*)    /* (input)  Caller. */
15 ,                             /* 2. */ ptr)       /* (input)  Pointer to file control block. */
16                               /* 3. */ returns(bit(1)) /* "1"b => failure. */;
17 /*   END INCLUDE FILE gcos_xio_dcl_.incl.pl1 */