RE: Subfile Question

["Debbie Panco" <dpanco43@xxxxxxxxxxxxx>]

Hmmm.... I don't recall if the program is doing an SFLINZ or writing
each record.  Will have to check that.  In either case your CHECK(FE)
may just do the trick.  Will test it out.

Thanks much,

Debbie Panco
Senior Systems Analyst / Project Leader
United Consumer Financial Services
865 Bassett Road
Westlake, Ohio 44142
dpanco43@xxxxxxxxxxxxx
440-835-6674


-----Original Message-----
From:   midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Joe Pluta
Sent:   Wednesday, June 18, 2003 9:35 AM
To:     Midrange Systems Technical Discussion
Subject:        RE: Subfile Question

> From: Debbie Panco
>
> I have a subfile (say max size of 36 with 12 lines per page).
> (snip)
> Short of
> giving him only 1 page worth that he has to fill in at a time (and hitting
> enter at the end of each page), does anyone know of a way (a subfile
> keyword?) that will allow the auto advance to the next field but will not
> go to the top of the subfile if that auto advance field is the last field
> in the subfile?

Are you using SFLINZ, or are you actually writing the records to the subfile
yourself?

In any case, the trick is to set the CHECK(FE) attribute on the last field
of the last record of each page.  If you're filling the subfile yourself
with blank records, simply set an indicator to *ON on records 12, 24 and 36,
and *OFF everywhere else: eval *in41 = (%rem(rrn:12) = 0).  Use this
indicator to condition the CHECK(FE) attribute.  This will force a field
exit to exit the screen, and otherwise, will just hang on the last character
of the field and turn on the dreaded input inhibited.

With SFLINZ, I believe you can CHAIN out to the subfile and update the
individual records.  So do SFLINZ with the indicator off, then CHAIN to
records 12, 24 and 36, set the indicator on, and UPDATE each one.  This I'm
a little less clear on <grin>.

Joe

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.