Re: Available: SQR Tree Utility (Attempt 2)

[Ken Gartman <osmium@EROLS.COM>]

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
>
>
> !
> !
>
> !
> !