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
<<attachment: winmail.dat>>
