Re: Retrieving Spool File Name in RPG

System is a C library function and the documentation is found in the C
library books.

______________________________________________
Eric N. Wilson
President
Doulos Software & Computer Services
2913 N Alder St.
Tacoma WA 98407


----- Original Message -----
From: "Rob Berendt" <rob@dekko.com>
To: <RPG400-L@midrange.com>
Sent: Wednesday, May 24, 2000 12:35 PM
Subject: Re: Retrieving Spool File Name in RPG


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