Esos par�metros, �son de entrada en el CL? �se cargar�an en la *LDA en el
mismo?
Si es as�, tienes que incorporarlos en la instrucci�n PGM del CL, para que
los reciba. Posteriormente debes declararlos mediante dos instrucciones DCL
en el propio CL. Una vez hecho esto, y cargados los valores de los
par�metros (ojo, en el CL deber�s utilizar alfanum�ricos para cargar la
*LDA) haces un CHGDTAARA DTAARA(*LDA (posici�n longitud) VALUE(valor del
par�metro.
Por �ltimo, en la UDS (definici�n de la *LDA en el programa RPG) debes
definir dichos campos con sus posiciones y longitudes y ya los tienes
cargados en el programa.
Espero que esto te ayude.
Un saludo.
Juan Carlos Paredes
-----Mensaje original-----
> De: jcarias [SMTP:[EMAIL PROTECTED]]
> Enviado el: martes, 05 de noviembre de 2002 11:18
> Para: Forum. Help400@Combios. Es
> Asunto: AYUDA PG CL
>
> Hola amigos del foro:
> Tengo que incorporar al PG CL siguiente, dos par�metros para pasarlos a
> uno de los programas que llama 'monp06f' es un pg. que no hice yo, y no lo
> entiendo muy bien, me puede decir alguien como tengo que editarlos, en el
> CL y en el PG RPG.?
>
> Columnas . . : 1 71 Examen LIB/QCLSRC
> SEU==>
> MONT02
> FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
> ...+... 7
> *************** Principio de datos
> ************************************
> 0001.00 PGM PARM(&EDAD &DURAC &PENSIO &SEXO)
>
> 0002.00 DCL VAR(&EDAD) TYPE(*DEC) LEN(2 0)
>
> 0003.00 DCL VAR(&DURAC) TYPE(*DEC) LEN(2 0)
>
> 0004.00 DCL VAR(&PENSIO) TYPE(*DEC) LEN(2 0)
>
> 0004.01 DCL VAR(&SEXO) TYPE(*CHAR) LEN(1)
>
> 0005.00 DCL VAR(&A) TYPE(*CHAR) LEN(2)
>
> 0006.00 DCL VAR(&B) TYPE(*CHAR) LEN(2)
>
> 0007.00 DCL VAR(&C) TYPE(*CHAR) LEN(2)
>
> 0007.01 DCL VAR(&D) TYPE(*CHAR) LEN(1)
>
> 0008.00 DCL VAR(&T1) TYPE(*CHAR) LEN(15)
>
> 0009.00 DCL VAR(&T2) TYPE(*CHAR) LEN(15)
>
> 0010.00 DCL VAR(&T3) TYPE(*CHAR) LEN(15)
>
> 0011.00 DCL VAR(&T4) TYPE(*CHAR) LEN(15)
>
> 0012.00 DCL VAR(&TOTAL) TYPE(*CHAR) LEN(15)
>
> 0013.00 CHGVAR VAR(&A) VALUE(&EDAD)
>
> 0014.00 CHGVAR VAR(&B) VALUE(&DURAC)
>
>
>
> ESTE ES EL PG. RPG 'MONP 6F'QUE TIENE QUE RECIBIR LOS DATOS, AHORA SOLO
> RECIBE CUATRO PAR�METROS PERO TIENE QUE RECIBIR DOS MAS UN TOT1(8,2) Y UN
> TOT2 (10,2)
>
>
> 0005.00 I* PARAMETROS RECIBIDOS DE LA L.D.A.
>
> 0006.00 I* PARM1--> EDAD.
>
> 0007.00 I* PARM2--> DURACION.
>
> 0008.00 I* PARM3--> TOTAL.
>
> 0009.00
> I**************************************************************
> 0010.00 I*
>
> 0011.00 I UDS
>
> 0012.00 I 100 1010PARM1
>
> 0013.00 I 102 1030PARM2
>
> 0014.00 I 121 1356TOTAL
>
> 0014.01 I 250 250 PARM11
>
> 0015.00 C*
>
> 0016.00
> C**************************************************************
>
>
> MUCHAS GRACIAS
>
>
> **********************************
> MONTECO SEGUROS
> JUAN CARLOS ARIAS
>
> [EMAIL PROTECTED]
> www.monteco.es
>
>
>
_____________________________________________________
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:forum.help400-request@;combios.es?body=LEAVE
