primer commit subida

PROYECTOS/otrodir/msg.4gl

@@ -0,0 +1,24 @@
+{
+  Esta funcion se utiliza para desplegar mensajes de errores en todos 
+  los sistemas de Ray-O-Vac Dominicana. 
+  Esta funcion busca el mensaje deseado en la tabla "msgtable" y lo
+  despliega en la linea de mensajes
+}
+DATABASE decomarmol
+
+FUNCTION msg(numero_msg)
+         DEFINE numero_msg SMALLINT
+         DEFINE descripcion CHAR (60)
+         SELECT desc_msg INTO descripcion FROM msgtable 
+                WHERE cod_msg = numero_msg
+
+         IF status = NOTFOUND THEN 
+            LET numero_msg = 22
+            SELECT desc_msg INTO descripcion FROM msgtable 
+                   WHERE cod_msg = numero_msg
+            ERROR descripcion ATTRIBUTE(BOLD) 
+         ELSE 
+            ERROR descripcion ATTRIBUTE(BOLD) 
+            LET numero_msg = 0
+         END IF
+END FUNCTION