Re: Subroutines flow chart in SEU vs RDi

[Frank Kolmann <Frank.Kolmann@xxxxxxxxx>]

Hi

Great tip Mark.
Just want to add  you can use LLP on the first line and LLP on the last 
line to get a printout of the Find commands.

Small example.

                                                        Display Spooled 
File
 File  . . . . . : QPSUPRTF Page/Line   1/1
 Control . . . . . Columns     1 - 130
 Find  . . . . . .
 *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
   5770WDS V7R3M0  160422                  SEU PARTIAL SOURCE 
LISTING                    02/28/23 21:13:29    S067454R     PAGE
   SOURCE FILE . . . . . . . KOLMANN/UDDSSRC
   MEMBER  . . . . . . . . . DUSP
   SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 
...+... 7 ...+... 8 ...+... 9 ...+... 0
  - - -  ------------------------------------- 527 data records 
excluded ------------------------------------
   52800                 EXSR      @INITZ ; 12/30/18
  - - -  -------------------------------------- 36 data records 
excluded ------------------------------------
   56500               EXSR @HXDSP; 12/30/18
  - - -  --------------------------------------- 1 data records 
excluded ------------------------------------
   56700               EXSR @PUTHED; 12/30/18
  - - -  -------------------------------------- 59 data records 
excluded ------------------------------------
   62700             EXSR @ERROR; 12/30/18
  - - -  --------------------------------------- 8 data records 
excluded ------------------------------------
   63600                EXSR @UPD; 12/30/18
  - - -  --------------------------------------- 6 data records 
excluded ------------------------------------
   64300                EXSR @UPD; 12/30/18
  - - -  --------------------------------------- 6 data records 
excluded ------------------------------------
   65000                EXSR @UPD; 12/30/18
  - - -  -------------------------------------- 22 data records 
excluded ------------------------------------
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3 

   67300             EXSR @PCKD; 12/30/18
  - - -  --------------------------------------- 4 data records 
excluded ------------------------------------
   67800             EXSR @SETIN; 12/30/18
   67900             EXSR      @GETF ; 12/30/18
   68000             EXSR      @PUTF ; 12/30/18
   68100             EXSR @KEYIN; 12/30/18
  - - -  --------------------------------------- 6 data records 
excluded ------------------------------------
   68800          BEGSR @INITZ; 12/30/18
  - - -  --------------------------------------- 2 data records 
excluded ------------------------------------
   69100                 EXSR      @INIT ; 12/30/18
   69200                 EXSR      @GETFLD ; 12/30/18
   69300                 EXSR      @GETADD ; 12/30/18
   69400                 EXSR      @PUTHED ; 12/30/18
   69500                 EXSR      @KEYIN ; 12/30/18
  - - -  --------------------------------------- 1 data records 
excluded ------------------------------------
   69700                 EXSR      @PCKD ; 12/30/18
  - - -  --------------------------------------- 1 data records 
excluded ------------------------------------
   69900 ENDSR; 12/30/18
  - - -  --------------------------------------- 3 data records 
excluded ------------------------------------





Frank

On 28/02/2023 5:55 am, Mark Waterbury wrote:
> Jerry,
>
> You could use the "old-school" approach ...
>
> If it is just this one program you need to "flowchart" ... you can do the following using SEU:
>
> Open the member
>
> On the first line number field, type "x99999" and press Enter to "exclude" all lines from the display.
>
> Now, issue the following commands, on the SEU command line:
>
>      find BEGSR all x
>      find ENDSR all x
>      find EXSR all x
>
> You now have an abbreviated "outline" of your program showing you where all the subroutines are defined, and also which ones and where they are used.
>
> If you need to create a more detailed "flowchart" you can also issue:
>
>     find IF all x
>     find ELSE all x
>     find ENDIF all x
> and
>     find DO all x
>     find ENDDO all x
> and
>     find SELECT all x
>     find WHEN all x
>     find OTHER all x
>     find ENDSL all x
>
>
> Once you have copied the relevant information, or "hand drawn" your equivalent "flowchart", you can simply exit from SEU.
>
> If you need to do this for more than one program, then repeat the above process for each program member involved.
>
> Hope that helps,
>
> Mark S. Waterbury
>
>
>
>
> On Monday, February 27, 2023 at 11:08:34 AM EST, jerry ven <jerryven95@xxxxxxxxx> wrote:
>
>
>
>
>
> Hi,
>
>
> How to quickly prepare a flow chart of all the subroutines used inside a
> RPGLE program which is on the SEU and RDi is not available to analyze
> interconnected very long RPGLE programs.
>
>
>
> Thanks.