| Categoría : Programación
Autor : Eduardo Lovera Alaya
Título : Leer archivo en un CL
Descripción del truco:
Creas un PF con DDS, para a mover el valor de un campo
con CHGVAR, declaras el archivo con DCLF.
Lees con RCVF,monitoreas el EOF con el CPF*
Aquí determina el fin de archivo
No se si es un truco, pero me ha ayudado desde que
lo aprendí, conozco de programadores que no lo
saben! PGM
DCLF FILE(LIBRERIA/ARCHIVO)
RCVF RCDFMT(ARCHIVO)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
/* SENTENCIAS ...Ej. CHGVAR...VAR(&CAMPO1) VALUE(&CAMPO2) */
FIN: ENDPGM
****************** Fin de datos ************
Fecha 15-09-2004
Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.Envianoslo
y si resulta seleccionado te enviaremos un vale de Amazon
por valor de 50$
|
