ARCHIVOS DE IMPRESORAS AS400 – REPORTES EN AS400 - PARTE 5

ARCHIVOS DE IMPRESORAS AS400 – REPORTES EN AS400

PARTE 5

Ahora vamos a definir nuestro archivo físico, para eso deberás hacer uso de la hoja F, debe de estar así como en la imagen:

Una vez definida la letra pulsar la tecla de función F4,

Al hacerlo tendremos así:

Completar todos los parámetros como en la imagen:

Ahora presionar la tecla ENTER,

Al hacerlo tendrás así:

Ahora procederemos a insertar una nueva línea, para eso en la línea 0001.00 definimos la letra I (mandato para Insertar línea), teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora vamos a definir la hoja F mediante la cual definiremos nuestro archivo de impresora REPMASTER, definir la letra F, debe de estar así como en la imagen:

Una vez definida la letra pulsar la tecla de función F4.

Nota: El OFLIND (*IN20) El indicador 20 se activa si hay un desbordamiento.

Finalmente tendrás así:

Ahora presionar la tecla ENTER,

Al hacerlo tendrás así:

Ahora procederemos a insertar una nueva línea, para eso en la línea 0002.00 definimos la letra I (mandato para Insertar línea), teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora vamos a definir la hoja C mediante la cual realizaremos la lógica de nuestro programa, definir la letra C, debe de estar así como en la imagen:

Una vez definida la letra pulsar la tecla de función F4,

Teniendo así:

Finalmente tendrás así:

Ahora presionar la tecla ENTER,

Al hacerlo tendrás así:

Ahora procederemos a insertar una nueva línea, para eso en la línea 0003.00 definimos la letra I (mandato para Insertar línea), teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora vamos a definir la hoja C mediante la cual realizaremos la lógica de nuestro programa, definir la letra C, debe de estar así como en la imagen:

Una vez definida la letra pulsar la tecla de función F4,

Teniendo así:

Nota:

Toda lectura (READ, READP, READE) deben tener un indicado en el EQ (Igual), el número de indicador puede ser un número cualquiera comprendido entre 01 y 99.

Ahora en Operación pondremos READ, en el Factor 2 pondremos REGMA y en el INDICADOR EQ colocamos el número 40, teniendo así:

Ahora presionar la tecla ENTER,

Al hacerlo tendrás así:

Ahora procederemos a insertar una nueva línea, para eso en la línea 0004.00 definimos la letra I (mandato para Insertar línea), teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora vamos a definir la hoja C mediante la cual realizaremos la lógica de nuestro programa, definir la letra C, debe de estar así como en la imagen:

Una vez definida la letra pulsar la tecla de función F4,

Teniendo así:

Ahora en Operación pondremos DOW, en el Factor 2 pondremos *IN40=’0’ teniendo así:

Ahora presionar la tecla ENTER,

Al hacerlo tendrás así:

Ahora procederemos a insertar una nueva línea, para eso en la línea 0005.00 definimos la letra I (mandato para Insertar línea), teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora vamos a definir la hoja C mediante la cual realizaremos la lógica de nuestro programa, definir la letra C, debe de estar así como en la imagen:

Una vez definida la letra pulsar la tecla de función F4,

Teniendo así:

Ahora vamos a trabajar con la hoja CX, esto lo hago con el fin de poner ampliar el FACTOR 2, para eso pulsar la tecla F23 (SHIFT + 11), al hacerlo tendremos así:

Ahora en la opción Tipo Solicitud pondremos CX (hacemos referencia al tipo de hoja usar), teniendo así:

Una vez definida el tipo de hoja presionar la tecla ENTER,

Teniendo así:

NOTA:

Función %TRIM (CAMPO O CADENA): Esta función sirve para suprimir los espacios en blanco que contiene una cadena.

Ahora en Operación pondremos EVAL y en Factor 2 pondremos

NAME=%TRIM(APPMA)+' '+%TRIM(APMMA)+' ', teniendo así:

Ahora presionar la tecla ENTER,

Al hacerlo tendrás así:

Ahora procederemos a insertar una nueva línea, para eso en la línea 0006.00 definimos la letra I (mandato para Insertar línea), teniendo así:

Una vez definido el mandato presionar la tecla ENTER,

Teniendo así:

Ahora vamos a definir la hoja C mediante la cual realizaremos la lógica de nuestro programa, definir la letra C, debe de estar así como en la imagen:

Una vez definida la letra pulsar la tecla de función F4,

Teniendo así:

Ahora vamos a trabajar con la hoja CX, esto lo hago con el fin de poner ampliar el FACTOR 2, para eso pulsar la tecla F23 (SHIFT + 11), al hacerlo tendremos así: