× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.