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: [email protected] [mailto:[email protected]] On Behalf Of Wjhonson Sent: Monday, May 12, 2014 6:48 PM To: [email protected] 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. <[email protected]> To: U2 Users List <[email protected]> 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" <[email protected]> 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 <[email protected]> > To: U2 Users List <[email protected]> > 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 <[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://cp.mcafee.com/d/5fHCMUSyOqejhOqemhNEV7e6XCQrEFLThKCqejqdQkTXEFE > CzASzt5d-WdSrCQrEFCzBZBxwQsCN6Fe4GhTPMkxFqtokrm-cGNVsSxFqtokrm-cGNVsSe > 847QhPb_nV5BZZAQsZuVtd5ZPATTD67KmKDp55mVEVvVkffGhBrwqrhdICXCXCM0pYGjFY > jfNVJdIzM071dnoovaAVgtHzqptKDNErrjbJQ-d2V2Hsbvg57OFeDNc_7CQSOf00jr3P3x > I5-Aq83iS4QPiWq80n-E6y0JlKdfftdFFCW--6tgnb718Y > _______________________________________________ > U2-Users mailing list > [email protected] > http://cp.mcafee.com/d/k-Kr6jqb9EVd79EVp76zAsUrKrhKyC_t6WpEVdEThjvKyCy > qejqdQkTXETpKrhKyCqenSm63hOr4qAUiF7vf1i6BFRxhJrUOH7BPq6BFRxhJrUOH7BPoU > wgvh7cLZvAmnTSjhPRXBQQnTejvusouVqWtAklrCzB_BgY-F6lK1FJcSOrKrKr01DOFeDN > c_7CQSOf00s4RtxxYGjB1SKdFBSWv6xJJcKTjUQbAaJMJZ0kvaAWv4PYurjr8Y01dIfce6 > MnWhEwdbojjdbFEw1vWwq82RmUQYZQSCCrHzJY > > > _______________________________________________ > U2-Users mailing list > [email protected] > http://cp.mcafee.com/d/2DRPoQ93hJ5AQsCzAQsIzzhOesdTdEThjvKztcQsCQrEFLT > hjhd79J6WarZQrITdEThjd7bXb31EVdydis9kzLDwF3iQWMESJYplzOVJ3iQWMESJYplzO > VIsg8fEzCn-LObbXX9EVWZOWqbXD9LLecfsJteOaaJPhO_OEuvkzaT0QSOrpdTdTdw0PVk > DjUCvzPqrp7w0e2qKMM-l9OwXn6QOXtfzgSSCnrFYq5O5mUm-wafBitfyp-fdFJAu00CS7 > C73obZ8Qg6BI9FCBQQg0LZgd41qHsquuWrjjdPC62kJ0KQBUS _______________________________________________ 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
