forked from geekcomputers/Oracle-SQL
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathascii.sql
More file actions
32 lines (28 loc) · 586 Bytes
/
ascii.sql
File metadata and controls
32 lines (28 loc) · 586 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
REM Script Name : ascii.sql
REM Author : Craig Richards
REM Created : 06-February-2008
REM Last Modified :
REM Version : 1.0
REM
REM Modifications :
REM
REM Description : Shows the ASCII chart
SET SERVEROUTPUT ON SIZE 10240
DECLARE
i NUMBER;
j NUMBER;
k NUMBER;
BEGIN
FOR i IN 2..15 LOOP
FOR j IN 1..16 LOOP
k:=i*16+j;
DBMS_OUTPUT.PUT((to_char(k,'000'))||':'||chr(k)||' ');
IF k mod 8 = 0 THEN
DBMS_OUTPUT.PUT_LINE('');
END IF;
END LOOP;
END LOOP;
END;
/
SHOW ERRORS
REM End of Script