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 recommendation]:
WebSphere Development Studio: ILE RPG Language Reference
File Information Data Structure
A file information data structure (INFDS) can be defined for each file
to make file exception/error and file feedback information available to
the program. The file information data structure, which must be unique
for each file, must be defined in the main source section. The same
INFDS is used by all procedures using the files.
The INFDS contains the following feedback information:
* File Feedback (length is 80)
* Open Feedback (length is 160)
* Input/Output Feedback (length is 126)
* Device Specific Feedback (length is variable)
* Get Attributes Feedback (length is variable)
Figure 27. Example of Coding an INFDS with Open Feedback Information
FMYFILE O F 132 PRINTER INFDS(OPNFBK)
D ODP_TYPE 81 82
D FILE_NAME 83 92
D LIBRARY 93 102
D SPOOL_FILE 103 112
D* Spool file name
D SPOOL_LIB 113 122
D* Spool file lib
D SPOOL_NUM 123 124I 0
D* Spool file num
On 24 Apr 2012 07:24, Stone, Joel wrote:
I created an automagic page heading routine to center the title, grab
the date/time, increment page#, etc.
The last piece is the report-id. Can someone suggest how to get
I would like it to be the spool file name.
In our shop, pgm name could be PAR01B for Program Accounts
Spool file name could be RAR01B (1st R for report of course).
Can I retrieve the spool file name from a COBOL pgm? This spl file
could have been over-ridden. I would like the spool file name that
is currently open.
For example, pgm PAR01B could be used to create 3 different reports -
RAR01B-A; RAR01B-B, and RAR01B-C.
The CL would look like:
OVRPRTF FILE(PRNTR) SPLFNAME(RAR01B-C)
In COBOL (or anything else), how can I retrieve the spool file name