×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Ok, if you are trying to call a raw API, with the parameters, but not setting them properly, from AJS you are SOL.
DCL &ErrCode *CHAR 46 /* API Error code */
DCL &ErrPrv *INT STG(*DEFINED) LEN(4) DEFVAR(&ErrCode 1)
DCL &ErrAvl *INT STG(*DEFINED) LEN(4) DEFVAR(&ErrCode 5)
DCL &Exception *CHAR STG(*DEFINED) LEN(7) DEFVAR(&ErrCode 9)
DCL &ExceptData *CHAR STG(*DEFINED) LEN(30) DEFVAR(&ErrCode 17)
...
CHGVAR &ErrAvl (46)
...
CALL QUSPTRUS PARM(&UsrSpc &pUsrSpc &ErrCode)
If (&Exception *ne ' ') then(do)
/* This choice location for rent */
EndDo
I suppose you could try passing it in hex.
Rob Berendt
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.
midrange.com
