You can also use the program stack (UD - SYSTEM(49), UV - SYSTEM(9001),
D3 - SYSTEM(33)). This gives not only the program running but the
path. That ought to give needed information to both open the file and
read the program source code.
HTH,
Bill
------------------------------------------------------------------------
----- Original Message -----
*From:* d...@pickpro.com
*To:* U2 Users List <u2-users@listserver.u2ug.org>
*Date:* 5/12/2014 4:55 PM
*Subject:* Re: [U2] Read yourself
We always have a variable "PGID" defined at the top of the program.
This at least HELPS identify the source code.
Most of our programs have the ability to edit the code while you are in the program via
some common "hot-keys"
built into our core system. (controlled by security)
There is also a hot-key to view source in a custom program, outside the editor.
We use 'PGID' to identify the name of the current program.
In universe, you may also look at the results of SYSTEM(9001) to get the
current execution stack.
If your object file is type-19, and long-names are ON - it's easy to parse.
-----Original Message-----
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Monday, May 12, 2014 6:48 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Read yourself
I understand how one could potentially do it.
I was more interested to see if anyone had already done it.
Cat pointers only work for catalogued entries by the way
-----Original Message-----
From: Israel, John R. <johnisr...@daytonsuperior.com>
To: U2 Users List <u2-users@listserver.u2ug.org>
Sent: Mon, May 12, 2014 4:41 pm
Subject: Re: [U2] Read yourself
There are @ commands that can get this stuff. Or read the cat pointer.
John Israel
Sent from my iPhone
On May 12, 2014, at 7:39 PM, "Wjhonson" <wjhon...@aol.com> wrote:
The program does not inherently know that it's in a file called "BP".
And it does not know it's own (value of) PROG.ID unless it can find it
out
somehow.
-----Original Message-----
From: Adrian Overs <ove...@citysoft.com.au>
To: U2 Users List <u2-users@listserver.u2ug.org>
Sent: Mon, May 12, 2014 4:33 pm
Subject: Re: [U2] Read yourself
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 <wjhon...@aol.com> 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
U2-Users@listserver.u2ug.org
http://cp.mcafee.com/d/5fHCMUSyOqejhOqemhNEV7e6XCQrEFLThKCqejqdQkTXEFE
CzASzt5d-WdSrCQrEFCzBZBxwQsCN6Fe4GhTPMkxFqtokrm-cGNVsSxFqtokrm-cGNVsSe
847QhPb_nV5BZZAQsZuVtd5ZPATTD67KmKDp55mVEVvVkffGhBrwqrhdICXCXCM0pYGjFY
jfNVJdIzM071dnoovaAVgtHzqptKDNErrjbJQ-d2V2Hsbvg57OFeDNc_7CQSOf00jr3P3x
I5-Aq83iS4QPiWq80n-E6y0JlKdfftdFFCW--6tgnb718Y
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://cp.mcafee.com/d/k-Kr6jqb9EVd79EVp76zAsUrKrhKyC_t6WpEVdEThjvKyCy
qejqdQkTXETpKrhKyCqenSm63hOr4qAUiF7vf1i6BFRxhJrUOH7BPq6BFRxhJrUOH7BPoU
wgvh7cLZvAmnTSjhPRXBQQnTejvusouVqWtAklrCzB_BgY-F6lK1FJcSOrKrKr01DOFeDN
c_7CQSOf00s4RtxxYGjB1SKdFBSWv6xJJcKTjUQbAaJMJZ0kvaAWv4PYurjr8Y01dIfce6
MnWhEwdbojjdbFEw1vWwq82RmUQYZQSCCrHzJY
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://cp.mcafee.com/d/2DRPoQ93hJ5AQsCzAQsIzzhOesdTdEThjvKztcQsCQrEFLT
hjhd79J6WarZQrITdEThjd7bXb31EVdydis9kzLDwF3iQWMESJYplzOVJ3iQWMESJYplzO
VIsg8fEzCn-LObbXX9EVWZOWqbXD9LLecfsJteOaaJPhO_OEuvkzaT0QSOrpdTdTdw0PVk
DjUCvzPqrp7w0e2qKMM-l9OwXn6QOXtfzgSSCnrFYq5O5mUm-wafBitfyp-fdFJAu00CS7
C73obZ8Qg6BI9FCBQQg0LZgd41qHsquuWrjjdPC62kJ0KQBUS
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
