Para llamar a otro programa RPG externo yo lo hago asi
primero declaro un Prototipo y los parametros que utilice el programa en este
caso mi programa se llama WINPRT y acepta un parametro de longitud 10, no es
necesario que le pongas un nombre al parametro
D winprt PR extpgm('WINPRT')
D 10
y ya despues en el codigo lo llamas asi:
If CFELDN='WDFTP';
Winprt(Wdftp);
endif;
espero sea eso lo que necesitas
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
Phone USA (956) 554 5832
Phone MX 01868 8128163 x.5832
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Javier Garc�a
Marqu�s
Sent: Thursday, November 18, 2004 10:43 AM
To: [EMAIL PROTECTED]
Subject: Call en RPG-Free
Ya que estamos con el RPG-Free y pasando a otro tema �come se llama a otro
programa en RPG-Free? ya que no acepta el Call ni el Callb.
Saludos cordiales,
Javier Garc�a Marqu�s
LO�TRANS, Log�stica y Transporte, S.A. (Div. Inform�tica)
Tel.: 93 298 30 78
Fax.: 93 298 30 13
E-mail: [EMAIL PROTECTED]
Web: www.lotrans.es
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de Vicente Garc�a
Enviado el: jueves, 18 de noviembre de 2004 16:55
Para: [EMAIL PROTECTED]
Asunto: Re: [TV041119] RPG sin indicadores �sigue siendo RPG? (era %Eof)
Buenas tardes:
En esta ocasi�n siento llevarte totalmente la contraria Juanra:
Con la aparici�n del ILE-RPG y posteriormente del RPG free el uso de
indicadores pr�cticamente ha desaparecido por completo.
La totalidad de operaciones de acceso y trabajo con ficheros se han visto
reconvertidas a BIFs que te evitan el uso de indicadores.
Cuando antiguamente accedias a varios ficheros, por ejemplo con CHAIN, y
llegaba un momento en el que era necesario ejecutar ciertas acciones si
habian sido satisfactorios todos los accesos la cosa quedaba mas o menos
asi:
N61N62N63 Z-ADD 0 VARIAB 5 0
Tenias que recordar que N61 era que hab�a sido satisfactorio el acceso al
FICHEROA, N62 al FICHEROB y N63 al FICHEROC.
En ILE free la cosa ser�a tambi�n mas o menos:
If %found(FICHEROA) And
%found(FICHEROB) And
%found(FICHEROC);
VariaB = 0;
EndIf;
Vamos que no hay color.
Que decir de los indicadores de pantalla o listado. Con la posibilidad de
utilizar punteros, podemos dar nombres significativos a los indicadores que
pasan a ser variables booleanas. En ILE free podemos preguntar:
If Condicion;
CodClieProt = True;
CodPaisPosCursor =True;
EndIf;
No es necesario utilizar *On u *Off puesto que se pueden definir las
constantes True y False con estos valores y preguntar por ellas.
Se podrian poner muchos mas ejemplos.
No se trata de quitar indicadores por que si o por que vamos a utilizar
ILE-free. Es el propio lenguaje el que te va a permitir hacer todo lo que
hacias antes con mucho menos c�digo, mucho mas claro y sin necesidad de los
indicadores.
Una de las cosas que mas nos llamo la atenci�n cuando comenzamos a utilizar
el ILE free, fu� que los programas una vez tecleados compilaban casi siempre
a la primera, puesto que las posibilidades de errores al teclear fuera de
posici�n, falta de indicadores, variables sin definir, etc. son mucho
menores
con el free.
freeSauriosSaludos
Juan Ram�n Garcia escribi�:
>Pr�logo: Hoy no es Viernes, es Jueves por la tarde (al menos en Espa�a)
>pero como �ltimamente el Foro tarda en replicar (al menos a mi) varias
>horas, algun@ ver�is este mensaje ma�ana.
>-----------------------------------------------------
>Hola a [EMAIL PROTECTED]:
>
>A ver, creo que, enfrascado con asuntos "legales" (LOPD y esas
>hierbas), me he perdido algo importante y gracias a este tema he
>levantado mis ojos de tanto BOE y RD's y mi esp�ritu RPGero ha sufrido
>un estremecimiento
>
>
>
>>La pregunta es: c�mo 'apago' el %Eof(fichero)?
>>
>>
>>>Utiliza un indicador en el setll y lo apagas antes del nuevo setll
>>>
>>>
>>>>Hombre,con un indicador normal no hay problema, pero se trata de ir
>>>>quitando indicadores para cuando empecemos con Free RPG.
>>>>
>>>>
>
>Pues no lo entiendo, debe ser que soy demasiado mayor y mis neuronas se
>han
>
>
_____________________________________________________
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]
_____________________________________________________
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]
****************************************************************************************
Note: The information contained in this message may be privileged and
confidential and thus protected from disclosure. If the reader of this message
is not the intended recipient, or an employee or agent responsible for
delivering this message to the intended recipient, you are hereby notified that
any dissemination, distribution or copying of this communication is strictly
prohibited. If you have received this communication in error, please notify us
immediately by replying to the message and deleting it from your computer.
Thank you.
****************************************************************************************
_____________________________________________________
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]
