This will give the next generation nbr for any root - ( base)
NEXTGEN: PROCEDURE
PARSE ARG ROOT
LAST = 0;
CALL OUTTRAP 'LINES.' ,, 'NOCONCAT';
ADDRESS TSO "LISTCAT LEVEL("||ROOT||")";
DO I = 1 TO LINES.0
PARSE VAR LINES.I '-- ' JUNK '.G0' NBR 'V00' ;
IF (NBR >...