RE: Override printer file in RPG IV?

[Jon Erickson <jerickson@xxxxxxx>]

Title: RE: Override printer file in RPG IV?

I do similar QCMDEXC PR calls.

d Qcmdexc         pr                  Extpgm('QCMDEXC')                
d  Cmd                                Like(Qcmd) Options(*Varsize) Const
d  CmdLen                       15p 5 Const                            
d  CmdOpt                        3    Options(*NoPass) Const           

d Qcmd            s           3000
d OvrPrtf         c                   'OVRPRTF FILE(QSYSPRT) PAGESIZE(*N 1-
d                                     98) CPI(15) MAXRCDS(*NOMAX) OVRSCOPE-
d                                     (*JOB) SHARE(*YES)'                 

c                   Eval      Qcmd = OvrPrtf                  
c                   CallP     Qcmdexc(Qcmd : %Len(%Trim(Qcmd)))

c                   If        Not %Open(Qsysprt)
c                   Open      Qsysprt          
c                   EndIf                      

c                   Close     Qsysprt                               
                                                                    
c                   Eval      Qcmd = 'DLTOVR FILE(QSYSPRT) LVL(*JOB)'
c                   CallP     Qcmdexc(Qcmd : %Len(%Trim(Qcmd)))     

=================

Of course you could change the TOFILE value of the OVRPRTF constant.

HTH,
> Regards,
> Jon A. Erickson
> Sr. Programmer Analyst
> 800.COM Inc.
> 1516 NW Thurman St
> Portland, OR  97209-2517
>
> Direct: 503.944.3613
> Fax: 503.944.3690
> Web: http://800.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
+---