This is the 2nd company that i came to that does not have RPG-ALive.
So this tool will alow you to browse the source with pretty indented lines and search the source and get the item highlighted.
To view the souce with all lines;
INDRPG SRCMBR(MYMEMBER) SRCFILE(MYLIB/MYFILE)
To view the souce with no line comments ( C* F* ....)
INDRPG SRCMBR(MYMEMBER) SRCFILE(MYLIB/MYFILE) SHOWCOMENT('N')
I typically add an entry into the QGPL/QAUOOPT file that is used by PDM.
Option Command
IR INDRPG SRCMBR(&N) SRCFILE(&L/&F) /* Rpgle indent Source, disp */
This works for RPG / RPGLE / SQLPRGLE. If you do it on a source that is not one of these, it will just show the source. Also, /Free is not done because you should be indenting that yourself.
So this tool will alow you to browse the source with pretty indented lines and search the source and get the item highlighted.
To view the souce with all lines;
INDRPG SRCMBR(MYMEMBER) SRCFILE(MYLIB/MYFILE)
To view the souce with no line comments ( C* F* ....)
INDRPG SRCMBR(MYMEMBER) SRCFILE(MYLIB/MYFILE) SHOWCOMENT('N')
I typically add an entry into the QGPL/QAUOOPT file that is used by PDM.
Option Command
IR INDRPG SRCMBR(&N) SRCFILE(&L/&F) /* Rpgle indent Source, disp */
This works for RPG / RPGLE / SQLPRGLE. If you do it on a source that is not one of these, it will just show the source. Also, /Free is not done because you should be indenting that yourself.
Comment