
  PROCEDURE [XREF] clp$wild_card_file_expansion
    (    evaluated_file_reference: fst$evaluated_file_reference;
         expansion_option: clt$wc_file_expansion_option;
     VAR work_area {input, output} : ^clt$work_area;
     VAR result_list_head: ^clt$data_value;
     VAR result_list_tail: ^clt$data_value;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$no_match_for_wild_card_file
*copyc cle$wild_card_cant_be_first
*copyc cle$work_area_overflow
*copyc clt$data_value
*copyc clt$wc_file_expansion_option
*copyc clt$work_area
*copyc fst$evaluated_file_reference
*copyc ost$status
?? POP ??
