  PROCEDURE [XREF] osp$get_policy
    (    policy_number: ost$positive_integers;
         policies_sequence_header: ost$ecp_header;
     VAR policy: ^ost$ecp_policy_header);

?? PUSH (LISTEXT := ON) ??
*copyc osd$exception_policies
*copyc osd$integer_limits
?? POP ??
