RE: AYUDA PG CL

[Fernando P�rez]

Por lo que veo, el RPG recibe los par�metros de la LDA. Si la CL los recibe
tambi�n como par�metros, has de incluirlos en la sentencia PGM, dentro de
PARM, y declararlos con DCL.
Tendr�s que decidir en qu� posiciones de la LDA vas a dejar los par�metros,
una vez lo tengas definido, dentro de la CL los cargas en la LDA con
CHGDTAARA, como lo estar� haciendo ahora para los par�metros que est�
pasando.

Dentro del RPG, tendr�s que declarar los dos par�metros, tal como ya se
est�n declarando los que ya recibe.

Saludos.

Fernando P�rez.
Cer�mica Saloni. Dpto. Sistemas
*   : 964343434  
<mailto:FPEREZ@;SALONI.COM>

>  -----Mensaje original-----
> De:   jcarias [mailto:jcarias@;monteco.es] 
> 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