  PROCEDURE [XREF] osp$get_policy_list
    (    policies_sequence_header: ost$ecp_header;
     VAR result: ^clt$data_value;
     VAR work_area {input, output} : ^clt$work_area);

?? PUSH (LISTEXT := ON) ??
*copyc clt$data_value
*copyc clt$work_area
*copyc osd$exception_policies
?? POP ??
