Re: Parameter length and RPG pgms -- RPG400-L

Adding an extra parm won't cause a problem in and of itself - but this is a scenario similar to driving in the wrong direction on the interstate - it is not a question of IF you will have an accident but WHEN!

For example - should OE049 be called by a program that defines the structure as 156 long then any logic changes to OE049 that resulted in an update to any of the fields wstxc1 to wotxt3 then storage in the caller would be corrupted. What storage? Could be anything and it might not be obvious for months. The "record" in my experience was a situation like this that was corrupting the data in a history log file for over 8 months before the problem was discovered.

Another problem would be if someone decided to change the logic of OE049 to (say) CLEAR the DS which would have the same effect of corruping storage in the caller.

You can fix the problem now or later after the damage occurs - your choice <grin> - I would strongly suggest using a /COPY for the DS definition to ensure the same definition is always used.

Jon Paris

On Jun 3, 2022, at 12:13 PM, Greg Wilburn <gwilburn@xxxxxxxxxxxxxxxxxxxxxxx> wrote:

While looking to modify our ERP software, I encountered a situation where parameter definitions vary between programs.
To explain...

OE049 is called from quite a few different programs. The CALL is as follows:
c call 'OE049'
c parm psc000
c parm psc001
c parm psc002
c parm totals

All parameters are data structures.
My question is around the last parameter TOTALS.

In OE049 it is defined as length 204
d totals ds
d wontt$ 01 13 2
d wofrt$ 14 26 2
d wotxt$ 27 39 4
d wottt$ 40 52 2
d wonts$ 53 65 2
d wofrs$ 66 78 2
d wotxs$ 79 91 4
d wotts$ 92 104 2
d wontb$ 105 117 2
d wofrb$ 118 130 2
d wotxb$ 131 143 4
d wottb$ 144 156 2
d wstxc1 157 159
d wstxc2 160 162
d wstxc3 163 165
d wotxt1 166 178 4
d wotxt2 179 191 4
d wotxt3 192 204 4

In some of the calling programs it varies from 156 to 165 to 204

How can this be? Could this cause problems?

I ask because I'm about to add a 5th (optional) parameter to the call to OE049.

Greg
[Logo]<https://www.totalbizfulfillment.com/> Greg Wilburn
Director of IT
301.895.3792 ext. 1231
301.895.3895 direct
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx<mailto:gwilburn@xxxxxxxxxxxxxxxxxxxxxxx>
1 Corporate Dr
Grantsville, MD 21536
www.totalbizfulfillment.com<http://www.totalbizfulfillment.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