CREACIÓN DE SUBFILE AS400 - PARTE 4

CREACIÓN DE SUBFILE AS400 - PARTE 4

Ahora vamos a acceder directamente al contenido de nuestro archivo físico fuente QDDSSRC, para eso en Selección o mandato definir WRKMBRPDM QDDSSRC, teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora buscar nuestro SUBFILE y definir la opción 17 (SUBCONJUNTO), teniendo así:

Una vez definida la opción presionar la tecla ENTER,

Al hacerlo nos mostrara todos los registros que contenga mi Miembro Fuente, teniendo así:

Ahora presionar la tecla de función F3 dos veces, teniendo así:

Ahora procederemos a crear nuestro programa, para eso debemos de utilizar el utilitario STRSEU, para eso en Selección o mandato digitamos STRSEU, deberás tener así:

Una vez digitado el mandato presionar la tecla de función F4, teniendo así:

Ahora definir como se indica en la siguiente pantalla:

Una vez definido lo anterior presionar la tecla ENTER,

La codificación del programa es la siguiente: 

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.

Ahora procederemos a guardar nuestro programa RPGLE, para esto usaremos el mandato a nivel de comando FILE, teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora buscamos nuestro programa RPGLE llamado RPGSUBFALU y en Opc definimos la opción 14 (Compilar), teniendo así:

Una vez definida la opción presionar la tecla ENTER,

Al hacerlo mostrara un mensaje diciéndonos que la compilación de nuestro archivo RPGLE término satisfactoriamente, caso contrario deberás revisar tu programa, teniendo así:

Ahora procederemos a ejecutar nuestro programa, este se puede hacer de dos formas:

·        En Parámetros o mandatos definir CALL RPGSUBFALU,

·      La segunda forma es en Opc del miembro RPGSUBFALU definir la letra C (Call), en mi caso obturé por la primera forma, teniendo así:

Una vez definida la opción anterior presionar la tecla ENTER,

Al hacerlo se ejecutara el programa, mostrándonos nuestro listado de alumnos, teniendo así:

Una vez visto nuestro listado solo deberás de pulsar la tecla de función F3 para salir de nuestro SUBFILE, teniendo así:

Hasta aquí solo hemos visto un simple listado del archivo físico TABALU, mas adelante veremos un MANTENIMIENTO SUBFILE, prueba practicando este mismo ejercicio pero con otros archivos físicos.

Si tuvieses alguna duda o consulta en la que pueda ayudarte, tan solo déjame un comentario.