Tipos de Operadores RPGIV – AS400

Tipos de Operadores RPGIV – AS400
Operadores Aritméticos

Operadores de Relación

Operadores Lógicos

Nota: Son para las dos versiones son las mismas.

Operador DSPLY.

Es un operador de RPG III, que permite ingresar como visualizar datos de una variable, y es usado en la hoja C de RPG III.

Sintaxis:

Explicación:

• En FACTOR1 especifico el mensaje que quiero mostrar, ya sea el mensaje de entrada o salida.

• En Operador especifico el operador de entrada y salida de datos DSPLY.

• En Resultado especifico la variable en la cual quiero mostrar su valor (salida) o almacenar su valor (entrada).

Ejemplo:

Se pide ingresar un número a la variable NUM1

Operador EVAL.

Es un operador de RPG IV, que permite evaluar expresiones, y es usado en la hoja CX de RPG IV.

Sintaxis:

Ejemplo:

Se pide sumar las variables numéricas A + B y el resultado guardarlo en C.

Operador MOVE

Es un operador que me permite mover un valor de una variable a otra, de Derecha a Izquierda, también es usado para convertir un valor numérico a cadena o viceversa, o para extraer caracteres desde el lado derecho hacia el izquierdo, y es usado en la hoja C de RPG III.

Sintaxis:

Ejemplo:

Se pide extraer 4 caracteres de un código desde el lado derecho hacia el izquierdo.

Donde:

CODCLI = ‘C0001’

XNRO = 0

NOTA.- La variable XNRO es de longitud 4 con 0 decimales y es de tipo numérico.

Resultado:

XNRO = 0001

Operador MOVEL

Es un operador que me permite mover un valor de una variable a otra, de Izquierda a Derecha, también es usado para convertir un valor numérico a cadena o viceversa, o para extraer caracteres desde el lado izquierdo hacia el derecho, y es usado en la hoja C de RPG III.

Sintaxis:

Ejemplo:

Se pide extraer 4 caracteres de un código desde el lado izquierdo hacia el derecho.

Donde:

CODCLI = ‘C0001’

XCAD = ‘‘

NOTA.- La variable XCAD es de longitud 4 y es de tipo carácter.

Resultado:

XCAD = ‘C000’

Operador *LOVAL

Permite ubicar el puntero en el primer registro de un archivo.

Operador SETLL

Permite ubicar el puntero un registro antes de donde esta ubicado actualmente el puntero o del registro mas parecido.

Operador READ

Permite leer el siguiente registro de un archivo.

Nota.- El Indicador que colocas en el igual (IG), te retornara “0”, si lee el registro y “1”, si no lee el registro o si la tabla esta vacía.

Sintaxis:

Sintaxis para leer el primer registro de un archivo.

Operador *HIVAL

Permite ubicar el puntero en el último registro de un archivo.

Operador SETGT

Permite ubicar el puntero un registro después de donde esta ubicado actualmente el puntero o del registro mas parecido.

Operador READP

Permite leer el anterior registro de un archivo.

Nota.- El Indicador que colocas en el igual (IG), te retornara “0”, si lee el registro y “1”, si no lee el registro o si la tabla esta vacía.

Sintaxis:

Sintaxis para leer el último registro de un archivo.

NOTA:

En el release V4R4 se agregó a ILE RPG/400 la palabra clave *START (no existe en RPG/400).

Esta palabra clave ofrece una forma de desplazarse al inicio de un archivo. También existe la correspondiente palabra clave *END para desplazarse al final de un archivo.

Antes de la introducción de *START y *END, muchos programadores utilizaba *LOVAL y *HIVAL, que no funcionan en todos los casos.

Por ejemplo, si se usa *LOVAL en un archivo por clave ordenado de forma descendente, en vez de desplazarse al principio del archivo en realidad se desplazará al final de éste.

Si tiene un archivo con una clave compuesta (una clave formada por más de un campo) en que algunos campos están ordenados de forma ascendente y otros de forma descendente, el uso de *HIVAL y *LOVAL pueden ser enormemente confuso.

Pero *START y *END siempre van al inicio y al final del archivo, respectivamente, por lo que son mucho más fáciles de entender.

La palabra clave (*START y *END) pertenecen al Factor 1. En formato fijo, el Factor 1 va antes que el código de operación, de esta forma:

Operador *START

Permite ubicar el puntero en el primer registro de un archivo.

Operador *END

Permite ubicar el puntero en el último registro de un archivo.

Una advertencia: en casi todos los casos, SETLL funcionará tanto con un nombre de archivo como con un nombre de formato de registro. Sin embargo, *START y *END son la excepción a esta regla. Estas palabras clave requieren que siempre use el nombre de archivo, nunca el de formato de registro.

Operador READE

Permite leer el siguiente registro igual al valor buscado en un archivo.

Nota.- El Indicador que colocas en el igual (IG), te retornara “0”, si lee el registro y “1”, si no lee el registro o si la tabla esta vacía.

Sintaxis:

Operador READC

Permite leer el registro cambiado en un subarchivo.

Nota.- El Indicador que colocas en el igual (IG), te retornara “0”, si cambias el registro en el Subfile, y “1”, si no haces ningún cambio.

Sintaxis: