Re: User Space size

[Barbara Morris <bmorris@xxxxxxxxxx>]

Tony Carolla wrote:
> 
> Thanks Bob!  I bungled the DS pointer for parameter three.  One of
> these days I will install QSYSINC!!!
> 
... from another posting:
> I have my prototype:
>     D ChgUS           PR                  ExtPgm('QUSCUSAT')
>     D  SpaceLib                     10A   Const
>     D  SpaceName                    20A   Const
>     D  SpaceAttr                      *   Const
>     D  SpaceError                     *   Const

Parameter 4 is wrong too.  If you define your error code parameter as *
CONST, you will encounter many and varied problems (even if it
apparently works sometimes).  Here's one way to define the error code
parameter:

    D ErrCode         DS
    D   ByteProv                    10I 0 Inz(0)
    D   ByteAvail                   10I 0 

    D ChgUS           PR                  ExtPgm('QUSCUSAT')
    D  SpaceLib                     10A   Const
    :
    :
    D  SpaceError                         LikeDs(ErrCode)

Then pass ErrCode as the parameter.  If you want to check for errors
after the call, initialize ByteProv to %Size(ErrCode) instead of zero.