RE: Getting the field attributes of a subfile record

Dave Kahn,

I am delighted seeing such a wonderful working solution. Thank You. 
But at the same time I am also interested in knowing is there is any
system supported data structure for the same purpose.

regards 
Chandan Singh
Systems Analyst 
Mascot Systems Pvt. Ltd. 
Bangalore, India.

> -----Original Message-----
> From: david.kahn@gbwsh.mail.abb.com
> [SMTP:david.kahn@gbwsh.mail.abb.com]
> Sent: Thursday, February 04, 1999 4:20 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: Getting the field attributes of a subfile record
> 
> Chandan Singh <SCHANDAN@INDIA.MASTECH.COM> wrote:
> 
> >Problem : How I will come to know the attributes ( Reverse Image ) of
> a
> >field after reading a subfile record in RPG IV ? Now I explain my
> >problem, I have a subfile record with a field in reverse Image, If I
> >update the same record again without validation, then reverse image
> is
> >getting off. How can I retain the RI.
> 
> Chandan,
> 
> Add a 1 character hidden field to the subfile record for each
> indicator you
> use to condition fields within the record. I find it useful to name
> these
> fields HIN99 where 99 is the indicator number.
> 
> Immediately before writing any subfile record set up the hidden
> fields, eg.
> MOVE *IN41     HIN41 ...  MOVE *IN42     HIN42 ... etc.
> 
> Immediately after reading any subfile record, restore the indicators,
> eg.
> MOVE HIN41     *IN41... MOVE HIN41     *IN42 ...
> 
> If you prefer,  you could instead use a single hidden field to hold an
> indicator array and use a single MOVEA instead of a string of moves -
> MOVEAHINARY    *IN,41 ... If you then reserve a block of contiguous
> indicators to condition subfile fields it makes it simpler to clone
> programs.
> 
> HTH
> 
> Dave Kahn, ABB Steward Ltd.
> 
> 
> +---
> | 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
> +---
+---
| 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
+---