Natural-adabas

NATURAL-ADABAS

0.- Introducción. 1.- Tipos de Datos. 2.- Comentarios. 3.- Declaración de variables. 4.- Asignación de valores a Variables. 5.- Arrays. 6.- Operaciones con arrays. 7.- Objetos de NATURAL. 8.- Operaciones Aritméticas. 9.- Bucles (Tipos). 10.- Instrucciones Condicionales. 11.- Trabajo con Ficheros. 12.- Trabajo con Vistas de Adabas. 13.- Subrutinas. 14.- Llamadas a rutinas. 15.-Edicion y compilación en entorno Mainframe.


0.- INTRODUCCIÓN:
El presente documento pretende ser una resumida guía de referencia introductoria para para programadores que trabajen por primera vez con Natural Adabas en entorno Mainframe. Adabas es una base de datos diseñada por Software AG para sistemas críticos y Natural el lenguaje de programación para operar con esta base de datos. Esconveniente tener un manual de referencia sobre Natural para poder sacar más partido de este lenguaje de programación.

1.- TIPOS DE DATOS:
A  Alfanumérico. B  Binario. C  Atributo de Control. D  Fecha. F  Punto Flotante. I  Entero. L  Lógico. N  Numérico. P  Numérico Empaquetado. T  Hora.

2.- COMENTARIOS:
Se comenta código con * y /* * Comentario para una línea entera. MOVE 2 TO A /*Comentario para el resto de línea

3.- DECLARACION DE VARIABLES:
Todos los programas NATURAL empiezan con un bloque de declaración de variables. Las variables se encierran en este tipo de bloque: DEFINE DATA PARAMETER 1 Area-de-parametros. LOCAL 01 Variable 1 (A3) 01 Vvar REDEFINES Variable 1 02 S-var (A1) 02 SS-var (A2)

END-DEFINE En PARAMETER se incluyen las áreas de datos que sirvencomo comunicación de entrada y salida entre los distintos objetos NATURAL. En LOCAL se declaran las variables,o vistas de ADABAS que se vayan a usar localmente en el programa.Podemos encontrarnos con la instrucción: PARAMETER USING Area_de_parametros. Esta instrucción declara Area_de_parametros como el area de comunicación de E/S entre los distintos objetos de NATURAL. LOCAL USING Area_de_parametros.Esta instrucción hace que Area de parámetros sea usada localmente en una llamada a cierto subprograma. Las variables van precedidas de un número que corresponde con el nivel de declaración al que pertenecen. Se empieza por nivel 1 o 01, los niveles 02,03 …(sucesion secuencial) etc nos indican que esas variables son subdivisiones de la variable que esta declarada un nivel inmediatamente superior.4.- ASIGNACION DE VALORES A VARIABLES:
La asignación se realiza mediante las instrucciones MOVE,ASSING o el operador := Ejemplos: MOVE 5 TO VALOR VAR1 := VAR2 (VAR1 pasa a valer lo que contiene VAR2) ASSING VALOR = 5 ASSING ROUNDED VALOR = 199.999 (Redondea el valor asignado).

5.- ARRAYS:
DEFINICIONES
*ARRAY(3)  Define una matriz de una dimensión de 3 ocurrencias. ETIQUETA.FIELD(A 20/5) Define una matriz de un campo de la base de datos referenciada en la sentencia marcada por ‘ETIQUETA’, con formato alfanumérico, longitud 20 y 5 ocurrencias. * ARRAY(N7.2/1:5,10.12,1:4)  Define una matriz con formato N7.2, de 3 dimensiones con 5 ocurrencias en la primera dimensión ,12 en la segunda y 4 en la tercera.

6.- OPERACIONES CON ARRAYS:
REFERENCIA A LOS ELEMENTOS DEL ARRAY.*ARRAY(1)  Referencia la primera ocurrencia de una matriz de una dimensión. *ARRAY(7:12)  Referencia las ocurrencias de 7 a 12 en una matriz de una dimensión. *ARRAY(I+5)  Referencia la ocurrencia I+5 de una matriz de una dimensión. *ARRAY(5,3:7,1:4)  La referencia se realiza en una matriz de 3 dimensiones , a la ocurrencia 5 de la primera dimensión ,las ocurrencias de 3 a la 7 en la segundadimensión, y las ocurrencias 1 a 4 de la tercera. *ARRAY(*)  Todas las ocurrencias de una dimensión.

7.- OBJETOS DE NATURAL:
PROGRAMA: Programa Natural. SUBPROGRAMA: Similar a una librería, los subprogramas son utilizados por programas Natural. SUBRUTINA: Porción de código Natural donde el bloque del programa es solo una subrutina. HELPRUTINA: Subrutina para mostrar cuadros de ayuda en una...