RE: [EXTERNAL] Re: passing different data types field values from CL to RPG

Okay - can you now post the CL command that calls the RPG program - along with the DCL VAR of the 4 fields from within the CL program

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of techie21 IT
Sent: Tuesday, January 19, 2021 12:53 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] 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

--
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