[U2] A trail of bread crumbs
Perry, Thanks! That's exactly what I needed at this point, because I created a program to do the same thing in Unidata and just wasn't sure what the structure of that system variable output was in Universe. Now I have it! Thanks! (and to everyone else who contributed) The coolest thing about this -- I'm using it in a file trigger so I can trace exactly where the write that launched the trigger occurred. On Unidata it includes the actual line number. Sweet! Susan Date: Tue, 13 Feb 2007 12:46:32 -0500 From: "Perry Taylor" <[EMAIL PROTECTED]> Subject: RE: [U2] A trail of bread crumbs FUNCTION CALLSTACK ! * RETURN ATTRIBUTE-DELMITED CALLSTACK * * 07/08/2004 * PERRY TAYLOR ! * FORM THE STACK * CALLSTK = DELETE(SYSTEM(9001), 1) FOR AMC = DCOUNT(CALLSTK, @AM) TO 1 STEP -1 IF LEN(CALLSTK) THEN FILESPEC = CALLSTK CALLSTK = '' FOR NC = LEN(FILESPEC) TO 1 STEP -1 CH = FILESPEC[NC, 1] IF CH = '/' OR CH = '\' THEN EXIT CALLSTK = CH: CALLSTK NEXT NC END ELSE CALLSTK = DELETE(CALLSTK, AMC) END NEXT AMC RETURN(CALLSTK) Is that what you were looking for, Gretel? Perry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] A trail of bread crumbs
System(33) in D3. From: dsig > sure wish we could get that kind of info from D3 .. don't think > it ever knows where it is We won't tell. Get more on shows you hate to love (and love to hate): Yahoo! TV's Guilty Pleasures list. http://tv.yahoo.com/collections/265 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
Yes, essentially the info in Universe is the same, however the "order" may be different... In Universe SYSTEM(9001) you get the most recent at the top of the list: Ie. Running a sub called CLTESTER from my PVRUN main you get this rec in SYSTEM(9001): 2}PV.DEV.O/CLTESTER}0x0 1}PV.PGM.O/PVRUN}0x3f98 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: Tuesday, February 13, 2007 12:58 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] A trail of bread crumbs Thanks, everyone who had my answer at the ready! I looked right at the system(49) documentation and thought it was something else. It is actually quite wonderful! Does anyone know if the output format is the same on Universe SYSTEM(9001) as it is on Unidata SYSTEM(49)? On Unidata you get this output: 1}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_MM}109 2}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.SELECT}262 3}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.S}348 4}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.PROCESS}151 5}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.INTERP.I}739 6}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.VALIDATE}90 7}PRCPROGS\_PRC.ASSIGNED.VB}100 8}PRCPROGS\_PRC.CREATE.PRJ}132 9}C:\IBM\ud71\sys\CTLG\p\PRC.PROJECT.TRIGGER}31 (A reverse-order stack with a sequence number, the program name, then the line number within the program in three MV's) Susan/Gretel p.s. anybody seen Hanzel? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
sure wish we could get that kind of info from D3 .. don't think it ever knows where it is DSig David Tod Sigafoos SigsSolutions, Inc. > Original Message > Subject: RE: [U2] A trail of bread crumbs > From: "Susan Joslyn" <[EMAIL PROTECTED]> > Date: Tue, February 13, 2007 9:57 am > To: > > Thanks, everyone who had my answer at the ready! > I looked right at the system(49) documentation and thought it was something > else. It is actually quite wonderful! > > Does anyone know if the output format is the same on Universe SYSTEM(9001) > as it is on Unidata SYSTEM(49)? On Unidata you get this output: > > 1}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_MM}109 > 2}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.SELECT}262 > 3}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.S}348 > 4}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.PROCESS}151 > 5}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.INTERP.I}739 > 6}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.VALIDATE}90 > 7}PRCPROGS\_PRC.ASSIGNED.VB}100 > 8}PRCPROGS\_PRC.CREATE.PRJ}132 > 9}C:\IBM\ud71\sys\CTLG\p\PRC.PROJECT.TRIGGER}31 > > > (A reverse-order stack with a sequence number, the program name, then the > line number within the program in three MV's) > > > > Susan/Gretel > p.s. anybody seen Hanzel? > --- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
Thanks, everyone who had my answer at the ready! I looked right at the system(49) documentation and thought it was something else. It is actually quite wonderful! Does anyone know if the output format is the same on Universe SYSTEM(9001) as it is on Unidata SYSTEM(49)? On Unidata you get this output: 1}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_MM}109 2}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.SELECT}262 3}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.S}348 4}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.PROCESS}151 5}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.INTERP.I}739 6}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.VALIDATE}90 7}PRCPROGS\_PRC.ASSIGNED.VB}100 8}PRCPROGS\_PRC.CREATE.PRJ}132 9}C:\IBM\ud71\sys\CTLG\p\PRC.PROJECT.TRIGGER}31 (A reverse-order stack with a sequence number, the program name, then the line number within the program in three MV's) Susan/Gretel p.s. anybody seen Hanzel? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
I'm not sure if you're looking for a UniVerse or UniData solution. Here's what I use on Universe... FUNCTION CALLSTACK ! * RETURN ATTRIBUTE-DELMITED CALLSTACK * * 07/08/2004 * PERRY TAYLOR ! * FORM THE STACK * CALLSTK = DELETE(SYSTEM(9001), 1) FOR AMC = DCOUNT(CALLSTK, @AM) TO 1 STEP -1 IF LEN(CALLSTK) THEN FILESPEC = CALLSTK CALLSTK = '' FOR NC = LEN(FILESPEC) TO 1 STEP -1 CH = FILESPEC[NC, 1] IF CH = '/' OR CH = '\' THEN EXIT CALLSTK = CH: CALLSTK NEXT NC END ELSE CALLSTK = DELETE(CALLSTK, AMC) END NEXT AMC RETURN(CALLSTK) Is that what you were looking for, Gretel? Perry -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: Tuesday, February 13, 2007 11:19 AM To: u2-users@listserver.u2ug.org Subject: [U2] A trail of bread crumbs Greetings saviors. I'm trying to find a system variable? Or anything that can tell me, from within a BASIC program, "How did I get here?" Is there a trail of breadcrumbs for me to follow from within Unibasic, does anyone know? Just sign me, Gretel p.s. I'm a digest subscriber, (so busy luring witches into the woods, you know) so if anyone has my answer for me, copy me directly, please! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. ZirMed, Inc. has strict policies regarding the content of e-mail communications, specifically Protected Health Information, any communications containing such material will be returned to the originating party with such advisement noted. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] A trail of bread crumbs
On UniData SYSTEM(49) gives the basic stack.
Mike
"Same as it ever was"
Same as it ever was"
Sorry the "How did I get here" cause the Talking Heads song to get stuck in
my head.
"Susan Joslyn"
<[EMAIL PROTECTED]
om>To
Sent by:
[EMAIL PROTECTED] cc
stserver.u2ug.org
Subject
[U2] A trail of bread crumbs
02/13/2007 09:19
AM
Please respond to
[EMAIL PROTECTED]
er.u2ug.org
Greetings saviors.
I'm trying to find a system variable? Or anything that can tell me, from
within a BASIC program, "How did I get here?"
Is there a trail of breadcrumbs for me to follow from within Unibasic, does
anyone know?
Just sign me,
Gretel
p.s. I'm a digest subscriber, (so busy luring witches into the woods, you
know) so if anyone has my answer for me, copy me directly, please!
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
[demime 1.01d removed an attachment of type image/gif which had a name of
graycol.gif]
[demime 1.01d removed an attachment of type image/gif which had a name of
pic22609.gif]
[demime 1.01d removed an attachment of type image/gif which had a name of
ecblank.gif]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
On UniVerse, SYSTEM(9001) will give the program stack. Mark -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: Tuesday, February 13, 2007 9:19 AM To: u2-users@listserver.u2ug.org Subject: [U2] A trail of bread crumbs Greetings saviors. I'm trying to find a system variable? Or anything that can tell me, from within a BASIC program, "How did I get here?" Is there a trail of breadcrumbs for me to follow from within Unibasic, does anyone know? Just sign me, Gretel p.s. I'm a digest subscriber, (so busy luring witches into the woods, you know) so if anyone has my answer for me, copy me directly, please! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
Hi Susan, SYSTEM(9001) This will give you the call stack. Re andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: 13 February 2007 17:19 To: u2-users@listserver.u2ug.org Subject: [U2] A trail of bread crumbs Greetings saviors. I'm trying to find a system variable? Or anything that can tell me, from within a BASIC program, "How did I get here?" Is there a trail of breadcrumbs for me to follow from within Unibasic, does anyone know? Just sign me, Gretel p.s. I'm a digest subscriber, (so busy luring witches into the woods, you know) so if anyone has my answer for me, copy me directly, please! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ Legal Disclaimer: The information contained in this message may be privileged and confidential. It is intended to be read only by the individual or entity to whom it is addressed or by their designee. If the reader of this message is not the intended recipient, you are on notice that any distribution of this message, in any form, is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete or destroy any copy of this message --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
If I understand what you are asking for, try a SYSTEM(49). That will return a delimited list of the calling stack. HTH, Steve -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: Tuesday, February 13, 2007 8:19 AM To: u2-users@listserver.u2ug.org Subject: [U2] A trail of bread crumbs Greetings saviors. I'm trying to find a system variable? Or anything that can tell me, from within a BASIC program, "How did I get here?" Is there a trail of breadcrumbs for me to follow from within Unibasic, does anyone know? Just sign me, Gretel p.s. I'm a digest subscriber, (so busy luring witches into the woods, you know) so if anyone has my answer for me, copy me directly, please! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
On UniData SYSTEM(49) will give you the full call stack. You may also want to look at SYSTEM(17) and SYSTEM(40) (HELP SYSTEM) depending on exactly what you are trying to do. Hth Colin Alfke Calgary Canada >-Original Message- >From: Susan Joslyn > >Greetings saviors. > >I'm trying to find a system variable? Or anything that can >tell me, from within a BASIC program, "How did I get here?" > >Is there a trail of breadcrumbs for me to follow from within >Unibasic, does anyone know? > >Just sign me, >Gretel > >p.s. I'm a digest subscriber, (so busy luring witches into the >woods, you >know) so if anyone has my answer for me, copy me directly, please! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
SYSTEM(9001) should tell you what you are looking for... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn Sent: Tuesday, February 13, 2007 11:19 AM To: u2-users@listserver.u2ug.org Subject: [U2] A trail of bread crumbs Greetings saviors. I'm trying to find a system variable? Or anything that can tell me, from within a BASIC program, "How did I get here?" Is there a trail of breadcrumbs for me to follow from within Unibasic, does anyone know? Just sign me, Gretel p.s. I'm a digest subscriber, (so busy luring witches into the woods, you know) so if anyone has my answer for me, copy me directly, please! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] A trail of bread crumbs
Susan On Universe, check out SYSTEM(9001). Brian >Greetings saviors. > >I'm trying to find a system variable? Or anything that can tell me, from >within a BASIC program, "How did I get here?" > >Is there a trail of breadcrumbs for me to follow from within Unibasic, does >anyone know? > >Just sign me, >Gretel > >p.s. I'm a digest subscriber, (so busy luring witches into the woods, you >know) so if anyone has my answer for me, copy me directly, please! >--- >u2-users mailing list >u2-users@listserver.u2ug.org >To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] A trail of bread crumbs
Greetings saviors. I'm trying to find a system variable? Or anything that can tell me, from within a BASIC program, "How did I get here?" Is there a trail of breadcrumbs for me to follow from within Unibasic, does anyone know? Just sign me, Gretel p.s. I'm a digest subscriber, (so busy luring witches into the woods, you know) so if anyone has my answer for me, copy me directly, please! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
