Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CREATE OR REPLACE PACKAGE ZMIENNE IS
- vLicznik INT := 0;
- PROCEDURE ZwiekszLicznik;
- PROCEDURE ZmniejszLicznik;
- FUNCTION PokazLicznik RETURN INT;
- END ZMIENNE;
- /
- CREATE OR REPLACE PACKAGE BODY ZMIENNE IS
- PROCEDURE ZwiekszLicznik IS
- BEGIN
- vLicznik := vLicznik + 1;
- dbms_output.put_line('Zwiekszono');
- END;
- PROCEDURE ZmniejszLicznik IS
- BEGIN
- vLicznik := vLicznik - 1;
- dbms_output.put_line('Zmniejszono');
- END;
- FUNCTION PokazLicznik RETURN INT IS
- BEGIN
- RETURN vLicznik;
- END PokazLicznik;
- BEGIN
- vLicznik := 1;
- END ZMIENNE;
- /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement