1 /*  START OF:       tape_ioi_result_indexes.incl.pl1          *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* Result indexes for tape_ioi_.  */
 4 /* Written 11 May 1982 by Chris Jones */
 5 
 6 /* format: style4,delnl,insnl,indattr,ifthen,declareind10,dclind10 */
 7 dcl       TAPE_IO_BLOCK          fixed bin static options (constant) init (-1);
 8 dcl       TAPE_IO_SUCCESS        fixed bin static options (constant) init (0);
 9 dcl       TAPE_IO_USER_PROGRAM_ERROR
10                                  fixed bin static options (constant) init (1);
11 dcl       TAPE_IO_UNRECOVERABLE_IO_ERROR
12                                  fixed bin static options (constant) init (2);
13 dcl       TAPE_IO_RECOVERABLE_IO_ERROR
14                                  fixed bin static options (constant) init (3);
15 dcl       TAPE_IO_EOF            fixed bin static options (constant) init (4);
16 dcl       TAPE_IO_EOT            fixed bin static options (constant) init (5);
17 dcl       TAPE_IO_BOT            fixed bin static options (constant) init (6);
18 dcl       TAPE_IO_RECOVERABLE_IO_ERROR_AND_EOT
19                                  fixed bin static options (constant) init (7);
20 dcl       TAPE_IO_CODE_ALERT     fixed bin static options (constant) init (8);
21 
22 /*  END OF:         tape_ioi_result_indexes.incl.pl1          *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */