RE: automagic page heading routine

["Stone, Joel" <Joel.Stone@xxxxxxxxxx>]

In COBOL, I tried using the SPECIAL-NAMES.   OPEN-FEEDBACK IS OF-AREA.  

Also tried   I-O-FEEDBACK IS IO-FEEDBACK.

But I cant see the over-ride spool file name.  I would like to retrieve "FILE1", but in the OFA I can only see the original spool 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?

Thanks


OVRPRTF    FILE(HIP544PRT) SPLFNAME(FILE1)
call hip544b (&TITLE1 &TITLE2 &ShowCust)  


                        Program . . . . . . . . . . . . . . . . : HIP544B       
                        Recursion level . . . . . . . . . . . . : 1             
				Start position  . . . . . . . . . . . . : 1             
				Format  . . . . . . . . . . . . . . . . : *CHAR         
				Length  . . . . . . . . . . . . . . . . : *DCL          
                                                        
				Variable  . . . . . . . . . . . . . . . : 01  OFA-AREA  
  				Type  . . . . . . . . . . . . . . . . :   CHARACTER   
  				Length  . . . . . . . . . . . . . . . :   300         
				*...+....1....+....2....+....3....+....4....+....5    
 --------------------->	'SPHIP544PRT TPGMLIB   Q04079N010QSPL      ¬¬¬¬¬¬Q7'   
				'77375375¬¬¬¬¬¬¬¬¬¬¬¬¬¬â¬µ¬¬¬¬¬¬¬¬s¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬'   
				'¬¬¬¬¬¬¬¬¬¬¬¬¬¬ ¬*N        ¬¬¬¬¬¬¬¬)¬¬¬¬¬¬¬¬¬¬¬¬¬*N'   
				'        ¬¬¬ø¬¬¬¬¬¬¬á¬á¬á¬á¬[¬á¬á¬á¬ø¬á¬á¬á¬á¬á¬á¬á'   

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Tuesday, April 24, 2012 1:39 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: automagic page heading routine

   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_
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/apis/QSPRILSP.htm
"... 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
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/books_web/c092508687.htm#HDRFILINDA
"
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

FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++...
FMYFILE    O    F  132        PRINTER INFDS(OPNFBK)
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++...
DOPNFBK           DS
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

...
"

Regards, Chuck

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
> this?
>
> I would like it to be the spool file name.
>
> In our shop, pgm name could be PAR01B for Program Accounts
> Receivable.
>
> 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)
>  CALL PAR01B
>
> In COBOL (or anything else), how can I retrieve the spool file name
> RAR01B-C ?