Advertisement
Guest User

Untitled

a guest
Dec 17th, 2017
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. CREATE OR REPLACE PACKAGE ZMIENNE IS
  2. vLicznik INT := 0;
  3. PROCEDURE ZwiekszLicznik;
  4. PROCEDURE ZmniejszLicznik;
  5. FUNCTION PokazLicznik RETURN INT;
  6. END ZMIENNE;
  7. /
  8.  
  9. CREATE OR REPLACE PACKAGE BODY ZMIENNE IS
  10. PROCEDURE ZwiekszLicznik IS
  11. BEGIN
  12. vLicznik := vLicznik + 1;
  13. dbms_output.put_line('Zwiekszono');
  14. END;
  15.  
  16. PROCEDURE ZmniejszLicznik IS
  17. BEGIN
  18. vLicznik := vLicznik - 1;
  19. dbms_output.put_line('Zmniejszono');
  20. END;
  21.  
  22. FUNCTION PokazLicznik RETURN INT IS
  23. BEGIN
  24. RETURN vLicznik;
  25. END PokazLicznik;
  26. BEGIN
  27. vLicznik := 1;
  28. END ZMIENNE;
  29. /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement