$SAVE NOLIST

dq$attach:  PROCEDURE( path$ptr,
                       except$ptr ) TOKEN EXTERNAL;

DECLARE path$ptr        POINTER,
        except$ptr      POINTER;

END dq$attach;

$RESTORE