I got to do some trail and error method on this..

Thanks Tom.

The user space APIs can used in OPM CL (except the Retrieve Pointer to User Space (QUSPTRUS) API) and even REXX, so they’re not too difficult to work with.

The first time can be confusing in a couple details. But once those are understood, the APIs can be used over and over again with many other APIs and for your own uses. They’re used almost the same every time, so you almost just copy your code for the next usage.

A new thread about user spaces would be good for the site.

Tom

you can do DspLog (Display Log) for the timeframe in question, to a printer file.

then just use F16 (shift + F4) after typing the job number in the search line, when looking at the printer file with option 5.

-sarge

you can do DspLog (Display Log) for the timeframe in question, to a printer file. …{F16 to search…}

This is a useful tip for basic interactive searches.

It assumes that the timeframe of the job activity fits within the current QHST* range. Also, it assumes that the search is being done by general interactive means rather than by some automated application or operations procedure. (Technically, it also assumes that spooled file size limits won’t be an issue; but that’s not a major obstacle for most sites.)

Tom

As I am new to RPG and working with a new client, I was not able to try API.
Sarge – Thanks for a very useful tip, I was able to find most of jobs very easily.

Tom – I would like to know more about API, can you provide additional study material.

Thank you both

-Sagar

I would like to know more about API, can you provide additional study material.

To learn about most APIs, I use CL. Once I know what to expect an API to do, I can use it in RPG (or COBOL or C or whatever) much more easily. Here’s a basic CLP that accepts a job number and sends a message for every job that it finds matching that number:

pgm    ( +
         &pChkNbr      +
       )


   dcl   &pChkNbr       *char       6


   dcl   &usrspc        *char      10  VALUE( '#$FNDJBNBR' )
   dcl   &usrspclib     *char      10  VALUE( 'QTEMP     ' )

   dcl   &qusrspc       *char      20

   dcl   &us_hdr        *char     150   /* Space header      */
   dcl   &us_lste       *char      56   /* List entry        */

   dcl   &job           *char      10
   dcl   &jobusr        *char      10
   dcl   &jobnbr        *char       6


/* Number of list entries: Listed jobs...                           */

   dcl   &NbrLstE       *dec      (7)

   dcl   &offsetlst     *int
   dcl   &szLstE        *int


/*  The qualified search job name...                                */
   dcl   &SchJob        *char     26


   chgvar    &qusrspc        ( &usrspc *cat &usrspclib )

/*  Create a usrspc to hold the job list data...                    */

   call  QUSCRTUS         ( +
                            &qusrspc                +
                            'TMPLST    '            +
                            x'00001000'             +
                            X'00'                   +
                            '*ALL      '            +
                            'Temp list by job nbr   ' +
                            '*YES      '            +
                            x'0000000000000000'     +
                          )

/*                                                                  */
/*  Populate the usrspc with appropriate job list data...           */
/*                                                                  */

   chgvar    &SchJob         ( +
                               '*ALL      ' *cat         +
                               '*ALL      ' *cat         +
                               &pChkNbr                  +
                             )

   call  QUSLJOB          ( +
                            &qusrspc                +
                            'JOBL0100'              +
                            &SchJob                 +
                            '*ALL      '            +
                            x'0000000000000000'     +
                            '*'                     +
                            x'00000000'             +
                            x'00000000'             +
                          )


/*  Retrieve the header data...                                     */

   call  QUSRTVUS         ( +
                            &qusrspc                +
                            x'00000001'             +
                            x'00000096'             +
                            &us_hdr                 +
                          )

   chgvar    &NbrLstE        %bin( &us_hdr    133 4 )


   if ( &NbrLstE *eq 0 )  do
      sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                   msgdta( 'No jobs found' )
      goto  Clean_up
   enddo

   chgvar    &offsetlst    ( %bin( &us_hdr    125 4 ) + 1 )
   chgvar    &szLstE         %bin( &us_hdr    137 4 )

/*                                                                  */
/*  Retrieve each list entry and increment offset...                */
/*    Count down number of list entries...                          */
/*                                                                  */

   dowhile  ( &NbrLstE *gt 0 )

      call  QUSRTVUS      ( +
                            &qusrspc                +
                            &offsetlst              +
                            &szLstE                 +
                            &us_lste                +
                          )

      chgvar &job            %sst( &us_lste    1 10 )
      chgvar &jobusr         %sst( &us_lste   11 10 )
      chgvar &jobnbr         %sst( &us_lste   21  6 )

      sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                   msgdta( +
                           'Job'            *bcat +
                           &jobnbr          *cat  +
                           '/'              *cat  +
                           &jobusr          *tcat +
                           '/'              *cat  +
                           &job             *bcat +
                           'found'                +
                         )

      chgvar &offsetlst          ( &offsetlst + &szLstE )
      chgvar &NbrLstE            ( &NbrLstE - 1 )

   enddo


Clean_up:

   dltusrspc   &usrspclib/&usrspc

   return

endpgm

Note that the parm value will be numeric characters, so it must be enclosed in quotes if you call the program from a command line or submit to batch. It sends a message, but you would probably do something else with the values. It only reports the job name — it doesn’t report the status nor anything else. If there are multiple jobs with the same number (very unlikely but possible), a message should be returned for each one. (The history log would probably only know about the latest one if it found any at all.) Finally, it uses the simpler but less efficient QUSRTVUS API rather than the QUSPTRUS API. That’s because I only have V5R3 at home (and because this coding is easy to adapt to all earlier releases).

Compile the program in batch and note the job number of the compile job. If you call the program using that number, the message should report the full job name of the compile.

If you can understand how the program works, try re-writing it in RPG or try writing it in V5R4 ILE CL and use the QUSPTRUS API. If problems appear, post a new question specific to your programming and the problem.

Tom