Re: Available: SQR Tree Utility (Attempt 2)

[Wayne Ivory <wivory@WSL.COM.AU>]

With compliments.  And could you please do me a favour - I have sent it to several people and asked them to let me know what they think.  But apart from one guy who said there was no attachment and asked me to resend, I haven't heard anything.

Could you please advise if you got it and if it works (and if you like it).

Wayne Ivory
Information Services
Westralian Sands Limited


>>> Ken Gartman <osmium@EROLS.COM> 7/1/98 7:32:57 am >>>
Hi there, Wayne!
        I'd also like a copy of your Software.

                Happy Computing,
                Ken Gartman
                Maryland, USA


Wayne Ivory wrote:
>
> Since I posted my original message I've had a few replies and noticed the example I had pasted into the message got all scrunched together (I hate that - so much for WYSIWYG).  I'll try pasting it here using a different method - unfortunately I won't know if it works until after I've done it.  In case it doesn't, imagine a Windows-Explorer type display.
>
> TAX016AU.SQR
>
> 35    Init-DateTime ()
> 36    Init-Number ()
> 37    Init-Report (45)
> 51        Stdapi-Init ()
> 54        Prompt (1389)
> 56        Select-Parameters ()
> 57        Get-Values (1444)
> 60        Process-Parameters (1413)
> 1431          Format-DateTime ()
> 1432          Format-DateTime ()
> 61        Array-Init (100)
> 38    Process-Main (135)
> 145       Get-Group-Name (1338)
> 146       Build-company-list (1260)
> 1277          Get-Company-Data ()
> 147       Get-Totals (157)
> 169           Cmpny-State-Data (177)
> 178               Pay-Earnings (192)
> 223                   Get-PayGroup-Erncd (726)
> 739                       Chk-Exempt-Erncd (771)
>
> ******** Original Message follows ****************
> If anyone is interested I've written a Unix shell script that produces a Procedure-Call tree for an SQR program.  It shows which procedures call which procedures, the line they are called from, and the line the called procedure is on.  Here's a sample:
>
> TAX016AU.SQR
>
> 35    Init-DateTime ()
> 36    Init-Number ()
> 37    Init-Report (45)
> 51        Stdapi-Init ()
> 54        Prompt (1389)
> 56        Select-Parameters ()
> 57        Get-Values (1444)
> 60        Process-Parameters (1413)
> 1431          Format-DateTime ()
> 1432          Format-DateTime ()
> 61        Array-Init (100)
> 38    Process-Main (135)
> 145       Get-Group-Name (1338)
> 146       Build-company-list (1260)
> 1277          Get-Company-Data ()
> 147       Get-Totals (157)
> 169           Cmpny-State-Data (177)
> 178               Pay-Earnings (192)
> 223                   Get-PayGroup-Erncd (726)
> 739                       Chk-Exempt-Erncd (771)
>
> If you'd like a copy send me an email.
>
> Wayne Ivory
> Information Services
> Westralian Sands Limited
>
> Wayne Ivory
> Information Services
> Westralian Sands Limited
>
>
> !
> !
>
> !
> !

sqrtree