Re: Checking for Empty Outq

["Al Barsa" <barsa@xxxxxxxxxxxxxxxxxxx>]

The TAA Tool Retrieve Output Queue Attributes (RTVOUTQA) will easily do the
job.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com






                      "Simon Coulter"
                      <shc@flybynight.co        To:       
midrange-l@midrange.com
                      m.au>                     cc:
                      Sent by:                  Subject:  Re: Checking for 
Empty  Outq
                      midrange-l-admin@m
                      idrange.com


                      07/20/2002 01:34
                      AM
                      Please respond to
                      midrange-l







Hello Steve,

You wrote:
>Is there an easy way to check if a specific OUTQ is empty?

Easy is a relative term.  The Retrieve Output Queue Information (QSPROUTQ)
API will give you a count of the number of files on the *OUTQ in position
93 of the OUTQ0100 format.  It is a binary field so use %BIN to convert it
to decimal -- or simply check it for x'00000000'.

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   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.