Hello Doug,
Maybe that helps. The following snippet has been taken from one of my window display files. It uses the *in88 indicator to switch between 80 and 132-character mode:
*----------------------------------------------------*
A R MSGSFL SFL
*%%TS SD 19990120 082705 RADDATZ REL-V4R2M0 5769-PW1
A *DS3 SFLMSGRCD(11)
A *DS4 SFLMSGRCD(12)
A MSGKY SFLMSGKEY
A PGMQ SFLPGMQ(10)
*
*----------------------------------------------------*
A R MSGCTL SFLCTL(MSGSFL)
*%%TS SD 19990120 082705 RADDATZ REL-V4R2M0 5769-PW1
A KEEP
A LOCK
A N88 DSPMOD(*DS4)
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N89 SFLEND
A *DS3 SFLSIZ(0002)
A *DS4 SFLSIZ(0004)
A *DS3 SFLPAG(0001)
A *DS4 SFLPAG(0003)
A *DS3 WINDOW(&ZEI &POS 11 46 *NOMSGLIN)
A *DS4 WINDOW(&ZEI &POS 14 56 *NOMSGLIN)
A PGMQ SFLPGMQ(10)
A ZEI 3S 0P
A POS 3S 0P
*
*----------------------------------------------------*
* RMVWDW ZUM LÖSCHEN DES WINDOWS
*
A R RMVWDW CLRL(*NO) OVERLAY FRCDTA
A N88 DSPMOD(*DS4)
*
* DER DUMMY SATZ MUSS VORHANDEN SEIN,
* AUCH WENN KEIN ZUGRIFF AUF IHN ERFOLGT !!
*
*----------------------------------------------------*
A R DUMMY ASSUME
*%%TS SD 19990120 082705 RADDATZ REL-V4R2M0 5769-PW1
A N88 DSPMOD(*DS4)
A 11 1' '
* *----------------------------------------------------*
A R MSGSFL SFL
*%%TS SD 19990120 082705 RADDATZ REL-V4R2M0 5769-PW1
A *DS3 SFLMSGRCD(11)
A *DS4 SFLMSGRCD(12)
A MSGKY SFLMSGKEY
A PGMQ SFLPGMQ(10)
*
*----------------------------------------------------*
A R MSGCTL SFLCTL(MSGSFL)
*%%TS SD 19990120 082705 RADDATZ REL-V4R2M0 5769-PW1
A KEEP
A LOCK
A N88 DSPMOD(*DS4)
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N89 SFLEND
A *DS3 SFLSIZ(0002)
A *DS4 SFLSIZ(0004)
A *DS3 SFLPAG(0001)
A *DS4 SFLPAG(0003)
A *DS3 WINDOW(&ZEI &POS 11 46 *NOMSGLIN)
A *DS4 WINDOW(&ZEI &POS 14 56 *NOMSGLIN)
A PGMQ SFLPGMQ(10)
A ZEI 3S 0P
A POS 3S 0P
*
*----------------------------------------------------*
* RMVWDW ZUM LÖSCHEN DES WINDOWS
*
A R RMVWDW CLRL(*NO) OVERLAY FRCDTA
A N88 DSPMOD(*DS4)
*
* DER DUMMY SATZ MUSS VORHANDEN SEIN,
* AUCH WENN KEIN ZUGRIFF AUF IHN ERFOLGT !!
*
*----------------------------------------------------*
A R DUMMY ASSUME
*%%TS SD 19990120 082705 RADDATZ REL-V4R2M0 5769-PW1
A N88 DSPMOD(*DS4)
A 11 1' '
*
Regards,
Thomas.
-----Ursprüngliche Nachricht-----
Von: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> Im Auftrag von DEnglander--- via RPG400-L
Gesendet: Montag, 9. Oktober 2023 18:21
An: rpg400-l@xxxxxxxxxxxxxxxxxx
Cc: DEnglander@xxxxxxxxxxxxxxx
Betreff: 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.
midrange.com
