  PROCEDURE [XREF] pup$write_file_display (pf_entry: put$entry;
        account: avt$account_name;
        project: avt$project_name;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc pud$backup_file
*copyc avt$account_name
*copyc avt$project_name
*copyc ost$status
?? POP ??
