$SAVE NOLIST

rq$s$get$connection$status:  PROCEDURE( connection$t,
                                        info$ptr,
                                        except$ptr ) EXTERNAL;

DECLARE connection$t  TOKEN,
        info$ptr      POINTER,
        except$ptr    POINTER;

END rq$s$get$connection$status;

$RESTORE