Why is "going through all the source to be avoided"? Whenever we make a data
set change, we scan all source for references to the sets involved to asses
the effort and impact. We have a job builder that can scan Basic/V, BBX or
ascii source for string occurrences, and then we just check the stdlist
result spool file.....
jp
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Tracy Pierce
Sent: Sunday, 8 January 2006 7:12 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] getprocname?
a calls b calls c calls d
> The first thing I would do is to have every program / subroutine /
> function call / intrinsic set with an internal name (may be
> the same as
> external).
>
> 01 PROGRAM-ID PIC X(16) VALUE "PROGNAME".
this would be lovely and in fact is the intent, but we need to fill
"PROGNAME" from an intrinsic call - going through all the source is to
be avoided. we're willing to change a couple of globally-used
copybooks, to include
01 MY-PROGRAM-ID PIC X(16).
call intrinsic 'GETMYNAME' using MY-PIN or whatever, MY-PROGRAM-ID
call 'd' using MY-PROGRAM-ID, otherstuff.
so that d can see who rang.
If Cobol offered MOVE PROGRAM-ID ..., wouldn't need to locate the
mystery intrinsic.
> -----Original Message-----
> From: Olav Kappert [mailto:[log in to unmask]]
> Sent: Friday, January 06, 2006 5:59 PM
> To: Tracy Pierce
> Cc: [log in to unmask]
> Subject: Re: getprocname?
>
> Tracy:
>
> The first thing I would do is to have every program / subroutine /
> function call / intrinsic set with an internal name (may be
> the same as
> external).
>
> 01 PROGRAM-ID PIC X(16) VALUE "PROGNAME".
>
> Then when calling a subroutine, pass the variable PROGRAM-ID
> as one of
> the parameters or part of the linkage section.
>
> If you want to get fancy, create an addition variable
> 01 PROGRAM-HISTORY OCCURS 10 TIMES.
> 02 PROGRAM-HISTORY-TBL PIC X(16).
>
> Then when calling an other process, pass only the PROGRAM-HISTORY
> variable. The program can determine who made the call simply by
> scanning the passed variable
>
> The first program would move the PROGRAM-ID to PROGRAM-HISTORY.
>
> Each subsequent program, subprogram and etc would add its
> PROGRAM-ID to
> the first non blank entry from the table PROGRAM-HISTORY-TBL.
>
> Hope this helps.
> Olav.
>
> Tracy Pierce wrote:
>
> >main pgm a calls xl-rez subpgm b calls c calls d.
> >
> >d needs to know who called. I understand I can't get the
> caller name,
> >so need to get my own name and pass that down. how?
> >
> >posted on behalf of [log in to unmask]
> >
> >* 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
