$SAVE NOLIST

dq$detach:  PROCEDURE( conn,
                       except$ptr ) EXTERNAL;

DECLARE conn            TOKEN,
        except$ptr      POINTER;

END dq$detach;

$RESTORE