|
Parece que utilizas el �rea de datos local para pasar los
par�metros.
en el cl debes tener algo parecido a
CHGDTAARA DTAARA(*LDA (100 2))
VALUE(&EDAD)
as� que ahora debes a�adir
CHGDTAARA DTAARA(*LDA (300 8))
VALUE(&TOT1)
CHGDTAARA DTAARA(*LDA (308 10))
VALUE(&TOT2)
y el el RPG
I 300 30072TOT1
I 308 31772TOT2
he utilizado posiciones a partir de las 300 pero debes de comprobar
que zona te queda libre y adaptarlo.
utiliza DSPDTARA *LDA para comprobarlo.
Saludos, Vicente
-------Mensaje original-------
Fecha: martes, 05 de
noviembre de 2002 13:55:09
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
|
