Re: [U2] Read yourself

Hi Bernard, I did not know about the library search feature having always believed (probably from my Reality days) that you had to catalog a subroutines in order to call it. Obviously cataloguing is required if the SR is in a different library but I never gave it a second thought. Curiosity got the better of me and so I tried it and yes it does work as you described.
Cheers and thanks
Peter




Peter Cheney
Ultracs Developer
t 07 3017 8837 | f 07 3002 8400
e [email protected]
w firstmac.com.au


-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Bernard Lubin
Sent: Tuesday, 13 May 2014 11:44
To: U2 Users List
Subject: Re: [U2] Read yourself

You will need to do a system(9001) to get the program stack This will tell you the subroutine that is being called.

To get the library, first check the VOC for the external subroutine.  If there is no VOC pointer for that item, check the VOC pointer for the calling program.

As far as I remember, when calling a subroutine, UniVerse first checks the VOC for the program name to determine the program library where the program resides..  If the VOC entry is not present, it uses the library of the calling program.  I do not know how far back the stack it will go.. (Hopefully all the way to the first program)

Hope that helps.

Rgds


Bernard Lubin
System Group Developer

549 Blackburn Rd  Mount Waverley
VIC 3149 Australia
P: +61 3 9535 2222
F: +61 3 9535 2274
E: [email protected]
W: pentanasolutions.com

Pentana Solutions accepts no liability for the content of this email, or for the consequences of any actions taken on the basis of the information provided, unless that information is subsequently confirmed in  writing. If you are not the intended recipient, you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited.

-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Wjhonson
Sent: Tuesday, 13 May 2014 11:29 AM
To: [email protected]
Subject: Re: [U2] Read yourself


I just ran a test where a main program called an external subroutine In the external subroutine I had it display system(9001)

The subroutine name was listed in that display as was the main routine which had called it




-----Original Message-----
From: David Wasylenko <[email protected]>
To: U2 Users List <[email protected]>
Sent: Mon, May 12, 2014 6:09 pm
Subject: Re: [U2] Read yourself


I think the point has been lost.
The person is requesting the name of the CURRENT ROUTINE....
If that is A SUBROUTINE - there is no @ that I know of that returns the name of the currently executing routine.
The fact the CALLING routine knows the name is #1, is of no value to this request and #2, lends nothing to any routine being "self-aware".

-----Original Message-----
From: [email protected] [mailto:[email protected]]
On Behalf Of Adrian Overs
Sent: Monday, May 12, 2014 7:58 PM
To: U2 Users List
Subject: Re: [U2] Read yourself

I totally agree with and endorse your programming standards David.
However if the program is calling another subroutine it should know the name of that subroutine or be able to derive it if it is called with an @.

Sent from my iPad

On 13 May 2014, at 10:45 am, David Wasylenko <[email protected]> wrote:

IT'S JUST NOT TRUE EVER.  @sentence cannot work.

The stub program that launched an initial program will be in the @sentence...
You could be 3 calls deep into external subroutines - there is nothing in @sentence re: the call-stack.
Our shop writes *very* few stub programs - most are subroutines called by other subroutines.

Instead:
Add
   PGID="programName"
Or even
   PGID="filename  ProgramName"
To the top of the program - quick and easy.
Use of system routines such as SYSTEM(9001) is usually overkill.

Your program should be "aware" of it's name - if no other reasons than:
*  display on the screen to help users identify "where" their problem came from
*  print on reports
*  add to log-file entries
+ and of course, to answer the original question:  "how can I read the
+ current
program source"

A well-designed system/program should hard-code as little as possible as well.
What better key to use for a configuration record than the program name itself.


-----Original Message-----
From: [email protected] [mailto:[email protected]]
On Behalf Of Adrian Overs
Sent: Monday, May 12, 2014 7:39 PM
To: U2 Users List
Subject: Re: [U2] Read yourself

That's true - if the subroutines are catalogued with a noxref clause you're screwed.

Sent from my iPad

On 13 May 2014, at 10:19 am, David Wasylenko <[email protected]> wrote:

Wont work --- if you use any external subroutines.

-----Original Message-----
From: [email protected] [mailto:[email protected]]
On Behalf Of Adrian Overs
Sent: Monday, May 12, 2014 7:18 PM
To: U2 Users List
Subject: Re: [U2] Read yourself

You can get the Program name by parsing @SENTANCE You can then read the Verb from the VOC and act on that or if the item is globally catalogued then read the last line from your catdir item
> From unix level use strings $catpath/$item | tail -1 and then process that.
HTH

Sent from my iPad

On 13 May 2014, at 9:33 am, Adrian Overs <[email protected]> wrote:

What problem are you trying to solve by doing so?
After all it's not rocket science (pardon the pun) to OPEN "BP" TO BP.FV THEN READ R.PROG FROM BP.FV, PROG.ID ELSE ... Whatever END

Sent from my iPad

On 13 May 2014, at 6:54 am, Wjhonson <[email protected]> wrote:


Does anyone have a BASIC program, that will open it's own code in a variable ?
So something like this

GOSUB RETURN.A.LOCAL.FILE.AND.KEY.FOR.ME

READ THIS.PROGRAM FROM F.LOCALFILENAME, K.PROGRAMKEY ....

the program reads itself.

Does anyone have a program like that?


_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users


_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
--
Message  protected by DealerGuard: e-mail anti-virus, anti-spam and content filtering.
http://www.pentanasolutions.com

Click here to report this message as spam:
https://login.mailguard.com.au/report/1JzqQrpaTT/ecXSxmTghXnft2QLOd8CN/6.229

_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users

 -------------------------------------------------------------------------------
Note: 
This email (inc all attachments) is for the use of the intended recipient(s) only.
Privileged or confidential information may be contained in this communication. If you have received this email in error, please notify the sender immediately and then delete all copies of this message from your computer network. If you are not the intended recipient, you must not keep, use, disclose, copy or distribute this email without the author's prior permission. If you are the intended recipient and you do not wish to receive similar electronic messages from us in future, then please respond to the sender to this effect. 
We have taken precautions to minimise the risk of transmitting software viruses, but advise you to carry out your own virus checks on this email and its attachments. We do not accept liability for any loss or damage caused by software viruses and do not represent that this transmission is free from viruses or other defects. 
Firstmac Limited (ABN 59 094 145 963) (AFSL 290600) 
 -------------------------------------------------------------------------------
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users