Re: RTNDTA Question

Hello Dave,

I can't test any of these suggestions at the moment so caveats apply.

According to the DDS manual multiple formats shouldn't matter.  RTNDTA is only 
ignored on an EXFMT or a READ 
with an intervening WRITE to the __SAME__ format.  A different format shouldn't 
have any effect.  Are you sure 
the operations are occuring as you think?

One other point, ERRMSG, ERRMSGID, and PUTOVR are ignored if an operation to a 
different format occurs before 
a second WRITE to a format with those keywords active.  Perhaps RTNDTA is 
similar.  If this is true it reduces 
the usefulness of RTNDTA.  I rarely use it because I don't use the same field 
names for the screen and 
database.

Try EVAL ZZ01BIN.  If that doesn't work then dump the RPG IV program and see 
what the variable is called now.  
Although I do recall something about this feature not being available in RPG IV 
programs.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Mozilla 4.5 [en] (Win95; U)
> Date: Tue, 27 Oct 98 18:59:49 -0500
> From: "Dave Mahadevan" <mahadevan@fuse.net>
> To: "midrange-l@midrange.com" <midrange-l@midrange.com>
> Reply-To: MIDRANGE-L@midrange.com
> Subject: RTNDTA Question

> 
> Folks:
> 
> Assume two record format A and B with RTNDTA.  EXFMT A and then EXFMT
> B.  Now after this can you do READ A.  This thing gives me a session
> error.  I know after EXFMT A, you can READ umpteen times with RTNDTA.
> Remember I am not trying to READ B, but trying to READ A.  I suspect the
> buffer is cleared before displaying B.
> 
> That reminds, how do I get a copy of the display buffer?  In the old
> debug you can do DSPPGMVAR ZZ01BIN and it will show the first files
> buffer.  With ILE Debug I wonder how you do this?
> --
> Thank You.
> 
> Regards
> 
> Dave Mahadevan.. mailto:mahadevan@fuse.net

+---
| 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
+---