
  PROCEDURE [XREF] clp$push_input_file_block
*IF NOT $true(osv$unix)
    (    file_name: fst$path_handle_name;
*ELSE
    (    file_name: fst$path;
*IFEND
         file_id: amt$file_identifier;
         utility_name: clt$utility_name;
         prompt_string: clt$prompt_string;
         input_can_be_echoed: boolean;
         line_layout: clt$line_layout;
         device_class: rmt$device_class;
         file_has_fap: boolean;
         process_utility_end_include: boolean;
     VAR input_block: ^clt$block);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc clt$block
*copyc clt$line_layout
*copyc clt$prompt_string
*copyc clt$utility_name
*IF NOT $true(osv$unix)
*copyc fst$path_handle_name
*ELSE
*copyc fst$path
*IFEND
*copyc rmt$device_class
?? POP ??
