RE: Getting the field attributes of a subfile record

Hidden Fields in the subfile record seem the easiest way to do this.

Ex. *in29   = hidden field IN29 1 byte alpha
anytime *in29 is set also set IN29 the same.

This way you know the status of IN29 when you read the subfile
record.  Then just set *in29 to the contents of in29 when you
update the record. It's certainly the easiest way to keep
track of those darn indicators

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of R. Bruce Hoffman, Jr.
Sent: Thursday, February 04, 1999 4:55 PM
To: MIDRANGE-L@midrange.com
Subject: Re: Getting the field attributes of a subfile record




Chandan Singh wrote:

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

Sometimes the simplest things can generate gobs of code...

Let's see...  maybe make the field larger by 1 character, use a data
structure
for that.

First character, put the attribute.  You can find these in the manuals, or
if you
have the right type of terminal, you can turn on test mode and see the hex
values
for the attributes.  For example, x'20' is standard green, x'21' is reverse
image.  You could define these as constants in your program.

Put the attribute in the first character and the rest of the data in the
remaining characters.

Now, to see if the field was reverse image when displayed, just check the
return
of the field for the x'21' character.  This could be unique for each and
every
subfile record.

Not my original idea, just an implementation of FCFC from printing.

b.
--
===========================================================
R. Bruce Hoffman, Jr. -- IBM Certified AS/400 Administrator

-- The sum of all human knowledge is a fixed constant.
    It's the population that keeps growing!


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