Short PL/SQL block to print the characters in range [033..256]
SET serveroutput ON
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;
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;
Leave a Reply