From fcfe4abf46a695a3e8520455eb040fb7206be6ab Mon Sep 17 00:00:00 2001
From: null <demo@atum.envx.io>
Date: Mon, 10 Mar 2025 19:27:41 +0000
Subject: [PATCH] 
 {"message":"hola","version":10,"release":1,"haveIssueWithVersion":false,"tickets":["NINGUNO"]}

---
 .../HR/PROCEDURE/CALCULAR_PROMEDIO.SQL        | 26 +++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 BD/ORACLE/ATUM_BD/HR/PROCEDURE/CALCULAR_PROMEDIO.SQL

diff --git a/BD/ORACLE/ATUM_BD/HR/PROCEDURE/CALCULAR_PROMEDIO.SQL b/BD/ORACLE/ATUM_BD/HR/PROCEDURE/CALCULAR_PROMEDIO.SQL
new file mode 100644
index 0000000..dd564d9
--- /dev/null
+++ b/BD/ORACLE/ATUM_BD/HR/PROCEDURE/CALCULAR_PROMEDIO.SQL
@@ -0,0 +1,26 @@
+
+  CREATE OR REPLACE EDITIONABLE PROCEDURE "CALCULAR_PROMEDIO" 
+(
+  p_numeros IN VARCHAR2,
+  p_promedio OUT NUMBER
+)
+AS
+  l_suma NUMBER := 0;
+  l_contador NUMBER := 0;
+  l_numero NUMBER;
+BEGIN
+  FOR i IN 1 .. LENGTH(p_numeros) LOOP
+    l_numero := SUBSTR(p_numeros, i, 1);
+    IF l_numero IS NOT NULL THEN
+      l_suma := l_suma + l_numero;
+      l_contador := l_contador + 1;
+    END IF;
+  END LOOP;
+
+  IF l_contador > 0 THEN
+    p_promedio := l_suma / l_contador;
+  ELSE
+    p_promedio := NULL;
+  END IF;
+END calcular_promedio;
+/
\ No newline at end of file