Re: Clearing out spool files

[rob@xxxxxxxxx]

You mean like this:

                         Purge Output Queue (PRGOUTQ) 
 
Type choices, press Enter. 
 
Output queue . . . . . . . . . .                 Name 
  Library  . . . . . . . . . . .     *LIBL       Name, *LIBL
Days . . . . . . . . . . . . . .   30            0-999 


Never did finish this program, (as you can tell it refences V5R1 and I 
haven't worked on that old version for quite some time now), but here's a 
start:

      /DEFINE HSpec
      /COPY ROUTINES/QRPGLESRC,HSPEC
      /UNDEFINE HSpec


 
***************************************************************************
      * Program:      *
      *      *
      *      *
      * Modification log:      *
      * mm/dd/00 by R.Berendt, CCP    Group Dekko Services, LLC      *
      *          Created.      *
      *      *
      * Compilation instructions:      *
      *   (no special instructions this time.)      *
      *      *
 
***************************************************************************


      /DEFINE DSpec
     D*--------------------------------------
     D* Prototype for procedure: prgoutq
     D*--------------------------------------
     D prgoutq         PR
     D OutputQueue                         LIKE(ObjLib)
     D Days                           3P 0

      /COPY ROUTINES/QRPGLESRC,SRVPGMCPY

     D prgoutq         PI      *entry
     D OutputQueue                         LIKE(Obj_Lib)
     D Days                           3P 0

     D OutputQueue     ds
     D  OQName                             like(ObjName)
     D  OQLib                              like(Library)

     D CurrentDate     s               d   inz(*sys)
     D RetainDate      s               d

      /UNDEFINE DSpec

      /free
       RetainDate=CurrentDate - %days(Days);

       // Create the user space in qtemp to hold the information from the 
output queue.

       // Use QUSLSPL api to get the list of spool files for this output 
queue.
       // 
http://publib.boulder.ibm.com/html/as400/v5r1/ic2924/info/apis/QUSLSPL.htm

       // If the spool file is expired - delete it.

       *inlr=*on;
       return;
      /end-free

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin