Re: Tool to retrieve RPG source code from an RPG OPM program object (not RPGLE).

If you're a real bit twiddler you could try DMPOBJ
Sample output:
Page/Line 19/54

...
* NUM UPDATE LINE ID S*
* o u r c e L i s t i n g | *

*H Ì 100 FITHL01 IF E K *
* DISK 10/30/92 RECORD FOR*
*MAT(S): LIBRARY PVCFILE FILE IT*
*HL01. ñ EXTERNAL FORMAT IPI50*
*0TH RPG NAME IPI500TH á A 0 *
* INPUT FIELDS FOR RECORD IPI500*
*TH FILE ITHL01 FORMAT IPI500TH. *
* A 0 Transaction History ¬*
* A 01 1 2 TID Record ID*
*; TE/TZ or TH/TZ or LT/LZ A *
* 02 3 17 TPROD Item Number *
* A 03 P 18 200TSEQ Tra*
...

...
*C *NAMVAR DEFN ITHIF 120 *
* 10/30/92 1000 C *LOVAL*
* SETLLITHL01 10/30/92 1*
*100 C ENDSR 10/30/92 1*
*200 C LRSUB BEGSR 10/30/9*
*2 1300 C TIME HMSB 6*
*0 10/30/92 1400 C *LOC*
*K IN ITHIF 10/30/92 1*
*500 C Z-ADD*ZEROS ITHIF 1*
...



Rob Berendt