Suma de dígitos de un número en PL/ SQL

Requisito previo : introducción
a PL/SQL En el código PL/SQL, los grupos de comandos se organizan dentro de un bloque. Un grupo de bloques relacionado con declaraciones o sentencias. En declare part, declaramos variables y entre start y end part, realizamos las operaciones.

Dado un número y la tarea es encontrar la suma de los dígitos del número.
Ejemplos:

Input: 123456
Output: 21

Input: 9874
Output: 28

El enfoque es tomar un número y obtener cada dígito con la función MOD y resumirlo.

A continuación se muestra la implementación requerida:

DECLARE 
  
    --Declare variable n, temp_sum  
    -- and r of datatype number 
    n        INTEGER; 
    temp_sum INTEGER; 
    r        INTEGER; 
BEGIN 
    n := 123456; 
    temp_sum := 0; 
  
    -- here we check condition with the help of while loop 
    -- here <> symbol represent for not null 
    WHILE n <> 0 LOOP 
        r := MOD(n, 10); 
        temp_sum := temp_sum + r; 
        n := Trunc(n / 10); 
    END LOOP; 
    dbms_output.Put_line('sum of digits = ' 
                         || temp_sum); 
END; 
-- Program End 

Producción:

sum of digits = 21