Re: Determining *DS4 support

[Carel Teijgeler <teygeler@xxxxxxx>]

"Westdorp, Tom" wrote:

> I'm trying to determine if a display session is capable of 27 x 132 (*DS4)
> support when I open a program so that I can determine which subfile I
> process (one that has 30 characters of a longer string or one that has 60
> characters).

> Any ideas?  Or alternatives?  I don't want to just relocate fields based on
> the display size, I want to display a larger subset of a database field.
>
> TIA
> Tom Westdorp
> AS/400 Senior Programmer/Analyst
>

Tom,

You can use the QsnQry5250 API.
It needs 3 parms: a receiver var, length of receiver var and errorstructure.
Define the receiver var as a datastructure of 62. In subfield 'Device
Capabilities' (pos 51-62) You need to test 3 bits of the second character. Code
is like:

C           1             SUBST(P)    DEVCAP:2                 ARTB           1
C                          TESTB         '23'
ARTB                         01

Check the manual for the position of the resulting indicator. If I remember 
well,
it turns on, when both bits are *ON: it has *DSP4, otherwise it is *DSP3.

You should bind the programme with *SRVPGM QSNAPI.

Hope this put you on the way,

Regards,
Carel Teijgeler.


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