Re: Retrieving Spool File Name in RPG

[Anton Gombkötö <Gombkoetoe@xxxxxxxxxx>]

just use binder directory QC2LE when creating the program.

(In BNDDIR QC2LE, the first service program QC2SYS exports procedure 
'system' which is quite the same as a QCMDEXC)

0.02 Euro

Anton Gombkötö


At 21:35 24.05.00, you wrote:
>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
>+---

Mit freundlichen Grüssen / Best regards

Anton Gombkötö
mailto:Gombkoetoe@ASsoft.com

AS Software GmbH
http://www.assoft.com

Jedleseer Strasse 3
A-1210  Wien

Tel: +43 1 278 15 01-0
Fax:+43 1 278 15 01-22

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