EN DEFINITIVA LO UNICO QUE QUIERO ES PASAR DATOS (PARA HACER UNA OPERACION SENCILLA) DE DOS CAMPOS QUE TENGO EN EL PRIMER PG, PASANDO POR EL CL, QUE LLAMA AL TERCER PG. (ESTO TIENE QUE SER ASI, PUES HAGO OTRAS COSAS, Y TENGO QUE SEGUIR COMO ESTA.)
ESTO ES LO QUE HE PUESTO Y ME DA ERROR, A VER DONDE TENGO EL FALLO.
EN EL PRIMER PG. LLAMA A UN CL 'MONT02F' Y LOS CAMPOS QUE TENGO QUE PASAR
PARA HACER UNA OPERACION SENCILLA EN EL ULTIMO PG. SON 'IMPTRU' E 'IMPTRA'
LOS DATOS QUE TENGO EN ESTOS CAMPOS ES LO QUE QUIERO PASAR AL ULTIMO PG.
121.01 MJGAC MOVE SEXO1 PARM11
121.02 C Z-ADDIMPTRU PARM15
121.03 C IMPTRA MULT 12 PARM16
122.00 C Z-ADD12 DOCE 20
123.00 C Z-ADDEDAD EDA 20
124.00 C Z-ADDDURACI DURA 20
124.01 MJGAC MOVE SEXO1 SEX 1
125.00 C CALL 'MONT02F'
126.00 C PARM EDA
127.00 C PARM DURA
128.00 C PARM DOCE
128.01 C PARM SEX
128.02 C PARM PARM15
128.03 C PARM PARM16
129.00 C IN *NAMVAR
130.00 ******************************************************
----------------------------------
EN EL CL HE PUESTO :
Columnas . . : 1 71 Edici�n
MONTEPLAN/QCLSRC
SEU==>
MONT02F
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7
*************** Principio de datos
************************************
0001.00 PGM PARM(&EDAD &DURAC &PENSIO &SEXO &IMP1 &IMP2)
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)
0012.01 DCL VAR(&IMP1) TYPE(*DEC) LEN(8 2)
0012.02 DCL VAR(&IMP2) TYPE(*DEC) LEN(10 2)
0013.00 CHGVAR VAR(&A) VALUE(&EDAD)
0014.00 CHGVAR VAR(&B) VALUE(&DURAC)
0015.00 CHGVAR VAR(&C) VALUE(&PENSIO)
0015.01 CHGVAR VAR(&D) VALUE(&SEXO)
0016.00 CHGDTAARA DTAARA(*LDA (100 2)) VALUE(&A)
0017.00 CHGDTAARA DTAARA(*LDA (102 2)) VALUE(&B)
0018.00 CHGDTAARA DTAARA(*LDA (104 2)) VALUE(&C)
0018.01 CHGDTAARA DTAARA(*LDA (250 1)) VALUE(&D)
0018.02 CHGDTAARA DTAARA(*LDA (260 8)) VALUE(&E) ??
0018.03 CHGDTAARA DTAARA(*LDA (270 10)) VALUE(&F) ??
0019.00 CALL PGM(MONP05)
0020.00 CALL PGM(MONP06F) (en este PG, ES DONDE
TENGO QUE LLEGAR CON LOS DATOS)
0021.00 CALL PGM(MONP07)
0022.00 CALL PGM(MONP11)
0023.00 CALL PGM(MONP12Z)
0024.00 CALL PGM(MONP10B)
F3=Salir F4=Solicitud F5=Renovar F9=Recuperar F10=Cursor
F11=Conmutar
F16=Repetir b�squeda F17=Repetir cambio F24=M�s teclas
----------------------------------------------------------------------------
------------------------------
ESTE ES EL PG. 'MONP06F' QUE ES EL QUE RECIBE LOS DOS CAMPOS
Y HE PUESTO...
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
0014.02 I 260 2672PARM15
0014.03 I 270 2792PARM16
0015.00 C*
0016.00 C************************************************************
Y
DESPUES DENTRO DEL PG, TRABAJO CON LOS DATOS QUE HAY EN 'PARM15' Y 'PARM16'
MUCHAS GRACIAS A TODOS LOS QUE ESTAIS CONTESTANDO.
UN SALUDO
===============================
| MONTECO SEGUROS |
| JUAN CARLOS ARIAS |
| [EMAIL PROTECTED] |
| www.monteco.es |
===============================
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:forum.help400-request@;combios.es]En nombre de Fernando P�rez
Enviado el: martes, 05 de noviembre de 2002 13:59
Para: '[EMAIL PROTECTED]'
Asunto: RE: AYUDA PG CL
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=AVE
<<attachment: winmail.dat>>
