find out what program called recursively

Posted by antony123 on 06-Jul-2009 17:52

Progress 9.1D

Looking for the unix script / 4 GL to find out what are .p's & .i's called from the main program.

Any ideas?

Thanks for your time.

~ Antony

Community Groups - Forum

All Replies

Posted by Admin on 07-Jul-2009 08:50


Try to add a keyboard event to the main procedure,

like this, anytime, you known where you are when running

the application.

ON F12 ANYWHERE DO:
  DEFINE VARIABLE i     AS INTEGER.
  DEFINE VARIABLE plist AS CHARACTER FORMAT "x(70)".
  FORM
    plist
    WITH FRAME what-prog OVERLAY ROW 10 CENTERED 5 DOWN NO-LABELS
      TITLE " Program Trace ".
  i = 2. /* Skip the current routine: PROGRAM-NAME(1) */
  DO WHILE PROGRAM-NAME(i) <> ?:
    IF i = 2
    THEN plist = "Currently in       : " + PROGRAM-NAME(i).
    ELSE plist = "Which was called by: " + PROGRAM-NAME(i).

    i = i + 1.
    DISPLAY plist WITH FRAME what-prog.
    DOWN WITH FRAME what-prog.
  END.
  PAUSE.
  HIDE FRAME what-prog.
END.

Posted by Thomas Mercer-Hursh on 07-Jul-2009 11:40

Analyst will tell you this and ABL2UML will give you a pretty picture. http://www.oehive.org/ABL2UML

Posted by antony123 on 07-Jul-2009 15:03

Thanks! MFG/PRO already does this by CTRL-F.

However, I need to prepare a report.

Thanks again!

~ Antony

This thread is closed