If I'm understanding your question correctly, then all you need do is define an area in the linkage-section, and populate that area in the subprogram with the subprogram's name (of course, you could also redefine an area in the linkage-section, too).


HTH,


Ray Shahan

> -----Original Message-----
> From: HP-3000 Systems Discussion [SMTP:[log in to unmask]] On Behalf Of Brian Donaldson
> Sent: Sunday, January 16, 2005 5:50 PM
> 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 e-mail message has been scanned for Viruses and Content and cleared 
> by School Specialty's email filtering solution.

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