Donnie,
Here's a post from a  year ago that I saved for my own reference.
cds

-----Original Message-----
From: Stevenson, Charles 
Sent: Wednesday, June 23, 2004 8:32 AM
To: 'u2-users@listserver.u2ug.org'
Subject: [UV] SYSTEM(9001) (was: [U2] SYSTEM(49) on UV)

> From: Leroy Dreyfuss
> 
> SYSTEM(9001) was added at 10.0.4 and was improved upon later...
> ...the 10.0 manuals will not have it....
> 
> BTW: this isn't the first time SYSTEM(9001) appeared on this list....

I think I probably first reported it on this list and tried to document
how it works out of gratitude.  I dug the following from the list
archive, http://www.indexinfocus.com/.
Until the manual is updated, I hope this documentation is good enough:


Subject: [UV] SYSTEM(9001) tells you what program you are in & where you
came from!
From:    Stevenson, Charles ([EMAIL PROTECTED])
Date:    03/20/03 


After whining about this for, lo, these many years let me be quick to
praise the Universe team for giving us this. This will be a wonderful
debugging tool! 


UV 10.0.6 Patchlist says: 
   2621 The UniVerse BASIC SYSTEM(9001) function now returns the 
            @LEVEL in correct order, and returns correct addresses. 


SYSTEM(9001) will return a dynamic array that contains roughly the same
info that PORT.STATUS LAYER.STACK or RAID "T" command coughs up. 

Here is a sample subroutine that displays the data and a dummy program
that calls it. 
Then from the menu, I get to pseudo-TCL and execute the dummy program. 

   >CT CDS.BP SYS9001 DUMMY 

      SYS9001 
   0001 SUBROUTINE SYS9001 
   0002 CRT "Depth Executing.......................... Address" 
   0003 S = SYSTEM(9001) 
   0004 FOR A = 1 TO COUNT( S, @AM ) 
   0005 CRT S<A,1> "4R##: ": S<A,2> "40L#40": S<A,3> 
   0006 NEXT A 
   0007 CRT QUOTE( S ) 
   0008 RETURN 

      DUMMY 
   0001 CALL SYS9001 

   >ED VOC LIST 
   8 lines long. 
    
   ----: XEQ RUN CDS.BP DUMMY 
   Executing the command "RUN CDS.BP DUMMY". 
   Depth Executing.......................... Address 
    3: CDS.BP.O/SYS9001                        0x6 
    2: CDS.BP.O/DUMMY                          0x0 
    1: /dbms/uv/catdir/*UVPRINTMSG             0x4b40 
    0: /dbms/uv/catdir/-MATBLOCK               0x0 
   -1: /dbms/uv/catdir/-PERMISSIONS            0x0 
   -2: /dbms/uv/catdir/-GET.FILE.NAME          0x0 
   -3: /dbms/uv/BP.O/ED.B                      0x0 
 
"3}CDS.BP.O/SYS9001}0x6~2}CDS.BP.O/DUMMY}0x0~1}/dbms/uv/catdir/*UVPRINTM
SG}0x4b40~0}/dbms/uv/catdir/-MATBLOCK}0x0~-1}/dbms/uv/catdir/-PERMISSION
S}0x0~-2}/dbms/uv/catdir/-GET.FILE.NAME}0x0~-3}/dbms/uv/BP.O/ED.B}0x0~"


One caution: the data is turned 90 degrees from the conventional way MV
data is handled (?what were they thinking?) 

 - Value 1 of each attribute is the depth in the return stack, 
      The non-negative numbers mean that those programs are all part 
         of the return stack. 
      The negative numbers below simply mean those subroutines were 
         called and returned from in the past. 
      I don't think @LEVEL has anything to do with it,
         contrary to the patchlist text. 
      That's as much as I've figured out so far. 

 - Value 2 is the program 

 - Value 3 is the hex address (the obj address you see when you VLIST a
program) 
      For the negative depths, n/a. 
      (0x0 on DUMMY is real. They are small programs.) 

 - The number of values is constant, 
      the number of attributes grows or shrinks. Oh well. 

SYSTEM(9001) is not in the 10.0 doc set that came with my upgrade pack
from IBM, so I figured after all the complaining I have done I at least
owe this post. 


Thank-you LeRoy & company,
Charles Stevenson 
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to