Re: converting to *FREE

On 2019-11-06 2:51 p.m., Steve Jones wrote:

I have been converting our programs to be all free when making a change

to

them. Today I came across this bit of code that I am struggling to

convert.

The SortIt PR is what is confusing me the most.
...

D SortIt Pr ExtProc('qsort')
D DataStart * Value
D Elements 10U 0 Value
D Size 10U 0 Value
D CompFunc * Value ProcPtr

Here you go. (I'm guessing it was * ProcPtr that you were struggling with.)

Dcl-Pr SortIt ExtProc('qsort');
DataStart Pointer Value;
Elements Uns(10) Value;
Size Uns(10) Value;
CompFunc Pointer(*Proc) Value;
End-Pr;

--
Barbara

--
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@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com