Espero te sirva este ejemplo:
4500 *
4600 DODIVISA DS OCCURS(175) INZ
4700 D ODDIV 18
4800 D OCDIV 3
4900 D OIDIV 13S 3
5000 D OUDIV 5S 0
5100 D OCTRA 11S 6
5200 D OIMCO 13S 3
5300 *
5600 C 1 DO 175 W 3 0
5700 C W OCCUR ODIVISA
5800 C EVAL ODDIV = *BLANKS
5900 C EVAL OCDIV = *BLANKS
6000 C EVAL OIDIV = *ZEROS
6100 C EVAL OUDIV = *ZEROS
6200 C EVAL OCTRA = *ZEROS
6300 C EVAL OIMCO = *ZEROS
6400 C ENDDO 1
Saludos
Paco Medina
Dpto.Informatica
Exclusivas Camacho, S.Ltda.
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Enviado el: viernes, 03 de enero de 2003 12:35
Para: [EMAIL PROTECTED]
Asunto: Sentencia occurs
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=AVE
_____________________________________________________
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
