Thanks Simon

Your suggestions fixed my issue. I missed the bit re PARM and BASED.

The reason I did;
RTNWID: CHGVAR &RTNWIDTH &RTNWIDTH was so that I
could debug the program and break on the line.

Is the Midgrange list a better place for technical questions like this.
In my opinion, no. Now that CL has the ability to use pointers and based
variablesI think questions are best raised on this list.

BTW This also fixes a old problem I had with CL in that Packed Decimal data
from APIs was so awkard to deal with.

Frank Kolmann

On 27/02/2009, at 10:11 AM, frank kolmann wrote:

What I am asking is what did I do wrong with the new CL code.
The archives mention using %OFS but I dont see how to use %OFS here.

PS. I realise this is the RPG list but I figure you guys would be
best qualified to help with this question.

Should still have asked it on the proper list.

Two problems I see immediately:

1) DEFVAR uses position: position = offset + 1

2) Can't have a variable as both PARM and *DEFINED or *BASED

And what do you think
RTNWID: CHGVAR &RTNWIDTH &RTNWIDTH
is going to do?

Most straight-forward fix is to define a new variable &SPLWIDTH as
*DEFINED on &DS at the correct position and then copy that value into
the return value.

Regards,
Simon Coulter.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.