Re[2]: Retrieving Spool File Name in RPG

[eric.delong@xxxxxxxxxxxxxxxxx]

     System is a C runtime function. I use it all the time. 
     
     H DATFMT(*ISO) BNDDIR('QC2LE') DFTACTGRP(*NO)  
     
      * Prototyped Procedures / Functions ............................
     D ErrorCPF        S              7    import('_EXCP_MSGID')      
     D ErrorFlag       S             10i 0                            
                                                                      
     D System          PR            10i 0 extproc('system') 
     D   Cmd                           *   value options(*string)
     
     C                   EVAL      ErrorFlag = System('CLRPFM + 
     C                             FILE(PHPARV4)')              
     
     
     eric.delong@pmsi-services.com
       
     ______________________________ Reply Separator 
     _________________________________
     Subject: Re: Retrieving Spool File Name in RPG 
     Author:  <RPG400-L@midrange.com> at INET_WACO
     Date:    5/24/00 2:35 PM
     
     
     system must be a wrapper someone at your company wrote.  I do a 
     WRKOBJ SYSTEM and do not find it.
     
     
     
     
     
     pcunnane@learningco.com on 05/24/2000 01:44:40 PM Please respond to 
     RPG400-L@midrange.com@Internet To:        
     RPG400-L@midrange.com@Internet
cc:         
Fax to:        
Subject:        Re: Retrieving Spool File Name in RPG
     
[While tossing about possible methods to set the USRDTA value of the spool 
files, the programmers responsible for the application programming stated 
that they did not feel it was productive to create a CL for every RPG that 
would need to set the USRDTA value and wanted to accomplish this from 
within the RPG program. This would avoid coding lots of CL's that merely 
passed parameter strings after doing an OVRPRTF. Perhaps this is a valid 
objection, perhaps it isn't. I'm not really able to influence their 
preference, in any event I figured that what they wanted to do ought to be 
easily accomplished from within the RPG with a bit of thought.]
     
     Maybe I'm missing something here, but couldn't you do the override 
     within the RPG program?  Set the printer file to USROPN, use the 
     system() API (or QCMDEXC) to override the printer file, and then OPEN 
     the file?
     
       Fprinter   o    e             printer usropn                  
       F                                                             
       D system          pr            10i 0 extproc('system')       
       D  cmd                            *   const options(*string)  
       D                                                             
       D UserData        s             10a                           
       D                                                             
       C                   callp     system('ovrprtf printer usrdta(' 
       C                              + UserData + ')')              
       C                                                             
       C                   open      printer                         
     
     Maybe I've misinterpreted your requirement.
     
     -- 
     Paul
+---
| 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 
+---
     
     
+---
| 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 
+---
     


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