1 /* BEGIN INCLUDE FILE linus_force_ret.incl.pl1 -- jccj 4/29/77 */
 2 
 3 dcl 1 force_ret aligned based (sfr_ptr),                    /* Structure for forced retrievals */
 4     2 nargs fixed bin,                                      /* Number of relations */
 5     2 arg (ret_nargs_init refer (force_ret.nargs)),
 6       3 rel_name char (32),                                 /* relation name */
 7       3 ret_flag bit (1);                                   /* 1 = retrieve was forced */
 8 
 9 dcl  sfr_ptr ptr;
10 dcl  ret_nargs_init fixed bin;
11 
12 /* END INCLUDE FILE linus_force_ret.incl.pl1 */