RE: Error in WDSC conversion to /FREE?

Sorry,

Didn't realize you were using *IN35 for both error & EOF.

If you used two different indicators, what WDSC is doing makes sense.  If just 
the single one, the code generated may not work right.  

With the generated code, you could have an error and not know it unless you 
also happen to be at eof.  Since the value of %eof() will replace the value of 
%error().

Cleanest way would be simply this:

*IN35 = ( %error() or %eof() )

HTH,


Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: wdsci-l-bounces@xxxxxxxxxxxx
> [mailto:wdsci-l-bounces@xxxxxxxxxxxx]On Behalf Of Reeve
> Sent: Wednesday, March 23, 2005 1:50 PM
> To: Websphere Development Studio Client for iSeries
> Subject: [WDSCI-L] Error in WDSC conversion to /FREE?
> 
> 
> When I'm doing a READC with 35 as the "low" indicator and "35" as the
> equal indicator, WDSC generates this code:
> 
> readc(E) {format_name};     
> *IN35 = %ERROR;       
> *IN35 = %EOF;
> 
> If there's an error, *IN35 is set on.  If it's not EOF, *IN35 is set
> off.  Shouldn't we get something a little more elegant, like this?:
> 
> if (%error or %eof);
> *in35 = *on;
> else;
> *in35 = *off;
> endif;          
> 
> Thanks,
> Reeve
> -- 
> This is the Websphere Development Studio Client for iSeries  
> (WDSCI-L) mailing list
> To post a message email: WDSCI-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
> or email: WDSCI-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/wdsci-l.
>