Re: Find related if for else

Not to take away from the features that WDSC-i or RD-i provides ...

There were some "old-school" tools that would "mark" the source lines in the (unused) columns 1-5 to indicate nesting and matching blocks, for example, here is a snippet of some source that was "marked" in this way:

FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0047.00 C EXSR PRPENT PREP ENTRY P
0048.00 B001 C WWSTT DOWNE'END' DOWHILE NOT
0049.00 001 C EXSR RCVMSG RECEIVE MSGS
0050.00 001 C EXSR SETOVR SET OVERLAY
0051.00 001 C EXSR DSPENT DSPL ENTRY P
0052.00 001 C *IN03 CASEQ'1' PRCEXT EXIT
0053.00 001 C *IN04 CASEQ'1' PRCPMT PROMPT
0054.00 001 C *IN05 CASEQ'1' PRCRFR REFRESH
0055.00 001 C *IN12 CASEQ'1' PRCCNL CANCEL
0056.00 001 C *IN25 CASEQ'1' PRCRUP ROLL UP
0057.00 001 C *IN26 CASEQ'1' PRCRDN ROLL DOWN
0058.00 001 C* *IN27 CASEQ'1' PRCENT ELSE ENTER
0059.00 C END
0060.00 B002 C WWSTT IFEQ 'END' IF END REQUE
0061.00 002 C EXSR PRCEND PROCESS END
0062.00 E002 C END END IF END R
0063.00 E001 C END END DOWHILE
0056.00 001 C *IN25 CASEQ'1' PRCRUP ROLL UP
0057.00 001 C *IN26 CASEQ'1' PRCRDN ROLL DOWN
0058.00 001 C* *IN27 CASEQ'1' PRCENT ELSE ENTER
0059.00 C END
0060.00 B002 C WWSTT IFEQ 'END' IF END REQUE
0061.00 002 C EXSR PRCEND PROCESS END
0062.00 E002 C END END IF END R
0063.00 E001 C END END DOWHILE
0064.00 C RETRN RETURN
0065.00 *
0066.00 * PREPARE FOR DATA ENTRY PANEL PROCESSING
0067.00 *
0068.00 C PRPENT BEGSR PREP ENTRY P
0069.00 C EXSR DEFN DEFINE FIELD
0070.00 C MOVE *BLANKS WORTN RETURN CODE
0071.00 C MOVE WUKEY WDKEY PASS KEY
0072.00 C Z-ADDWDCST DMCST KEY REQUESTE


Perhaps something like that might also help to aid in the comprehension of "old code" like this. (The example above is RPG/400 ...)

HTH,
Mark S. Waterbury