
  PROCEDURE [XREF] nap$open_di_dump_file
    (    system: string (12);
         timestamp: string (12);
         dump_type: string (4);
         max_dumps: 0 .. 1000;
         max_dump_size: 0 .. 100000000;
     VAR dump_file_id: amt$file_identifier;
     VAR dump_data: ^SEQ ( * );
     VAR dump_file_opened: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc ost$status
?? POP ??
