Re: Retrieving Spool File Name in RPG

[Rob Berendt <rob@xxxxxxxxx>]

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