Determining *DS4 support

["Westdorp, Tom" <tom.westdorp@xxxxxxxxxxxxxxxxxx>]

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).  I'm using the QsnQryModSup API in the QSNAPI service program
and asking for display mode 4 and indicator 1 and I always get 0 as the
return value mode indication (from CAE using either 27 x 132 or 24 x 80
configurations).

D QryDspMode      PR                  ExtProc('QsnQryModSup')
D  p_DspMode                     1a   Const                  
D  p_ModeInd                     1a   Const                  
D  p_LowLvlHdl                  10i 0 Const                  
D  p_Error                            Like(DS_APIError) Const
D  p_RtnInd                     10i 0                   

D w_DspMode       S              1a   inz('4')          
D w_ModeInd       S              1a   inz('0')          
D w_LowLvlHdl     S             10i 0 inz(0)            
D w_Error         S                   Like(DS_APIError) 
D w_RtnInd        S             10i 0                   

C                   CallP     QryDspMode(w_DspMode :   
C                                        w_ModeInd :   
C                                        w_LowLvlHdl : 
C                                        DS_APIError : 
C                                        w_RtnInd )    

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 
  
IBM Certified Specialist - RPG IV Programmer
IBM Certified Specialist - RPG IV Developer 
Certified Master RPG IV Programmer 
Internal Telephone # 04-6859
Voice: (702) 221-6859
Fax:    (702) 221-6881
tom.westdorp@stationcasinos.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
+---