Para declararlos tendras que averiguar que posiciones ocupa y donde en el area local
de datos que utilice en el cl.
en el cl seria:
PGM PARM(&EDAD &DURAC &PENSIO &SEXO &TOT1 &TOT2)
DCL VAR(&TOT1) TYPE(*DEC) LEN(8 2)
DCL VAR(&TOT2) TYPE(*DEC) LEN(10 2)
en programa donde los demas parametros:
desde a longitud
? ? parm5
? ? parm6
por lo que veo creo que es esto espero te ayude.
Saludos
Exclusivas Camacho, S.Ltda.
Paco Medina
> -----Mensaje original-----
> De: [EMAIL PROTECTED] [mailto:forum.help400-request@;combios.es] En
>nombre de jcarias
> 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
