system(9001) is doing something odd One of the chars in the catdir name is an asterisk and the system(9001) returns that as %A instead of * -----Original Message----- From: Bill Haskett <wphask...@advantos.net> To: U2 Users List <u2-users@listserver.u2ug.org> Sent: Mon, May 12, 2014 5:19 pm 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/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 _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users