Define lo siguiente en el registro de control del subarchivo:
SFLCSRRRN(&CSRRRN)
donde CSRRRN es un campo oculto numérico de 5,0
Luego en el programa lees el registro del subfile:
If CsrRRN <> 0;
Chain CsrRRN SubfileRcd;
If %Found;
Endif;
Endif;
Espero te sirva,
Jordi.
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
