
  PROCEDURE [XREF] clp$define_scl_procedure
    (    file_id: amt$file_identifier;
         work_area: ^SEQ ( * );
     VAR procedure_name: pmt$program_name;
     VAR aliases: ^array [1 .. * ] of pmt$program_name;
     VAR command_or_function: clt$command_or_function;
     VAR availability: clt$named_entry_availability;
     VAR command_kind: llt$command_kind;
     VAR command_log_option: clt$command_log_option;
     VAR scl_procedure: ^clt$scl_procedure;
     VAR file_position: amt$file_position;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc amt$file_position
*copyc cle$expecting_proc
*copyc clt$command_log_option
*copyc clt$command_or_function
*copyc clt$named_entry_availability
*copyc clt$scl_procedure
*copyc llt$command_kind
*copyc ost$status
*copyc pmt$program_name
?? POP ??
