Re: Journal API Troubleshooting

[Barbara Morris <bmorris@xxxxxxxxxx>]

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)