In COBOL, I tried using the SPECIAL-NAMES. OPEN-FEEDBACK IS OF-AREA.
Also tried I-O-FEEDBACK IS IO-FEEDBACK.
But I can't see the override spool file name. I would like to
retrieve "FILE1", but in the OFA I can only see the original
spool <ed: printer> file name HIP544PRT.
I am guessing that RPG and COBOL's feedback area contains similar
stuff, which doesn't include the real file name "FILE1" (the one I
see with WRKSPLF).
Any ideas? Is API the only solution? Or would that only return the
original spool file name and not the over-ridden name?
OVRPRTF FILE(HIP544PRT) SPLFNAME(FILE1)
call hip544b (&TITLE1 &TITLE2 &ShowCust)
<<SNIP>> Variable . . . . . . . . . : 01 OFA-AREA
Type . . . . . . . . . . . . . . . . : CHARACTER
Length . . . . . . . . . . . . . . . : 300
---> 'SPHIP544PRT TPGMLIB Q04079N010QSPL ¬¬¬¬¬¬Q7'
CRPence on Tuesday, April 24, 2012 1:39 PM wrote:
If the [device specific] "Open Feedback" is not available, or the
spool file name is not available via an INFDS, then any [HLL] as
report generator could, after the open of the printer file, use the
following API to get the Spool File Name [and spool file number].
_i Retrieve Identity of Last Spooled File Created (QSPRILSP) API i_
"... The Retrieve Identity of Last Spooled File Created (QSPRILSP)
API returns the complete spooled file identity of the last spooled
file created for the current job or thread. ..."
If the program PAR01B is RPG, and that program wants to know what
the SPLFNAME() used for the printer file opened, then the
following would appear to describe where the data is [albeit I can
make no sense of the "spool library" and AFaIK the 2-byte spool
file number is deprecated with the aforementioned API as