RE: Override printer file in RPG IV?

["Westdorp, Tom" <tom.westdorp@xxxxxxxxxxxxxxxxxx>]

Something like the following should work.  PRINTFILE is just a generic sub
for my value and the string passed to the system procedure can be anything
you need.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - 

H BndDir('QC2LE') DftActGrp(*NO) 

FPRINTFILE O    E             Printer UsrOpn   

 * prototyped call to execute a system command               
D System          PR            10i 0 ExtProc('system')      
D   Cmd                           *   Value Options(*string) 

D ErrorFlag       S             10i 0  
                                                                      
C                   If        NOT %open(PRINTFILE)

C                   Eval      ErrorFlag = System('OVRPRTF FILE(PRINTFILE) +

C                                    PAGESIZE(' + %char(LENGSR) + ' 80) +

C                                    OVRFLW(' + %char(OVFLNZ) + ') LPI(6) +

C                                    CPI(10) FORMTYPE(whatever)')

C                   Open      PRINTFILE

C                   EndIF
NOT %open(PRINTFILE)  
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - 

HTH

Tom Westdorp
AS/400 Senior Programmer/Analyst
IBM Certified Specialist - RPG IV Programmer
IBM Certified Specialist - RPG IV Developer
Internal Telephone #  04-6859
Voice:  (702) 221-6859
Fax:    (702) 221-6881
tom.westdorp@stationcasinos.com <mailto:tom.westdorp@stationcasinos.com>

 
 


-----Original Message-----
From: Jim Langston [mailto:jlangston@conexfreight.com]
Sent: Monday, July 10, 2000 9:24 AM
To: RPG400-L@midrange.com
Subject: Override printer file in RPG IV?


I have an aging report I am rewriting from RPG III to RPG IV.  One of the
files I am opening is a program described printer file.  I call this file
AGINGRPT
so the file name makes sense when the users look in their spool files.  But,
we don't
have an actual printer file called that, I am over riding to a printer file
called TY2K/PRINTER.

Is there a way I can do this in RPG IV so I don't have to wrap this in a CL?

Regards,

Jim Langston

+---
| 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
+---

Thomas J Westdorp.vcf