I figured out a solution.
Not exactly the solution I wanted, but a solution:

1) Change the sub to a mainline
2) Have the original mainline run the report program (now a mainline) via
   the COMMAND intrinsic.

It works.

Thanks to all who wrote to me with their suggestions.

Much appreciated,
Brian.

On Mon, 17 Jan 2005 11:12:36 -0000, Tony Summers
<[log in to unmask]> wrote:

>What we do is replace the program-Id statement with a macro and then use
>the macro anywhere in the program:
>
>  IDENTIFICATION DIVISION.
>$CONTROL SUBPROGRAM
>*PROGRAM-ID.  M4SA-S-27-29.
>$DEFINE %PROGID="M4SA-S-27-29"#
> PROGRAM-ID. %PROGID.
>
><etc>
>
>     MOVE %PROGID                TO FA11-PROGRAM-NAME.
>     MOVE TIME-OF-DAY            TO FA11-TIMESTAMP.
>
>
>
>-----Original Message-----
>From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
>Behalf Of Brian Donaldson
>Sent: 16 January 2005 23:50
>To: [log in to unmask]
>Subject: [HP3000-L] Cobol/MPEiX Intrinsic Question
>
>Scenario:
>
>Cobol mainline calls Cobol subroutine which produces a report.
>
>Program name to be displayed on report should be that of the subroutine,
>not the mainline.
>
>I call the intrinsic "HPMYPROGRAM" which returns the name of the
>mainline not the subroutine.
>
>Other than hardcoding the subroutine name in the source, how can I get
>the name of the subroutine using intrinsics or Cobol functions etc. ?
>
>TIA,
>Brian Donaldson.
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>______________________________________________________________________
>This email has been scanned by the MessageLabs Email Security System.
>For more information please visit http://www.messagelabs.com/email
>______________________________________________________________________
>
>
>
>
>The contents of this email are confidential to the intended recipient
>and may not be disclosed. Although it is believed that this email and
>any attachments are virus free, it is the responsibility of the recipient
to confirm this.
>
>Smith & Williamson Corporate Finance Limited - A member of M&A
>International Inc. http://www.mergers.net Registered in England No.
>4533970. Authorised and regulated by the Financial Services Authority
>Smith & Williamson Investment Management Limited, Registered No. 976145.
Authorised and regulated by the Financial Services Authority.
>Smith & Williamson Pension Consultancy Limited - Independent
>Intermediary. Registered No. 3133226. Authorised and regulated by the
>Financial Services Authority.
>Smith & Williamson Fund Administration Limited, Registered No. 1934644.
Authorised and regulated by the Financial Services Authority.
>Smith & Williamson Limited - A member of Nexia International.
>Registered in England No. 4534022. Regulated by the Institute of
>Chartered Accountants in England & Wales for a range of investment
>business activities.
>
>Registered Office: No 1 Riding House Street, London W1A 3AS
>Telephone: 020 7637 5377 http://www.smith.williamson.co.uk
>
>Nexia Audit Limited - A member of Nexia International. Registered in
>England No. 4469576. Registered to carry on audit work and regulated by
the Institute of Chartered Accountants in England & Wales for a range of
investment business activities.
>
>Registered Office: No 1 Riding House Street, London W1A 3AS
>Telephone: 020 7637 5377 http://www.nexiaaudit.co.uk
>
>NCL Investments Limited, Registered No. 1913794.
>Member of the London Stock Exchange authorised and regulated by the
Financial Services Authority.
>
>Registered Office: Bartlett House, 9-12 Basinghall Street, London  EC2V 5NS
>Telephone: 020 7600 2801
>
>
>______________________________________________________________________
>This email has been scanned by the MessageLabs Email Security System.
>For more information please visit http://www.messagelabs.com/email
>______________________________________________________________________
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *