|
Scott Klement wrote: > ... > Try changing your prototype so that it looks like this: > > > D QJoRtvJE PR > > ExtProc('QjoRetrieveJournalEntries') > > D RcvVar 4096A options(*varsize) > > D RcvVarLen 10I 0 const > > D JrnName 20A const > > D FmtName 8A const > > D JrnSelect 8192A const Options(*Nopass:*varsize) > > D ErrorCode 8192A Options(*varsize: *nopass) > Scott, the documentation for this API says that the last two parameters are "omissible". That means OPTIONS(*OMIT); the word "optional" means OPTIONS(*NOPASS). You can often get away with not passing omissible parameters, because there will rarely be a valid pointer where the API is looking for the parameters, but eventually there will be a valid pointer there, and some random "bad thing" will happen - the API will fail, or there will be storage corruption. D QJoRtvJE PR ExtProc('QjoRetrieveJournalEntries') D RcvVar 4096A options(*varsize) D RcvVarLen 10I 0 const D JrnName 20A const D FmtName 8A const D JrnSelect 8192A const Options(*omit:*varsize) D ErrorCode 8192A Options(*varsize: *omit)
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.