Re: Getting the field attributes of a subfile record

[david.kahn@xxxxxxxxxxxxxxxxxx]

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