OR you can use SYSTEM(9001) on universe....
OR you can use SYSTEM(9001) on universe....
OR you can use SYSTEM(9001) on universe....
OR you can use SYSTEM(9001) on universe....
OR you can use SYSTEM(9001) on universe....
Hmmm, thought someone said that already :-)
-----Original Message-----
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
Sent: Monday, May 12, 2014 7:19 PM
To: U2 Users List
Subject: Re: [U2] Read yourself
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/5fHCMUSyOqejhOqemhNEV7e6XCQrEFLThKCqejqdQkTXEF
>> E
>> CzASzt5d-WdSrCQrEFCzBZBxwQsCN6Fe4GhTPMkxFqtokrm-cGNVsSxFqtokrm-cGNVsS
>> e
>> 847QhPb_nV5BZZAQsZuVtd5ZPATTD67KmKDp55mVEVvVkffGhBrwqrhdICXCXCM0pYGjF
>> Y
>> jfNVJdIzM071dnoovaAVgtHzqptKDNErrjbJQ-d2V2Hsbvg57OFeDNc_7CQSOf00jr3P3
>> x I5-Aq83iS4QPiWq80n-E6y0JlKdfftdFFCW--6tgnb718Y
>> _______________________________________________
>> U2-Users mailing list
>> U2-Users@listserver.u2ug.org
>> http://cp.mcafee.com/d/k-Kr6jqb9EVd79EVp76zAsUrKrhKyC_t6WpEVdEThjvKyC
>> y
>> qejqdQkTXETpKrhKyCqenSm63hOr4qAUiF7vf1i6BFRxhJrUOH7BPq6BFRxhJrUOH7BPo
>> U
>> wgvh7cLZvAmnTSjhPRXBQQnTejvusouVqWtAklrCzB_BgY-F6lK1FJcSOrKrKr01DOFeD
>> N
>> c_7CQSOf00s4RtxxYGjB1SKdFBSWv6xJJcKTjUQbAaJMJZ0kvaAWv4PYurjr8Y01dIfce
>> 6 MnWhEwdbojjdbFEw1vWwq82RmUQYZQSCCrHzJY
>>
>>
>> _______________________________________________
>> U2-Users mailing list
>> U2-Users@listserver.u2ug.org
>> http://cp.mcafee.com/d/2DRPoQ93hJ5AQsCzAQsIzzhOesdTdEThjvKztcQsCQrEFL
>> T
>> hjhd79J6WarZQrITdEThjd7bXb31EVdydis9kzLDwF3iQWMESJYplzOVJ3iQWMESJYplz
>> O
>> VIsg8fEzCn-LObbXX9EVWZOWqbXD9LLecfsJteOaaJPhO_OEuvkzaT0QSOrpdTdTdw0PV
>> k
>> DjUCvzPqrp7w0e2qKMM-l9OwXn6QOXtfzgSSCnrFYq5O5mUm-wafBitfyp-fdFJAu00CS
>> 7 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
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
