1 /*        BEGIN INCLUDE FILE gcos_fms_return_code_.incl.pl1 April 1977          MRJ       */
 2 
 3 
 4 dcl  fms_return_code_ptr ptr;
 5 
 6 dcl 1 fms_return_code aligned based (fms_return_code_ptr),
 7     2 termination_indicator bit (1) unal,
 8     2 reason bit (11) unal,
 9     2 fill bit (6) unal,
10     2 bad_name_loc bit (18) unal,
11     2 err_mess_dcw unal,
12       3 data_loc bit (18),
13       3 character_position bit (3),
14       3 character_tally bit (1),
15       3 dcw_type bit (2),
16       3 tally bit (12);
17 
18 
19 /*        END INCULDE FILE gcos_fms_return_code_.incl.pl1   */