$SAVE NOLIST rq$s$special: PROCEDURE( connection$t, function, data$ptr, iors$ptr, except$ptr ) EXTERNAL; DECLARE connection$t TOKEN, function WORD, data$ptr POINTER, iors$ptr POINTER, except$ptr POINTER; END rq$s$special; $RESTORE