Como imprimir de 1 a 10 sem usar loop em PL/SQL?

Aqui estou dando um exemplo para imprimir de 1 a 10 sem usar o loop em PL/SQL. Você pode imprimir até qualquer número alterando o valor 10 para qualquer número, por exemplo, 100.

Programa PL/SQL para imprimir de 1 a 10 sem usar loop

No programa abaixo, estou usando rótulos PL/SQL em vez do loop para incrementar o valor e imprimir. No rótulo chamado (label_main), estou incrementando o valor da variável (i) e verificando se seu valor é maior que 10, passando o controle para um rótulo chamado (label_end) senão passando o controle para o rótulo (label_main). Você pode alterar o valor na condição IF de 10 para o número desejado para imprimir até esse número.

SET SERVEROUTPUT ON;

DECLARE
   i   NUMBER;
BEGIN
   i := 0;

  <<label_main>>
   i := i + 1;

   IF i > 10
   THEN
      GOTO label_end;
   END IF;

  <<label_print>>
   DBMS_OUTPUT.put_line (i);
   GOTO label_main;

  <<label_end>>
   NULL;
END;
/

Saída

1
2
3
4
5
6
7
8
9
10
PL/SQL procedure successfully completed.