Here's a point to work off of, use RPG op code DUMP  and if memory serves me correct , you will need a Header spec with notification of dump being recognized, I forget the syntax. 
Maybe the DUMP op Code Factor 2, Result, or Factor 1 may lead to an outfile.
Good Luck
>From: "Pantzopoulos, Mike" 
>Reply-To: MIDRANGE-L@midrange.com 
>To: "'MIDRANGE-L@midrange.com'"
 
>Subject: display entrails of program object.sppgm 
>Date: Mon, 12 Feb 2001 20:31:41 -0500 
>MIME-Version: 1.0 
>Received: from [192.160.127.90] by hotmail.com (3.2) with ESMTP id MHotMailBC51E2D2001C40043125C0A07F5A071D0; Mon Feb 12 18:11:35 2001 
>Received: (from uucp@localhost)by uucphost.mcs.net (8.11.1/8.11.1) with UUCP id f1D2BeB49114;Mon, 12 Feb 2001 20:11:40 -0600 (CST)(envelope-from midrange-l-owner@midrange.com) 
>Received: from localhost (mail@localhost)by linux.midrange.com (8.9.3/8.8.7) with SMTP id UAA09970;Mon, 12 Feb 2001 20:40:47 -0600 
>Received: by linux.midrange.com (bulk_mailer v1.13); Mon, 12 Feb 2001 20:40:41 -0600 
>Received: (from majordom@localhost)by linux.midrange.com (8.9.3/8.8.7) id UAA09719for midrange-l-outgoing; Mon, 12 Feb 2001 20:40:28 -0600 
>Received: (from uucp@localhost)by linux.midrange.com (8.9.3/8.8.7) with UUCP id UAA09705for MIDRANGE-L@midrange.com; Mon, 12 Feb 2001 20:40:23 -0600 
>Received: from xmail.pmsc.com (xmail.pmsc.com [198.78.21.210])by uucphost.mcs.net (8.11.1/8.11.1) with ESMTP id f1D1Wkr44658for ; Mon, 12 Feb 2001 19:32:46 -0600 (CST)(envelope-from mikepantzopoulos@mynd.com) 
>Received: from pmsc.com (firewall-user@seaspray.pmsc.com [198.78.21.66])by xmail.pmsc.com (8.9.3/8.9.3) with ESMTP id UAA04964for ; Mon, 12 Feb 2001 20:32:46 -0500 
>Received: from SMTP (mailout.pmsc.com [170.30.44.241])by pmsc.com (8.9.3/8.9.3) with SMTP id UAA04630for ; Mon, 12 Feb 2001 20:32:45 -0500 
>Received: from blymsg04.pmsc.com ([170.30.44.187]) by 170.30.44.241 (Norton AntiVirus for Internet Email Gateways 1.0) ; Tue, 13 Feb 2001 01:32:44 0000 (GMT) 
>Received: by blymsg04.pmsc.com with Internet Mail Service (5.5.2650.21)id <15KSY49J>; Mon, 12 Feb 2001 20:32:43 -0500 
>From midrange-l-owner@midrange.com Mon Feb 12 18:11:46 2001 
>Message-ID: <40D1CB7FA1EAD311BD610008C733141C1269E1@aus-msg-02.au.pmsc.com> 
>X-Mailer: Internet Mail Service (5.5.2650.21) 
>Sender: owner-midrange-l@midrange.com 
>X-List-Name: Midrange Systems Mailing List (MIDRANGE-L@midrange.com) 
> 
>Does anybody know if it's possible to view the internals of a program object 
>via an outfile? For instance, to gain access to the variables used in a 
>program? Similar to a dspffd to get access to the fields defined in a file? 
>Is this wizard stuff via MI programming? Or is Rochester about to create a 
>command to RTVPGMVAR? 
> It must be a technique used by source debuggers to get access to variable 
>names. 
>Thanks 
>Mike Pantzopoulos 
Get your FREE download of MSN Explorer at http://explorer.msn.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
 
As an Amazon Associate we earn from qualifying purchases.
	
 
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.