$SAVE NOLIST

rq$receive$control:  PROCEDURE( region$t,
                                except$ptr ) EXTERNAL;

DECLARE region$t      TOKEN,
        except$ptr    POINTER;

END rq$receive$control;

$RESTORE