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.
midrange.com
