Espero sirva este ejemplo, ARCHI archivo inicial, ARCHO archivo final
FARCHI IF E DISK
FARCHO IF E DISK
IBEFORE E DSARCHI
IAFTER E DSARCHO
C READ ARCHI 90
C READ ARCHO 90
C *IN90 DOWEQ *OFF
C BEFORE IFEQ AFTER
C READ ARCHI 90
C READ ARCHO 90
C ELSE
C PUEDES GENERA UN ERROR DE REGISTROS
C ENDIF
C ENDDO
C MOVE *ON *INLR
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
