Re: passing different data types field values from CL to RPG

Hi,

They are defined in RPG (Program Name BN91) as below:-

* ENTRY PLIST
PARM L@CTCD 2
PARM L@GMAB 4
PARM L@BRNO 3
PARM L@XMDT 8




So when I debug my above RPG program L@CTCD ,L@GMAB i get correct values as
defined in my CL but these L@BRNO and L@XMDT are bein received in RPG as
junk values (as said earlier if L@BRNO value from CL is passed as '300'
then in RPG it's received as '?3?'

and for field L@XMDT value from CL is passed as '18012021' then in RPG it's
received as '1?8?0?1?'.

So what changes should be made in RPG to overcome this?



Thanks...


Thanks


On Tue, Jan 19, 2021, 20:55 Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

As long as they are defined in RPG as zoned then it shouldn't matter.
Should still be fixed but ...

What type are they in RPG?

On Jan 19, 2021, at 10:06 AM, Joep Beckeringh via RPG400-L <

rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Simple: make sure the data types match.

When you pass parameters from CL to RPG, the RPG program receives

pointers to storage that is defined by the CL program. If the CL defines
character variables and the RPG interprets them as numeric (what kind of
numeric? Zoned, packed, integer, float?) the content obviously looks like
junk to the RPG program.

Joep Beckeringh


Op 18-1-2021 om 14:31 schreef techie21 IT:

Hi,

I have two fields let's say fld1,fld2(date field) and having their data
types in CL program as Character but in RPG program they are as numeric

so

the problem is happening when we are passing these parameters from CL to
RPG program for example if we pass fld2(having date value in it) to a

RPG

program then up on debug it's known that it captures some junk value and
same happens for fld1( which is character in CL program) and when same

is

passed in RPG then it gets some junk value in it i have seen these junk
values while debugging both the programs they are passed well from CL

but

the moment they come in RPG becomes junk values.how can we prevent
this from happening?

Any suggestions please?


Thanks..

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com