Otra utilizaci�n de OCCUR es obtener la ocurrencia actual de la DS, siguiendo el ejemplo:
C OCCUR ESSO X nos dejar�a en X el �ndice actual de ESSO Saludos. Fernando P�rez. Cer�mica Saloni. Dpto. Sistemas <mailto:[EMAIL PROTECTED]> -----Mensaje original----- De: Yolanda Martorell Miguel [mailto:[EMAIL PROTECTED]] Enviado el: viernes, 03 de enero de 2003 13:13 Para: [EMAIL PROTECTED] Asunto: Re: Sentencia occurs Hola espero que te sirva el ejemplo D ESSO DS OCCURS(10) D SOBASE 1 13 2 D SOIVDE 14 24 2 D SOIVND 25 35 2 D SOTXC 37 39 1 C DO 10 X C X OCCUR ESSO C Z-ADD 0 SOBASE C Z-ADD 0 SOIVDE C Z-ADD 0 SOIVND C Z-ADD 0 SOTXC C END >From: [EMAIL PROTECTED] >Reply-To: [EMAIL PROTECTED] >To: [EMAIL PROTECTED] >Subject: Sentencia occurs >Date: Fri, 3 Jan 2003 12:35:00 +0100 > >Hola compa�eros, �alguien puede indicarme como debo utilizar la sentencia >occurs dentro de las hojas c de un programa ile cuando ha sido incorporada >a una ds?. > >Gracias y Feliz A�o para todos. > >--------------------------------------------------------------------------- -------- > >Luis M. Gonz�lez Peralta >Departamento Desarrollo SOFT9126, S.L. >E-mail : [EMAIL PROTECTED] <mailto: [EMAIL PROTECTED]> >Tlf: (+34) 976.59.29.69 >Fax: (+34) 976.59.33.90 >Movil: (+34) 629.67.65.30 >--------------------------------------------------------------------------- -------- > > > > >_____________________________________________________ >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 _________________________________________________________________ MSN. M�s �til Cada D�a http://www.msn.es/intmap/ _____________________________________________________ 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 _____________________________________________________ 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
