  PROCEDURE [XREF] dfp$fetch_access_work
    (VAR inhibit_access_work: dft$mainframe_set;
     VAR terminate_access_work: dft$mainframe_set);
?? PUSH (LISTEXT := ON) ??
*copyc dft$mainframe_set
?? POP ??
