ARCHIVOS DE IMPRESORAS AS400 – REPORTES EN AS400 - PARTE 8

ARCHIVOS DE IMPRESORAS AS400 – REPORTES EN AS400

PARTE 8

La codificación del programa COMPLETO es la siguiente:

Ahora explicaremos cada línea de código:

· Línea 0001.00: En primer lugar definimos la Hoja F (Recuerda que en esta hoja se definen archivos de Pantallas, Tablas Físicas, Tablas Lógicas, Reportes ), luego en el parámetro Nombre de Archivo definimos el nombre de mi archivo (en nuestro caso es MASTER), en el parámetro Tipo de Archivo definimos la letra I (para inserción o consulta), en el parámetro Designación de Archivos definimos la letra F (Procedimiento completo), en el parámetro Formato de Archivos definimos la letra E (Externo), en el parámetro Tipo de Direcciones de Registro definimos la letra K (Campo Clave), en el parámetro Dispositivo definimos la palabra DISK (por ser un Archivo Físico).

· Línea 0002.00: En primer lugar definimos la Hoja F (Recuerda que en esta hoja se definen archivos de Pantallas, Tablas Físicas, Tablas Lógicas, Reportes), luego en el parámetro Nombre de Archivo definimos el nombre de mi archivo (en nuestro caso es REPMASTER), en el parámetro Tipo de Archivo definimos la letra O (únicamente para reportes), en el parámetro Formato de Archivos definimos la letra E (Externo), en el parámetro Dispositivo definimos la palabra PRINTER (por ser un Reporte o Archivo de Impresora), en el parámetro Palabras clave definimos OFLIND(*IN20) (El indicador 20 se activara siempre y cuando haya desbordamiento de datos).

· Línea 0003.00: En esta línea lo que hago es escribir el TITULO de nuestro reporte.

· Línea 0004.00: En esta Línea lo que hago es leer el archivo de registro REGMA. Los parámetros son los siguientes: en Operación definir READ, en Factor 2 definir el registro REGMA, en EQ definir el indicador 40.

· Línea 0005.00: Aquí voy a hacer un bucle el cual se ejecutara mientras el indicador 40 sea igual a 0 (ósea si hay registros por leer).

· Línea 0006.00: Aquí lo que hago es primeramente suprimir todos los espacios en blanco con el %TRIM que contenga el registro del campo APPMA y APMMA, estos campos los concateno y finalmente lo almaceno en NAME (NAME es el segundo campo de nuestro reporte). La continuación esta debajo de esta línea.

· Línea 0007.00: Aquí lo que hago es seguir con la operación anterior, primeramente suprimo todo espacio en blanco con el %TRIM y finalmente concateno la expresión anterior con el campo NOMMA.

· Línea 0008.00: En esta línea lo que hago es escribir el DETALLE de nuestro reporte.

· Línea 0009.00: Aquí lo que hago es acumular y contar todos los Registros del MASTER y finalmente lo almaceno en TOTG (TOTG es el campo de nuestro reporte que representa al TOTAL GENERAL).

· Línea 0010.00: Aquí pregunto si el sexo del alumno es M o m (Masculino).

· Línea 0011.00: Aquí lo que hago es acumular y contar los Registros del MASTER que sean del sexo Masculino y finalmente lo almaceno en TOTM (TOTM es el campo de nuestro reporte que representa al TOTAL MASCULINO).

· Línea 0012.00: Aquí defino mi ELSE (SINO).

· Línea 0013.00: Aquí lo que hago es acumular y contar los Registros del MASTER que sean del sexo Femenino y finalmente lo almaceno en TOTF (TOTF es el campo de nuestro reporte que representa al TOTAL FEMENINO).

· Línea 0014.00: Aquí termino mi instrucción IF con un ENDIF.

· Línea 0015.00: En esta Línea lo que hago es leer el archivo de registro REGMA. Los parámetros son los siguientes: en Operación definir READ, en Factor 2 definir el registro REGMA, en EQ definir el indicador 40.

· Línea 0016.00: Aquí pregunto si el indicador 20 esta activado (si hay desbordamiento) y escribir el TITULO de nuestro reporte.

· Línea 0017.00: Aquí cierro la estructura repetitiva DO con un ENDDO.

· Línea 0018.00: En esta línea lo que hago es escribir el PIE de nuestro reporte.

· Línea 0019.00: Aquí finalizo nuestro programa.

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 REPORTE1 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 presionar la tecla ENTER,

Al hacerlo tendrás así:

Ahora procederemos a ejecutar nuestro programa, este se puede hacer de dos formas: en Parámetros o mandatos definir CALL REPORTE1,

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

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

Al hacerlo se ejecutara el programa.

Podrás notar de que no ha pasado nada, realmente esto no es así, solo que falta hacer una cosita mas, la cual se definirá más adelante.

Ahora vamos a trabajar con todos los archivos en Spool, para eso en el Miembro REPORTE1 en Opc definiremos la opción SP (Spool), teniendo así:

Una vez definido lo anterior presionar la tecla ENTER,

Al hacerlo podremos apreciar todos los archivos en Spool, teniendo así:

Nota:

Todo archivo que se compila siempre se almacena en Spool, como nuestro archivo de impresora y programa RPGLE se compilaron últimamente.

Estos deberán de estar al final de la lista, para ir al final de la lista presionar la tecla Av. Pag varias veces o presionar la tecla de función F18 (SHIFT + F6), al hacerlo nos ubicaremos al final de los archivos de Spool teniendo así: