find out what program called recursively - Forum - Community Groups - Progress Community

find out what program called recursively

 Forum

find out what program called recursively

  • 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


  • 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.

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

    Consulting in Model-Based Development, Transformation, and Object-Oriented Best Practice  http://www.cintegrity.com

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

    However, I need to prepare a report.

    Thanks again!

    ~ Antony