Hola, yo tengo el siguiente:
dLECTURAS pr
d 30 value
d 30 value
*****************************************************************
* *
* lecturas:LECTURA DE LOS MODULOS DEL PROGRAMA *
* *
*****************************************************************
plecturas b
dlecturas pi
d b 30 value
d c 30 value
Ddisco DS
D PRGPR 1 10
D PRLPR 1 10
D PRTIP 1 10
DRPANB DS
D PRGPRB 1 10
D PRLPRB 1 10
D PRTIPB 1 10
DCLAVE DS
D PRGPRC 1 10
D PRLPRC 1 10
D PRTIPC 1 10
Ddiscol DS
D PRGLL 1 10
D PRLLL 1 10
D PRTIL 1 10
C SETOFF 91
c move b rpanb
c move c clave
C CLLPRG chain RLPRG 91
C DOW not(*in91)
C IF not(PRGLL = *BLANKS)
C call 'AUSCRAD'
C PARM PRGPRB
C PARM PRLPRB
C PARM PRGLL
C PARM PRLLL
C move discol clave
C callp lecturas(RPANB:CLAVE)
C move disco clave
C CLLPRG chain RLPRG 91
c end
C CLLPR1 READE RLPRG 91
C ENDDO
C/EJECT
p e
Pedro Pinedo Hernandez: Analista-Programador
Grupo Amcor Flexibles Hispania S.L.
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
Avd. Burgos 67-95
26006 Logroño Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)
[EMAIL PROTECTED] wrote on 25/04/2007 07:28:11:
> Saludos a todos.
>
> A mi me funciona añadiendo esto en H en un RPG-ILE.
>
> DFTACTGRP(*NO) ACTGRP(*NEW) BNDDIR('QC2LE')
>
> Espero te sirva.
>
>
>
> [EMAIL PROTECTED] escribió:
>
> >
> >
> >Hoal a todos,
> >
> >Alguien tiene un ejemplo de como crear y llamar a una funcion
recursiva?.
> >
> >
> >Un saludo
> >
> >Jesús Mª Arzak Capilla
> >Talleres de Escoriaza,S.A.(TESA)
> >Dpto Proceso de Datos
> >
> >www.tesa.es
> >ADVERTENCIA/WARNING
> >
> >ESTE CORREO ELECTRONICO CONTIENE INFORMACION PRIVADA Y
> >ESTRICTAMENTE CONFIDENCIAL. Si usted no es el destinatario del
> >presente mensaje no esta autorizado a leerlo, retenerlo, copiarlo o
> >difundirlo. Ni esta empresa ni el remitente asume ninguna
responsabilidad
> >referente a la posible transmision de virus y es responsabilidad del
> >receptor realizar un escaneo del mensaje y de sus anexos (si los
hubiera) .
> >
> >THIS E-MAIL IS PRIVILEGED, CONFIDENTIAL AND CONTAINS PRIVATE
> >INFORMATION. Any reading, retention, distribution or copying of this
> >communication by any person other than its intended recipient is
> >prohibited. Neither this company nor the sender accepts any
responsibility
> >for viruses and it is your responsibility to scan the email and
attachments
> >(if any) .
> >
> >
> >__________________________________________________
> >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 visita la siguente URL:
> >http://listas.combios.es/mailman/listinfo/forum.help400
> >
> >
> >
>
>
> __________________________________________________
> 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 visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
_______________________________________________
AMCOR FLEXIBLES - LEADING THROUGH INNOVATION
_______________________________________________
CAUTION - This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited. If
you have received this message in error please notify AMCOR FLEXIBLES
immediately. Any views expressed in this message are those of the individual
sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
__________________________________________________
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 visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
