
  TYPE
    put$file_identifier = record
      lfn: amt$local_file_name,
      file_id: amt$file_identifier,
      device_class: rmt$device_class,
      label_type: amt$label_type,
      open_position: amt$open_position,
      operation: put$operation,
      record_type: amt$record_type,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc AMT$FILE_IDENTIFIER
*copyc RMT$DEVICE_CLASS
*copyc AMT$LABEL_TYPE
*copyc AMT$LOCAL_FILE_NAME
*copyc AMT$OPEN_POSITION
*copyc AMT$RECORD_TYPE
*copyc PUT$OPERATION
?? POP ??
