AS/400 - Apoyo con programa RPG

Hola a todos,

Navegando por la red me encontré con este excelente foro, le comento que en la empresa que trabajo me están dando oportunidad de adentrarme al AS400, lo cual es una gran oportunidad que no quiero desaprovechar, pero ahora me encuentro con un problema y espero me puedan apoyar, estoy tratando de programar en RPG, cabe señalar que ya diseñe mi pantalla, pero mi problema radica en como poder hacer una consulta a un PF, he tratado de hacerlo por medio del comando CHAIN, pero me marca errores, he intentado por medio de RPG FREE pero no he podido realizar la consulta, muy probablemente la pregunta que realizo es muy básica para sus conocimientos, pero no he podido encontrar la solución, y encontrar programas de ejemplos son muy complicados, no se si me puedan dar algún ejemplo de uno se los agradecería infinitamente, cabe señalar que el PF no tiene llave, y es otro de los detalles, este es el código que manejo, saludos

FPANTALLA CF E WORKSTN
FTABLA1 UF E K DISK
C KBUSCAR KLIST
C KFLD CAMPO1
C EVAL CAMPO1=' '
C EXFMT PANTALLA1
C KBUSCAR CHAIN TABLA1 30
C IF %FOUND()
C EVAL VARIABLE1=CAMPO1
C WRITE PANTALLA1
C ELSE
C EXFMT WIN01
C ENDIF
C SETON LR

Hola Ivan, buen día..

Seguís con el problema??

Saludos
Horacio

Hola Ivan

Creo que no se entiende bien lo que deseas hacer, te comento que el código de operación CHAIN solo funciona si tu TABLA1 tiene llave y recupera solo el primer registro coincidente a tu llave, si requieres ver todos los registros tu pantalla debería tener SUBFILE lo cual es un tema un poco mas extenso.

En este link puedes encontrar múltiples manuales que puedes ayudarte

http://www.recursos-as400.com/manuales.shtml

Saludos!!

quitale en las descripciones de archivo la K y no hgas CHAIN realiza un READ y listo
Saludos, cualquier duda comentario o sugerencia al respecto estoy a tus órdenes.