
  PROCEDURE [XREF] clp$access_command_file
    (    command_file: clt$command_file_kind;
*IF NOT $true(osv$unix)
         submitter_ring: ost$ring;
*IFEND
         file_reference: fst$file_reference;
     VAR file_id: amt$file_identifier;
     VAR segment: ^SEQ ( * );
     VAR opened_executable_file: boolean;
     VAR can_be_echoed: boolean;
     VAR line_layout: clt$line_layout;
*IF NOT $true(osv$unix)
     VAR file_contents: clt$file_contents;
     VAR ring_attributes: amt$ring_attributes;
     VAR file_has_fap: boolean;
*IFEND
     VAR device_class: rmt$device_class;
*IF NOT $true(osv$unix)
     VAR path_handle_name: fst$path_handle_name;
*ELSE
     VAR path_handle_name: fst$path;
*IFEND
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*IF NOT $true(osv$unix)
*copyc amt$ring_attributes
*IFEND
*copyc clt$command_file_kind
*IF NOT $true(osv$unix)
*copyc clt$file_contents
*IFEND
*copyc clt$line_layout
*copyc fst$file_reference
*copyc fst$path_handle_name
*IF NOT $true(osv$unix)
*copyc osd$virtual_address
*IFEND
*copyc ost$status
*copyc rmt$device_class
?? POP ??
