¿Cómo imprimir 1 a 10 sin usar Loop en PL/SQL?

Aquí estoy dando un ejemplo para imprimir 1 a 10 sin usar el bucle en PL/SQL. Puede imprimir hasta cualquier número cambiando el valor 10 a cualquier número, por ejemplo, 100.

Programa PL/SQL para imprimir del 1 al 10 sin usar bucle

En el siguiente programa, estoy usando etiquetas PL/SQL en lugar del ciclo para incrementar el valor e imprimir. En la etiqueta denominada (label_main), estoy incrementando el valor de la variable (i) y comprobando si su valor es mayor que 10 y luego pasando el control a una etiqueta denominada (label_end) o pasando el control a la etiqueta (label_main). Puede cambiar el valor en la condición IF de 10 al número deseado para imprimir hasta ese 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;
/

Salida

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