RE: top and bottom of subfile

[booth@xxxxxxxxxxxx]

At first I was thinking you meant SFLSIZ which is set in the RPG program, 
not the DDS.  I see though that you are asking for the SFLPAG. 

Since the value is fixed in the DDS I would suppose you could also set a 
hidden field on the control spec and give it a default value that matched 
the number you'd hard-wired into the SFLPAG keyword?  The value could then 
be read in by the RPG program.


_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




Peter Hotchkiss <photchkiss@garystuxshops.com>
Sent by: owner-rpg400-l@midrange.com
09/07/2000 03:07 PM
Please respond to RPG400-L

 
        To:     "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
        cc: 
        Subject:        RE: top and bottom of subfile

> Within the RPG program, unfortunately, we had to hard code the page 
size.
Does
> anyone know of a method for an RPG program to retrieve the subfile page
size?

I've checked on this in the past 'cause I also wanted to avoid hard-coding
that value and found that there is an API way to retrieve the subfile page
size, but it gets kinda messy.

(I'm referencing V4R4 manuals)

In the System API Reference, page's 34-117 - 34-181 details the Retrieve
Display File Description API in the Work Management chapter.  This 
includes
a complete description of all the various control/record formats that are
returned.

The actual SFLSIZ/SFLPAG values are mentioned on page 34-130 as part of 
the
Subfile Control Entry(s) which are embedded in the Subfile Control Record,
page 34-129.

I've researched it this far, but haven't had time to take it any further 
to
actually code a routine to retrieve the info on the fly.  Someday I will.

-Pete

Peter L. Hotchkiss
IS Director
The Gary's Group, LLC
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---