Operaciones aritméticas sobre datos numéricos
OBNOL realiza operaciones aritméticas de las siguientes maneras: declaraciones CALCULAR, SUMA, RESTA, MULTIPLICACIÓN y DIVIDIR funciones numéricas integradas servicios invocables locales
4.4.1 Declaraciones aritméticas La declaración COMPTE convierte una expresión El valor se asigna a uno o más elementos de datos. Utilice la instrucción COMPUTE para combinar fácilmente operaciones aritméticas sin las limitaciones de almacenamiento de resultados de las instrucciones SUMAR, RESTAR, MULTIPLICAR y DIVIDIR.
4.4.1.1 Instrucción ADD ADD sintaxis 1:
AÑADIR identificador-1, identificador-2,...TO identificador-n [REDONDEADO]
[ Declaración de ERROR DE TAMAÑO-1]
[Declaración de ERROR DE TAMAÑO NO-2]
[END-ADD]
Ejemplo:
AGREGAR NUM1 A NUM2.
AGREGAR NUM1, 10 A NUM2.EN ERROR DE TAMAÑO REALIZAR 100-ERROR.
AGREGAR Sintaxis 2:
AGREGAR identificador-1, identificador-2,...[TO] identificador-n DAR identificador-m [REDONDEADO]
[Sentencia de ERROR DE TAMAÑO-1]
[NO ENCENDIDO Declaración de ERROR DE TAMAÑO-2]
[END-ADD]
Ejemplo:
AÑADIR NUM1 A NUM2 DANDO NUM3.
AÑADIR NUM1 , NUM2 a NUM3.
AÑADIR NUM1, 10 A NUM2 a NUM3.
05 IMPUESTO PIC 9(2)V9(2).
03 YTD.
05 PAGAR PIC 9(3)V9(2).
05 Partida tributaria PIC 9(2)V9(2).
AGREGAR CORR MES ACTUAL A YTD.
4.4.1.2 Instrucción SUBTRACT Sintaxis SUBTRACT 1:
RESTA identificador-1, identificador-2,... FROM identificador-n
[ROUNDED]
[Sentencia ON TAMAÑO ERROR-1]
[NOT ON TAMAÑO ERROR declaración-2]
[END-REST]
Ejemplo:
RESTAR NUM1 DE NUM2.
SINTaxis DE RESTA 2:
RESTAR identificador-1 identificador-2,...DESDE identificador-n
DANDO identificador-m [REDONDEADO]
[EN Declaración de ERROR DE TAMAÑO-1]
[NO EN Declaración de ERROR DE TAMAÑO-2]
[END-SUBTRACT]
Ejemplo:
RESTA NUM1 de NUM2 para obtener NUM3.
Sintaxis de RESTA 3:
Identificador de SUBTRACT CORR- 1 DE identificador- 2
[ROUNDED]
[Declaración de ERROR DE TAMAÑO- 1]
[NOT ON TAMAÑO ERROR declaración-2]
[END-SUBTRACT]
Ejemplo:
RESTAR CORR REC1 DE REC2.
4.4.1.3 Sentencia MULTIPLY Sintaxis MULTIPLY 1:
Identificador MULTIPLY- 1 POR identificador-2
[ROUNDED]
[ON Declaración de ERROR DE TAMAÑO- 1]
[Declaración de ERROR DE TAMAÑO NO EN-2]
[END-MULTIPLY]
Ejemplo:
MULTIPLICA NUM1 POR NUM2.
Sintaxis MULTIPLICAR 2:
Identificador MULTIPLICAR- 1 POR identificador- 2
IDONAR identificador- 3
[REDONDEADO]
[Sentencia ON TAMAÑO ERROR-1]
[Sentencia NO EN TAMAÑO ERROR-2]
[END- MULTIPLY]
Ejemplo:
MULTIPLICAR NUM1 POR NUM2:
MULTIPLICAR NUM1 POR NUM2 DANDO NUM3.
4.4.1.4 Sentencia DIVIDE Sintaxis DIVIDE 1:
Identificador DIVIDE - 1 INTO identificador-2
[ROUNDED]
[Sentencia ON TAMAÑO ERROR-1]
[NOT ON TAMAÑO Declaración ERROR-2]
[END-DIVIDE]
Ejemplo:
DIVIDE NUM1 EN NUM2.
DIVIDIR sintaxis 2:
DIVIDIR identificador-1 EN identificador-2
DAR identificador-3
[REDONDEADO]
[Declaración ON TAMAÑO ERROR- 1]
[Declaración NO EN TAMAÑO ERROR- 2]
[END-DIVIDE]
Ejemplo:
DIVIDE NUM1 EN NUM2 DANDO NUM3.
Sintaxis DIVIDIR 3:
Identificador DIVIDIR- 1 POR identificador- 2
Identificador DAR- 3
[REDONDEADO]
[Instrucción ON TAMAÑO ERROR- 1]
[Instrucción NO EN TAMAÑO ERROR-2]
[END-DIVIDE]
Ejemplo:
DIVIDE NUM1 ENTRE NUM2 DANDO NUM3.
Sintaxis de DIVIDIR 4:
DIVIDIR identificador- 1 EN identificador-2
DAR identificador-3
[REDONDEADO]
Identificador RESTANTE-4
[Declaración de ERROR DE TAMAÑO-1]
[Declaración de ERROR DE TAMAÑO NO-2]
[DIVISIÓN FINAL ]
Ejemplo:
DIVIDE NUM1 EN NUM2 DANDO NUM3 RESTO NUM4.
Sintaxis de DIVIDIR 5:
DIVIDIR identificador-1 POR identificador-2
DAR identificador-3
[REDONDEADO]
Identificador RESTO-4
[Declaración ON TAMAÑO ERROR-1]
[NOT EN Declaración ERROR TAMAÑO-2]
[END-DIVIDE ]
Ejemplo:
Dividimos NUM1 por NUM2 para obtener NUM3, dejando NUM4.
4.4.1.5 Sentencia COMPUTE Sintaxis COMPUTE:
COMPUTE identificador-1 [redondeado], identificador-2 [redondeado],...
= Expresión aritmética
[Declaración ON TAMAÑO ERROR-1]
[NOT EN Declaración ERROR TAMAÑO-2]
[END-COMPUTE]
Ejemplo:
COMPUTE RESULT=NUM1*NUM2 NUM3-NUM4.
4.4.2 Expresiones aritméticas Permite el uso de expresiones aritméticas para reemplazar elementos de datos numéricos.
Las expresiones aritméticas pueden utilizar el signo más o menos ( , -), el signo de potencia (**), el signo de división o multiplicación (/, *) y el signo más o menos ( , -) .
4.4.3 Funciones numéricas integradas Las funciones numéricas integradas sólo pueden aparecer donde se permiten expresiones numéricas.
Las funciones numéricas integradas devuelven un valor con signo. La función en sí puede considerarse un elemento de datos numéricos temporal.
Las siguientes son algunas funciones numéricas integradas: Procesamiento numérico: LENGTH, MAX, MIN, NUMVAL, NUMVAL-C, ORD-MAX, ORD-MIN Fecha y hora: Fecha y hora: FECHA-ACTUAL , FECHA-A-AAAAMMDD...etc. Matemáticas.INTEGER, LOG, SUM, SIN, COS, MOD...etc.
Ejemplo:
Calcular X = longitud (registro).
CALCULAR Y = MAX (X, Y).