slide_likebox { float:right; width:288px; height:345px; background: url(http://www.repelis.com/Temas/default/img/chat-facebook.png) no-repeat !important; display:block; right:-250px; padding:0; position:fixed; top: 130px; z-index:1002; border-radius:10px; -moz-border-radius:10px; -webkit-border-radius:10px; } div.likeboxwrap { margin-top:2px; margin-left:-5px; width:238px; height:325px; background-color:#fff; overflow:hidden; border-radius:10px; -moz-border-radius:10px; -webkit-border-radius:10px; } div.likeboxwrap iframe {margin:-1px}

Operadores de Relación RPGIV – AS400

Operadores de Relación RPGIV – AS400

miércoles, 31 de octubre de 2012

ARCHIVOS DE IMPRESORAS AS400 – REPORTES EN AS400 - PARTE 4


ARCHIVOS DE IMPRESORAS AS400 – REPORTES EN AS400
PARTE 4

Ahora vamos a editar los campos de salida numérico par eso vamos a utilizar la palabra clave  EDTCDE.

NOTA:
EDTCDE.- Se utiliza esta palabra clave para editar campos numéricos con capacidad de salida.                                       

Vamos a editar los campos Numéricos: TOTM, TOTF, TOTG y SULMA.

Comencemos por TOTM para eso nos ubicamos en el primer carácter del campo TOTM como se muestra en la imagen:


Luego de ubicar el cursor presionar la tecla de función F21 (SHIFT + F11) para definir mandato del sistema.

NOTA:
F21 (SHIFT + F11)     ==>   Definir Mandato del Sistema

Al hacerlo nos mostrara la siguiente pantalla:


En Nuestro caso vamos a Especificar la Palabra Clave EDTCDE, al lado derecho de EDTCDE en Opción colocamos 2 tal como se muestra en la imagen.


Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


No Olvidar:
En esta pantalla definiremos los siguientes parámetros:
·        Código de Edición = Especificar el código de edición a utilizar

En la siguiente Tabla se muestran la lista de códigos y que representan.
             

·        Carácter de Relleno
Elija entre las siguientes opciones:
* (asterisco).- Teclee 2 si desea imprimir asteriscos (*) a la izquierda del primer dígito significativo dentro del campo.                     
Símbolo de moneda.- Teclee un símbolo de moneda correspondiente al valor del sistema QCURSYM.

En nuestro caso el código de edición será J tal como se muestra en la imagen:


Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


Ahora volvemos a presionar la tecla ENTER,


Mostrándonos la siguiente pantalla:


Y hacemos lo mismo con TOTF para eso nos ubicamos en el primer carácter del campo TOTF como se muestra en la imagen:


Luego de ubicar el cursor presionar la tecla de función F21 (SHIFT + F11) para definir mandato del sistema.
Al hacerlo nos mostrara la siguiente pantalla:


En Nuestro caso vamos a Especificar la Palabra Clave EDTCDE, al lado derecho de EDTCDE en Opción, colocamos 2 tal como se muestra en la imagen:


Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


En nuestro caso el código de edición será J tal como se muestra en la imagen:



Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


Ahora volvemos a presionar la tecla ENTER,


Mostrándonos la siguiente pantalla:


Y hacemos lo mismo con TOTG para eso nos ubicamos en el primer carácter del campo TOTG como se muestra en la imagen:



Luego de ubicar el cursor presionar la tecla de función F21 (SHIFT + F11) para definir mandato del sistema.
Al hacerlo nos mostrara la siguiente pantalla:



En Nuestro caso vamos a Especificar la Palabra Clave EDTCDE, al lado derecho de EDTCDE en Opción, colocamos 2 tal como se muestra en la imagen:


Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


En nuestro caso el código de edición será J tal como se muestra en la imagen:


Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


Ahora volvemos a presionar la tecla ENTER,


Mostrándonos la siguiente pantalla:


Y por ultimo vamos a editar nuestro capo numérico SULMA.
Ubicamos el cursor en el primer carácter del CAMPO SULMA para ello pulsar la tecla de función F20 (SHIFT + F8) tantas veces sean necesarios, con tal de llegar al final del lado derecho del reporte, ubicando el campo SULMA, tal como se muestra en la imagen:


Luego de ubicar el cursor presionar la tecla de función F21 (SHIFT + F11) para definir mandato del sistema.
Al hacerlo nos mostrara la siguiente pantalla:


En Nuestro caso vamos a Especificar la Palabra Clave EDTCDE, al lado derecho de EDTCDE en Opción, colocamos 2 tal como se muestra en la imagen:


Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


En nuestro caso el código de edición será J tal como se muestra en la imagen:


Una vez definido lo anterior presionar la tecla ENTER,


Teniendo la siguiente pantalla:


Ahora volvemos a presionar la tecla ENTER,


Mostrándonos la siguiente pantalla:


Bueno ahora presionar la tecla de función F3 para salir del reporte, al hacerlo nos mostrara una ventana en la cual dejaras todo por defecto, teniendo así:



Ahora presionar la tecla ENTER,


Teniendo así:




Ahora procederemos a crear un programa RPGLE el cual nos permitirá ejecutar nuestro reporte.

Primeramente explicaremos el algoritmo a utilizar:


Ahora para salir del contenido de la QDDSSRC presionar la tecla de función F3, al hacerlo nos mostrara la siguiente pantalla:


Ahora definiremos la opción 3 (Trabajar con miembros),


Al hacerlo presionar la tecla ENTER,


Teniendo así:


Ahora en la opción Archivo deberás de definir el miembro QRPGLESRC si es que no tuviese otro nombre.


Una vez hecho esto presionar la tecla ENTER,


Teniendo así:


Ahora para poder crear un nuevo programa solo bastara con presionar la tecla de función F6 (Crear), al hacerlo nos mostrara la siguiente pantalla:


Ahora en Miembro Fuente definiremos REPORTE1, en Tipo Fuente definiremos RPGLE y en Texto Descriptivo definiremos PROGRAMA PARA REPORTE DE MAESTROS, teniendo así:


Teniendo así:




0 comentarios:

Publicar un comentario

Copyright @2012

Copyright @2012

Esta Wed ha sido creado por Juan Alejandro Rosales Coronel