Re: QUSRJOBI API - Getting CPF3C53 for job on JOBQ

[Scott Klement <klemscot@xxxxxxxxxxxx>]

On Sat, 27 Sep 2003, Vern Hamberg wrote:

> Ron, run the job in debug to verify the value in QualJobNm. Haven't done
> RPG in a while, does the '+' strip trailing blanks?

No, it does not.


> Also, what is JBREF - it looks like you want it to be the job name. And
> maybe use a 16-character variable for the internal ID, instead of
> *BLANKS - I'm not sure that memory is being properly allocated with the
> constant.

That depends on the prototype (which he didn't show us) if the prototype
defines that parm as "16A CONST" then *blanks should be fine.

Since he's getting a "job not found" error, it seems likely to me that
the problem is either with the prototype, or with one of the following
fields:  QualJobNm, JBREF, JAUSR, JAJNR...  I'd like to see how those
are defined?

Here's some sample code that I just wrote (and tested) and it seems
to work just fine for a job that's held on a job queue.  Granted, this
code isn't espcially useful since I didn't flesh out either the dsEC
structure or the dsJob400 structure...   but the code DOES work,  I'm just
too lazy to define all the fields (especially since that had nothing to do
with the error he's getting)

     D QUSRJOBI        PR                  ExtPgm('QUSRJOBI')
     D   RcvVar                   65535A   options(*varsize)
     D   RcvVarLen                   10I 0 const
     D   Format                       8A   const
     D   QualJobName                 26A   const
     D   IntJobID                    16A   const
     D   ErrorCode                65535A   options(*varsize)

     D dsEC            ds
     d   one                         10I 0 inz(0)
     d   two                         10I 0 inz(0)

     D dsJob400        ds
     D   dsBlah                    1024A

     d QualJobNm       s             26A

     c     *entry        plist
     c                   parm                    JBREF            10
     c                   parm                    JAUSR            10
     c                   parm                    JAJNR             6

     c                   eval      QualJobNm = JBREF +
     c                                         JAUSR +
     c                                         JAJNR

     c                   callp     QUSRJOBI(dsJob400: %size(dsJob400):
     c                                 'JOBI0400': QualJobNm: *blanks: dsEC)

     c                   eval      *inlr = *on