RPGIV - Pointer Parameter API QwpzHostPrintTransform

If you really want to pass pointers then you need to add the VALUE
keyword to all of your various pointer parameters.  What you have
currently would be passing a pointer (by reference) to the pointer
you provide which then addresses the parameter storage.  What you want
is just a pointer which addresses the parameter storage.

Note that you could also just pass the parameters (no * entry) and RPG
would then pass (by reference) a pointer to the parameter storage (which
is what the API wants).  That is, just define your parameters along the
lines of how you defined the error code in your prototype.

You should also remove the options( *NoPass ) as that's not valid for
this API.

Bruce

>
>Hallo,
>
>we have a example Program witten in C in this example the API
>QwpzHostPrintTransform was called.
>All the Parameters passed from C Programm were Pointers.
>
>We want to use the API in RPGIV Programm, is there a way to pass pointers
>in the same way like the
>C Programm does  ?
>
>Example C Code
>
>QwpzHostPrintTransform( procoptP,
>                        (Qwpz_HPT_Opt_SpecIn_t  *)(&OPT_Spec_In),
>                        LOptInP,
>                        SplDataP,
>                        SplDataLP,
>                        (OptOut_t *)(&OPT_Spec_Out),
>                        LOptOutP,
>                        LOptOutAP,
>                        TranDataP,
>                        TranDataLP,
>                        TranDataAP,
>                        (char*)(&errcode) );
>
>We tried to define the following in RPGIV  but it doesn't work.
>
> D PrintTransform  PR                  extproc('QwpzHostPrintTransform')
> D   ProcOptP                      *
> D   OptinP                        *
> D   LoptInP                       *
> D   SplDataP                      *
> D   SplDataLP                     *
> D   OptOutP                       *
> D   LoptOutP                      *
> D   LoptOutAP                     *
> D   TranDataP                     *
> D   TranDataLP                    *
> D   TranDataAP                    *
> D   APIError                   272    options( *NoPass )
>


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---