al parecer al otro programador se le ocurrio pasar los parametros por el area de datos local (*LDA) si el programa no se utiliza desde otro lado te aconsejo cambiar la modalidad de recepcion de los mismos a C *ENTRY PLIST C PARM EDAD 30 C PARM DURAC 30 C PARM PENSIO 30 C PARM SEXO 30 C PARM TOT1 30 C PARM TOT2 30
Si tienes que seguir manteniendo la misma estructura porque el PGM se utiliza desde otros lugares tendras que adecuar la definicion de tu UDS para recebir los nuevos parametros. Si pasaste la definicion completa de la misma tienes espacio de sobra, por ejemplo podrias poner I 251 257 720TOT1 I 258 2671020TOT2 para pasar los parametros desde el cl mediate la *LDA debes utilizar el comando CHGDTAARA (*LDA (251 7)) '1234567' CHGDTAARA (*LDA (258 10)) '1234567890' Saludos.... > -----Mensaje original----- > De: jcarias [SMTP:[EMAIL PROTECTED]] > Enviado el: martes, 05 de noviembre de 2002 7: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
