Re: Using DSPSIZ keyword

Thomas,

Is this what you are looking for?


* A DSPSIZ(27 132 *DS4
-*
* A 24 80 *DS3)*
* A CHGINPDFT(UL)*
* A R FORMATH0*
* A*%%TS SD 20151204 113018 RICHARC REL-V7R1M0 5770-WDS*
* A KEEP*
* A PROGRAM 10A O 1 2*
* A 1 57'Program Title One'*
* A COLOR(WHT)*
* A *DS3 1 31*
* A OUT_DATA1 20A O 1111*
* A *DS3 1 59*
* A 2 51'Program Description One'*
* A COLOR(WHT)*
* A *DS3 2 25*


This program was a bit of a one-off so I took a pragmatic approach

I used one subfile only and put the most important field first. I found
that the system was quite happy to ignore anything defined outside 80 bytes
when on an 80 wide display, without error.
In order to access the extra details on the subfile line in 80 wide mode, I
coded a small window for 5=Display. For users on the 132 display all the
details were already shown.

So - the subfile control:

* A *DS4 SFLSIZ(0016)*
* A *DS3 SFLSIZ(0013)*
* A *DS4 SFLPAG(0015)*
* A *DS3 SFLPAG(0012)*

Because fields in output positions past 80 get dropped from the subfile on
the smaller display size, any of those fields that you might want access to
from the subfile you would need to store in an additional hidden subfile
field.

regards,
Craig



On 17 April 2018 at 06:10, Booth Martin <booth@xxxxxxxxxxxx> wrote:

One other solution I have used with some success is to have two subfile
fields: SFLFIELD76 and SFLFIELD128. define two data structures that are 76
and 128. Fill those, and display the appropriate SFLFIELDnnn. The
advantage for that, in my opinion, is that you can define as many data
structures as you want, thus ordering the columns in a variety of
meaningful ways for your users.


On 4/16/2018 10:52 PM, Thomas Garvey wrote:

...

Guess I'll just do the separate record format method. Ho-hum.

Best Regards,

Thomas Garvey

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD