Con CALLP. Tienes que definir un prototipo para la llamada en la hoja D,
definiendo los par�metros, y hacer el CALLP al mismo. Algo as�:
D @ExcCmd pr extpgm('QCMDEXC')
D P1Cmd 256a
D P1Lng 15p 5
/free
callp @ExcCmd (cmd:lng);
/end-free
Saludos
Juan Carlos.
> -----Mensaje original-----
> De: Javier Garc�a Marqu�s [SMTP:[EMAIL PROTECTED]
> Enviado el: jueves, 18 de noviembre de 2004 17:43
> Para: [EMAIL PROTECTED]
> Asunto: 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]
_____________________________________________________
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]
