$SAVE NOLIST

dq$get$connection$status:  PROCEDURE( conn,
                                      info$ptr,
                                      except$ptr ) EXTERNAL;

DECLARE conn            TOKEN,
        info$ptr        POINTER,
        except$ptr      POINTER;

END dq$get$connection$status;

$RESTORE