  PROCEDURE [XREF] dfp$create_image_file
    (    server_mainframe_id: pmt$binary_mainframe_id;
         preallocated_size: ost$segment_length;
     VAR image_file_already_exists: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc pmt$binary_mainframe_id
*copyc osd$virtual_address
*copyc ost$status
?? POP ??
