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

On 1/18/21 5:31 AM, techie21 IT wrote:

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

I suggested a DS, with zoned and character fields superimposed over each
other.

On 1/19/21 9:56 AM, techie21 IT wrote:

Sorry i did not understand it could you please explain it with a
code example in my program?

Well, I don't have all of your code to patch, but suppose the CL program has:
DCL VAR(&FLD1) TYPE(*CHAR) LEN(6)
DCL VAR(&FLD2) TYPE(*CHAR) LEN(8)

with those fields passed to the RPG program, hopefully containing valid character representations of numbers. Then the RPG program could have:

D FLD1 DS
D FLD1A 1 6A
D FLD1Z 1 6S 0
D FLD2 DS
D FLD2A 1 8A
D FLD2Z 1 8S 0
. . .


ENTRY PLIST
PARM FLD1
PARM FLD2

and you could then check FLD1A and FLD2A to make sure they're valid zoned decimal numbers, and if so, you would reference FLD1Z and FLD2Z for their numeric values.

Or, if I remember right, there are some slick (relatively) new built-in functions that can, fed a character variable containing a valid, parseable representation of a number, return the number (in which case your validation would just be a go/no-go check, and you could skip the old-fashioned DS overlays.

--
JHHL