$SAVE NOLIST rq$a$close: PROCEDURE( connection$t, resp$mbox, except$ptr ) EXTERNAL; DECLARE connection$t TOKEN, resp$mbox TOKEN, except$ptr POINTER; END rq$a$close; $RESTORE