Re: How to monitor for CPF4169 using RPGLE Free

Use DSPSIZ(*DS3 *DS4) at the file level and use DSPMOD (*DS4) at record
level conditioned by an indicator (This is the record of the screen that
you want to change the size to)
right after writing the screen or exfmt set the indicator of DSPMOD on,
this will change the screen from one size to another in your program.




On Wed, Jan 25, 2017 at 11:38 AM, Charles Wilt <charles.wilt@xxxxxxxxx>
wrote:

Peter,

I've done this exact same thing...I used the DSM API, Query Display Mode
Support (QsnQryModSup).

And it turns out I added this to the wiki :)
http://wiki.midrange.com/index.php/Emulator_configured_for_27x132

Charles



On Wed, Jan 25, 2017 at 8:30 AM, Vidal, Peter <Peter.Vidal@xxxxxxxxxxxxxxx

wrote:

Hi list!

Operating System: V7R1

Scenario:

a) Most of our users are using 5250 emulation sessions (default
display size: 24x80)

b) I have a screen that I have to design to be 27x132.

c) Few people have their client sessions set to be 27x132, some
don't.

Instead of going on each affected session to change the configurations
(and avoid the program to blow up) I want to:

1) Detect the session's display size

2) If the sessions display size is different from the screen size, I
want to end the program normally and inform the user that they need to
change the display size to 27x132 in order to use the program.

I am using RPG Free. Open to suggestions to accommodate this process.

Thanks in advance,
Peter Vidal
Developer AS400 | Unity Application Development, IT Revenue Cycle
Management
813.901.2378 | Fax: 813-884-2847
9119 Corporate Lake Dr., Suite 300 | Tampa, FL 33634 |

www.carecentrix.com

<http://www.carecentrix.com/>
[cid:image001.png@01D276F4.A75C7D80]


________________________________
This communication is intended only for the use of the individual or
entity named as the addressee. It may contain information which is
privileged and/or confidential under applicable law. If you are not the
intended recipient or such recipient's employee or agent, you are hereby
notified that any dissemination, copy or disclosure of this communication
is strictly prohibited. If you have received this communication in error,
please immediately notify CareCentrix Compliance Hot Line at (877)
848-8229 and notify the sender by electronic mail. Please expunge this
communication without making any copies. Thank you for your cooperation.
--
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: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://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

--
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: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://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