Re: How do I pass a packed numeric valid into a called RPG program?

If I have a parameter with a length of say 100 - in the past we would need to put something in position 100 to ensure the entire parameter length was passed.

Does specifying the length on the call negate this requirement ?

So instead of

Call pgm001r parm('this text is less than 100 characters so I have an asterisk in the 100th byte *')

(Please note this is an example and I did not count the full 100 characters!)

We could use

Call pgm001r parm((('this text is less than 100 characters so I have an asterisk in the 100th byte') (*CHAR 100)))

Thanks
Don
Don Brown

Senior Consultant




OneTeam IT Pty Ltd
P: 1300 088 400

________________________________
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of Niels Liisberg <nli@xxxxxxxxxxxxxxxxx>
Sent: Wednesday, 20 November 2024 19:36
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: How do I pass a packed numeric valid into a called RPG program?

Besides using data types directly on the call command like this
CALL PGM(RPG_PGM) PARM((31 (*DEC 10 2)))

You can also declare your parameter in your RPGLE code a package decimal
(15.5) this is what the command processor by default converts values to.

Then i look like;

CALL PGM(RPG_PGM) PARM((31)

...
pi *n;
p1 packed (15:5);
end-pi;





On Tue, Nov 19, 2024 at 9:47 PM <dfreinkel@xxxxxxxxxxxxxxxxx> wrote:

I have seen it done but never used it. How would I call a RPG program
passing packed numerics from the command line?



Call RPG_PGM parm(31)



TIA



Darryl Freinkel

A4G

Telephone: 770.321.8562



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

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

--
Message protected by MailGuard: e-mail anti-virus, anti-spam and content filtering.
https://www.mailguard.com.au