RE: RUNQRY Results -- MIDRANGE-L

Mike,

Herman originally posted this on the iSeries Network in one of
the forums. 

  /*  Program : LASTSPLNBR                                      */
  /*  System  : iSeries 400                                     */
  /*  Author :  Herman Van der Staey     06/08/2002             */
  /*                                                            */
  /*  Retrieve the last spool file number used in a job         */
  /*  for a specific spoolfile.                                 */
  /*                                                            */
  /*  The first parameter is INPUT  (The name of the spool-     */
  /*  file, like "QSYSPRT".                                     */
  /*  The second parameter returns the last spooled file        */
  /*  number used (in decimal).                                 */


 LASTSPLNBR: PGM        PARM(&SPLFILE &SPLNBRDEC)

             /* spool file name */
             DCL        VAR(&SPLFILE)     TYPE(*CHAR) LEN(10)
             /* spool number in decimal  */
             DCL        VAR(&SPLNBRDEC)   TYPE(*DEC)  LEN(6 0)
             /* spool number in char  */
             DCL        VAR(&SPLNBRCHR)   TYPE(*CHAR) LEN(6)
             /* spool number in binary  */
             DCL        VAR(&SPLNBRBIN)   TYPE(*CHAR) LEN(4)

             DCL        VAR(&RECEIVER)    TYPE(*CHAR) LEN(5000)
             DCL        VAR(&RCVLEN)      TYPE(*CHAR) LEN(4)

             CHGVAR     VAR(%BIN(&RCVLEN)) VALUE(5000)

             CALL       PGM(QUSRSPLA) PARM(&RECEIVER &RCVLEN +
                          'SPLA0100' '*' ' ' ' ' &SPLFILE X'FFFFFFFF')

             CHGVAR     VAR(&SPLNBRBIN) VALUE(%SST(&RECEIVER 77 4))
             CHGVAR     VAR(&SPLNBRDEC) VALUE(%BIN(&SPLNBRBIN))
             CHGVAR     VAR(&SPLNBRCHR) VALUE(&SPLNBRDEC)

             SNDPGMMSG  MSG('The last spool number for file ' *CAT +
                          &SPLFILE *BCAT 'is ' *CAT &SPLNBRCHR)
 END:        ENDPGM

Terry

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx 
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Condon, Mike
> Sent: Monday, August 08, 2005 12:44 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: RUNQRY Results
> 
> 
> Do you have the syntax for using QUSRSPLA in a CL program? 
> 
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
> Sent: Friday, August 05, 2005 10:27 PM
> To: Midrange Systems Technical Discussion
> Subject: Re: RUNQRY Results
> 
> 
> 
> On 06/08/2005, at 7:40 AM, Condon, Mike wrote:
> 
> > No, I'm going to a spool file. Is there an API call to find out the 
> > size
> > of a spool file?
> 
> QUSRSPLA will give you size information (number of pages, number of 
> records, data stream size, file size (and multiplier))
> 
> Note that Query will always print a cover page plus 1 data 
> page. If the 
> query retrieved no data then the second page will have text 
> saying "No 
> records in query report." (from QRY1906 in QQRYMSG).
> 
> You'd probably be better using the other spooled file APIs to 
> check for 
> this line if the page count is 2  or less.
> 
> There doesn't seem to be any way to force this message to the job log 
> when spooling the report.
> 
> Regards,
> Simon Coulter.
> --------------------------------------------------------------------
>     FlyByNight Software         AS/400 Technical Specialists
> 
    http://www.flybynight.com.au/
    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
    Fax:   +61 3 9419 0175                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------