Esta CL le pasa los parametros al RPG mediante un area de datos llamada
*LDA esa area de datos la puedes cambiar con CHGDTAARA DTAARA(*LDA) le
debes indicar la posicion del principio y la longitud de los datos a
grabar estos datos deben ser ALFANUMERICOS.
Luego en el RPG en la UDS se recuperan estos datos poniendo las
posiciones de principio y fin del campo que queramos recuperar.
Otra opcion es ponerle un *entry como un pase de parametros normal.
*ENTRY PLIST
PARM PARM1
PARM PARM2
etc....
Espero te sirva
Saludos.
----- Mensaje Original -----
De: "jcarias" <[EMAIL PROTECTED]>
Fecha: Martes, Noviembre 5, 2002 11:17 am
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
> SOLORECIBE 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
