Yes I have done that. Here is a part of the DDS where I am doing that and it works fine.
This part is at the top of the source
A DSPSIZ(27 132 *DS4 +
A 24 80 *DS3)
Then all my record formats have something like this and 05 is used to to control what size to display
A R FMT1
A 05 DSPMOD(*DS3)
Then the error message subfile looks like this
A* Make sure you have the *DS3 and *DS4 attached to the
A* SFLMSGRCD because this will tell the system what line
A* the error message subfile is on. The *DS3 and *DS4
A* are referred to as display size condition names.
A*
A* Then make sure you have the DSPMOD(*DS3) in the
A* MSGCTL format too.
A***********************************************************
A*
A R MSGRCD SFL
A *DS3 SFLMSGRCD(24)
A *DS4 SFLMSGRCD(27)
A NOTUSD SFLMSGKEY
A METOO SFLPGMQ
*
A R MSGCTL
A* Make sure you have the DSPMOD(*DS3) in this format too
A 05 DSPMOD(*DS3)
A SFLCTL(MSGRCD)
A OVERLAY
A SFLDSP
A SFLINZ
A N89 SFLEND
A SFLSIZ(2)
A SFLPAG(1)
A @PGMQ SFLPGMQ
*
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of DEnglander--- via RPG400-L
Sent: Monday, October 9, 2023 11:21 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Cc: DEnglander@xxxxxxxxxxxxxxx
Subject: Message subfile with WINDOW and DSPMOD
I am rewriting a window pop-up program to allow it to display on either
24x80 or 27x132 based on a parameter passed into the ILERPG program.
When the program is called for 24x80 I have the window one size, and when it is called for 27x132, the window is longer on the screen [more rows], but not any wider.
I want to have a message subfile also appear within the pop-up, but have it display on a line within the 24x80 size, but two or 3 lines lower on the 27x132 screen size.
I was thinking of using SFLMSGRCD and passing a program defined field to it to contain the dynamic line number, but that option is not allowed with the SFLMSGRCD keyword.
Has anyone done this? I am thinking the only way to do this is to define two DSPF formats for this pop-up, with the different SFLMSGRCD values, but that seems redundant.
Thank you,
Doug
"CONFIDENTIALITY NOTICE: This e-mail transmission (and/or the attachments accompanying it) contain confidential information belonging to the sender. The information is intended only for the use of the intended recipient. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or the taking of any action in reliance on the contents of the information is strictly prohibited. Any unauthorized interception of this transmission is illegal under the law. If you have received this transmission in error, please promptly notify the sender by reply e-mail, and then destroy all copies of the transmission."
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
[NOTICE: This message originated outside of the MCIS Mail System -- DO NOT CLICK on links or open attachments unless you are sure the content is safe.]
The information contained in this electronic message may be privileged and/or confidential information and is intended only for the use of the individual(s) to whom this electronic message is addressed. If the reader of this message is not the intended recipient, or the employee or agent responsible to deliver it to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this electronic communication or any attachment thereto is strictly prohibited. If you have received this electronic communication in error, you should immediately return it to us and delete the message from your system. Thank you
midrange.com
