You need to specify 'value' on your RcvRec parameter on the PR and PI
blocks.  This will allow the routine to return the changed RcvRec values...


> Here is my Sub Procedure for #RdStin:
>
>
> P #RdStin         B                   Export
>
> *====================================================================*
> D #RdStin         PI
> D  RcvRec                     1024    *****ADD 'value' HERE*****
> D  RcvLen                        9B 0
>  *
> D RcvRecLen       S              9B 0
>
> *====================================================================*
> C                   CallB     'QtmhRdStin'
> C                   Parm                    RcvRec
> C                   Parm                    RcvLen
> C                   Parm                    RcvRecLen
>  C                   Parm                    WPError
>   *
>
> *====================================================================*
>  P #RdStin         E


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2024 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.