You find a sample output from the command below. You can get a free copy of the program, if you fill the the form.
Highligts
License
Unless otherwise specified you can
only use the DOCRPGSRC if you have got it directly from me. You
can install and use it on one single iSeries 400 (AS/400) to document source
in any commercial or non-commercial project YOU are working on.
You can allow anyone else working on the same project on the same
iSeries 400 (AS/400) to use it. You can distribute this text only (the description
and my address) to anybody you want if it is not changed. Actually
you are invited to do so. No other distribution is allowed. You
must remove the utility from machines you will no longer have
access to. You are not allowed to sell (alone or as part of
a project) any output from this utility.
You are expected within a month after download to send a message with your opinion to the author.
How to get the Document RPGsource (DOCRPGSRC) command
for IBM iSeries 400 (AS/400)
All you have to do is to fill the form.
You will then receive the program in few days.
An example of the output from the command (actually it is the output created from the CPP itself). In this example I have used "*MAX" for options, but not included any string search.
*%% DOCRPGSRC retrieved 960326 from DOCRPGSRC in MYLIB/QRPGSRC
* *INZSR
* | DO(1297): 1 DO NE
* | DO(1326): 1 DO NS
* | CALL(1352): 'QCMDEXC'
* | CALL(1362): 'QCMDEXC'
* | CALL(1365): 'QCMDEXC'
* | I/O(1368): OPEN QAFDMBRL - System outfile for DSPFD TYPE(*MBRLIST)
* *DETC
* | DO(365): MLNAME DOUEQ '*END'
* | | I/O(367): READ QWHFDML - DSPFD format for TYPE *MBRLIST
* | | CALL(385): 'QCMDEXC'
* | | CALL(390): 'SYSPMHC' - Program msg Handling
* | | CALL(394): 'SYSPMHC' - Program msg Handling
* | | I/O(398): OPEN QRPGSRC
* | | CALL(401): 'SYSPMHC' - Program msg Handling
* | | CALL(405): 'SYSPMHC' - Program msg Handling
* | | EXSR(412): BEGMBR - Iinitate for one member
* | | | EXSR(457): BLDREF - Build RF*-arrays
* | | | | DO(877): *IN99 DOUEQ *ON
* | | | | | EXSR(878): NXTSRC - Read next source-record. Find type
* | | | | | | I/O(1119): READ QRPGSRC
* | | | | | | DO(1181): 2 DO 4
* | | | | | | DO(1220): 1 DO 80
* | | | | | | DO(1233): J DOULE 0
* | | | | | CALL(933): 'QCMDEXC'
* | | | | | CALL(988): 'QCMDEXC'
* | | | | | CALL(996): 'QCMDEXC'
* | | | | CALL(1034): 'QCMDEXC'
* | | | | I/O(1037): OPEN QADSPOBJ - System supplied outfile for DSPOBJD c
* | | | | DO(1038): *IN98 DOUEQ *ON
* | | | | | I/O(1039): READ QADSPOBJ - System supplied outfile for DSPOBJD
* | | | | CALL(1057): 'QCMDEXC'
* | | | | I/O(1060): OPEN QAFDRFMT - System outfile for DSPFD TYPE(*RCDFMT
* | | | | DO(1061): *IN98 DOUEQ *ON
* | | | | | I/O(1062): READ QWHFDFMT - DSPFD format for TYPE(*RCDFMT)
* | | | | I/O(1085): CLOSE QAFDRFMT - System outfile for DSPFD TYPE(*RCDFM
* | | | | CALL(1086): 'QCMDEXC'
* | | | | I/O(1090): CLOSE QADSPOBJ - System supplied outfile for DSPOBJD
* | | | | CALL(1091): 'QCMDEXC'
* | | | CALL(461): 'QCMDEXC'
* | | | I/O(464): OPEN QSYSPRT - System non-described printer file
* | | EXSR(414): ONEMBR - Document ONE Member
* | | | I/O(480): EXCPT ESIGNA
* | | | I/O(484): SETLL QRPGSRC
* | | | EXSR(486): ONERUT - Document ONE routine (*INZSR/*DETC/*TOTC/*PSSR
* | | | | I/O(549): EXCPT ERUTNM
* | | | | DO(560): ENDRUT DOUEQ *ON
* | | | | | EXSR(561): NXTSRC - Read next source-record. Find type
* | | | | | | I/O(1119): READ QRPGSRC
* | | | | | | DO(1181): 2 DO 4
* | | | | | | DO(1220): 1 DO 80
* | | | | | | DO(1233): J DOULE 0
* | | | | | I/O(668): SETLL QRPGSRC
* | | | | | I/O(680): EXCPT EDETD
* | | | | | I/O(689): SETGT QRPGSRC
* | | | | | I/O(720): EXCPT EDETD
* | | | | | I/O(757): EXCPT EDETD
* | | | | | I/O(779): EXCPT EDETD
* | | | | | I/O(832): EXCPT EDETD
* | | | I/O(490): SETLL QRPGSRC
* | | | EXSR(492): ONERUT - Document ONE routine (*INZSR/*DETC/*TOTC/*PSSR
* | | | | I/O(549): EXCPT ERUTNM
* | | | | DO(560): ENDRUT DOUEQ *ON
* | | | | | EXSR(561): NXTSRC - Read next source-record. Find type
* | | | | | | I/O(1119): READ QRPGSRC
* | | | | | | DO(1181): 2 DO 4
* | | | | | | DO(1220): 1 DO 80
* | | | | | | DO(1233): J DOULE 0
* | | | | | I/O(668): SETLL QRPGSRC
* | | | | | I/O(680): EXCPT EDETD
* | | | | | I/O(689): SETGT QRPGSRC
* | | | | | I/O(720): EXCPT EDETD
* | | | | | I/O(757): EXCPT EDETD
* | | | | | I/O(779): EXCPT EDETD
* | | | | | I/O(832): EXCPT EDETD
* | | | I/O(496): SETLL QRPGSRC
* | | | EXSR(498): ONERUT - Document ONE routine (*INZSR/*DETC/*TOTC/*PSSR
* | | | | I/O(549): EXCPT ERUTNM
* | | | | DO(560): ENDRUT DOUEQ *ON
* | | | | | EXSR(561): NXTSRC - Read next source-record. Find type
* | | | | | | I/O(1119): READ QRPGSRC
* | | | | | | DO(1181): 2 DO 4
* | | | | | | DO(1220): 1 DO 80
* | | | | | | DO(1233): J DOULE 0
* | | | | | I/O(668): SETLL QRPGSRC
* | | | | | I/O(680): EXCPT EDETD
* | | | | | I/O(689): SETGT QRPGSRC
* | | | | | I/O(720): EXCPT EDETD
* | | | | | I/O(757): EXCPT EDETD
* | | | | | I/O(779): EXCPT EDETD
* | | | | | I/O(832): EXCPT EDETD
* | | | I/O(502): SETLL QRPGSRC
* | | | EXSR(504): ONERUT - Document ONE routine (*INZSR/*DETC/*TOTC/*PSSR
* | | | | I/O(549): EXCPT ERUTNM
* | | | | DO(560): ENDRUT DOUEQ *ON
* | | | | | EXSR(561): NXTSRC - Read next source-record. Find type
* | | | | | | I/O(1119): READ QRPGSRC
* | | | | | | DO(1181): 2 DO 4
* | | | | | | DO(1220): 1 DO 80
* | | | | | | DO(1233): J DOULE 0
* | | | | | I/O(668): SETLL QRPGSRC
* | | | | | I/O(680): EXCPT EDETD
* | | | | | I/O(689): SETGT QRPGSRC
* | | | | | I/O(720): EXCPT EDETD
* | | | | | I/O(757): EXCPT EDETD
* | | | | | I/O(779): EXCPT EDETD
* | | | | | I/O(832): EXCPT EDETD
* | | | I/O(508): EXCPT EINFSR
* | | | DO(510): EI DOWGT 0
* | | | | I/O(515): SETLL QRPGSRC
* | | | | EXSR(517): ONERUT - Document ONE routine (*INZSR/*DETC/*TOTC/*PS
* | | | | | I/O(549): EXCPT ERUTNM
* | | | | | DO(560): ENDRUT DOUEQ *ON
* | | | | | | EXSR(561): NXTSRC - Read next source-record. Find type
* | | | | | | | I/O(1119): READ QRPGSRC
* | | | | | | | DO(1181): 2 DO 4
* | | | | | | | DO(1220): 1 DO 80
* | | | | | | | DO(1233): J DOULE 0
* | | | | | | I/O(668): SETLL QRPGSRC
* | | | | | | I/O(680): EXCPT EDETD
* | | | | | | I/O(689): SETGT QRPGSRC
* | | | | | | I/O(720): EXCPT EDETD
* | | | | | | I/O(757): EXCPT EDETD
* | | | | | | I/O(779): EXCPT EDETD
* | | | | | | I/O(832): EXCPT EDETD
* | | | DO(522): 1 DO 1000
* | | | I/O(538): EXCPT ERRORS
* | | EXSR(416): ENDMBR - One member processed: Send completion-MSG back t
* | | | I/O(1260): CLOSE QSYSPRT - System non-described printer file
* | | | CALL(1261): 'QCMDEXC'
* | | | CALL(1278): 'SYSPMHC' - Program msg Handling
* | | I/O(418): CLOSE QRPGSRC
* | CALL(432): 'SYSPMHC' - Program msg Handling
* | I/O(437): CLOSE QAFDMBRL - System outfile for DSPFD TYPE(*MBRLIST)
* | CALL(438): 'QCMDEXC'
