Re: Call a RPG program from a CL, decimals error

["John McKay" <jmckay@xxxxxxxxxxxxxxxx>]

The lengths of your  parameters do not match.

Also its best to specify numeric parameters in this case as 15,5 - i.e. 
length 15 including 5 decimal places.


Regards,
John McKay

www.rpglanguage.com
www.mckaysoftware.ie

----- Original Message ----- 
From: "PEPITOVADECURT" <pepitovadecurt@xxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, April 22, 2009 10:51 AM
Subject: Re: Call a RPG program from a CL, decimals error


Hi this is the definition in RPG, is correct?
C           *ENTRY    PLIST
C                     PARM           P0S9NN 309
C                     PARM           P0S9NP 36

Thank's


J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx
escribió:
> Then obviously the definition in your RPG program does not match the
> definition in your CL program. Make sure that the definition in RPG
> specifies packed, not zoned.
>
> Joep Beckeringh
>
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 22-04-2009 10:56:23:
>
> > Hi I call a RPG program from a CL but a decimal data error appears when
> > call a RPG program.
> >
> > PGM
> > DCL        VAR(&VAR1) TYPE(*DEC) LEN(9 5)
> > DCL        VAR(&VAR2) TYPE(*CHAR) LEN(10)
> > DCL        VAR(&RESU) TYPE(*CHAR) LEN(10)
> > DCL        VAR(&PAN) TYPE(*CHAR) LEN(10)
> > RTVDTAARA  DTAARA(*LDA (511 10)) RTNVAR(&PAN)
> >
> > CHGVAR     VAR(&VAR1) VALUE(1234,01200)
> >
> > /* Send num ex: 1231,2100 and returns 1.231,21   */
> > CALL       PGM(PR2535) PARM(&VAR1 &VAR2)
> > CHGVAR     VAR(&RESU) VALUE(&VAR2)
> >
> > SNDBRKMSG  MSG(&RESU) TOMSGQ(&PAN)
> > ENDPGM