|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.