RE: automagic page heading routine

See the copybook I sent you offline...

Terry

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Tuesday, April 24, 2012 10:25 AM
To: 'Midrange Systems Technical Discussion'
Subject: automagic page heading routine

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 ?

Thanks!



______________________________________________________________________
This outbound email has been scanned for all viruses by the
MessageLabs Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
--
This is the Midrange Systems Technical Discussion
(MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information that may be confidential, protected by applicable legal privileges, or constitute non-public information. It is intended to be conveyed only to the designated recipient(s). If you are not an intended recipient of this message, please notify the sender by replying to this message and then delete it from your system. Use, dissemination, distribution or reproduction of this message by unintended recipients is
not authorized and may be unlawful.