
  PROCEDURE [INLINE] clp$close_command_file
    (    file_id: amt$file_identifier;
         executable_file: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

*IF NOT $true(osv$unix)
    IF executable_file THEN
      clp$close_executable_cmnd_file (file_id, status);
    ELSE
*ELSE
    status.normal := TRUE;

    IF file_id <> amc_stdin_fid THEN
*IFEND
      fsp$close_file (file_id, status);
    IFEND;

  PROCEND clp$close_command_file;

*IF $true(osv$unix)
*copyc amc_standard_files
*IFEND
*copyc amt$file_identifier
*copyc ost$status
?? POP ??
*IF NOT $true(osv$unix)
*copyc clp$close_executable_cmnd_file
*IFEND
*copyc fsp$close_file
