Rpg Nest

These programs will put the nesting level into the source code. Example:

 C               DO        46            OP                4 0                          B001
 C               MoveL     OperIn(Op)    Oper(Op)
 C               EndDo                                                                  E001

The B001 is in placed in the source code in column 97-100, therefore your source file must be 112 byte source file. Since you get the source, you could change it to put the nesting levels in columns 1-4.