[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

Available: SQR Tree Utility (Attempt 2)

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

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               !
!
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               !
!