Re: Retrieving Spool File Name in RPG

["Arlene M Soderlund" <Arlene_M_Soderlund/NFCNA.COM@xxxxxxxxx>]

Now, I realise I could use one of the Spool file API's retrieve a list of
the spool files for the job and search for a spool file with a matching
spool file number but this seums an unnecessary amount of work to go to. I
would have thought that the information I want is relatively easily
obtained from somewhere within the RPG.

Does anyone have any thoughts on how I would accomplish this ?

Regards
Evan Harris

Either use QCMDEXC or a bound CLLE.


Printer File is not Opened  it is under USER control

Define an array at the Bottom of your program

Move your User DATA in the array


PRTOPN    IFEQ YES
          CLOSEPRINTER
          MOVE NO        PRTOPN
          ENDIF

CALL 'QCMDEXC' CHGPRT

PRTOPN    IFEQ NO
          OPEN PRINTER
          MOVE YES       PRTOPN
          ENDIF




OVRPRTF  FILE(----------)  TOFILE(----------)  OUTQ(----------)
USRDTA(----------) SECURE(*YES)



ILE  even easier   ........

Printer is Open is still controlled in RPG

Bind in a CLLE  that does the ovrprtf with a callb

Pass in your Parmeters, for file, tofile outq, & usrdta and anything else.















+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---