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

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Hi John

The 15,5 is needed if he passes numeric literals - he is passing a 
declared variable, so it is not needed here, at least as far as I know, 
which ain't far these days.

Vern

John McKay wrote:
> 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
> > >       
>
>