Home

The Document RPGsource (DOCRPGSRC) command for IBM iSeries 400 (AS/400)


The Document RPGsource (DOCRPGSRC) command for IBM iSeries 400 (AS/400) serves to give an overview on nesting of EXSR/CASxx-statements in RPG/400 source members. Also it gives you a good help spotting where in the program process something happens. Eg: 'Is the table-record read at the time of first print on the error list?'.

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'

Back
Back to Software Page

Last modified: 20.2.2003.
File name: http://hkrebs.dk/docrpgsrc.html