Screen Flashes (Convert RPG to ILE use WINDOW keyword)

[cvjoyce]

I have several programs that have a Function Key for an Inquiry pop up window. I converted the programs from RPG to ILE. The windows were hard code to form the window border. I changed them to use the WINDOW keyword and got rid of all the hard coding for the border. When I test the pop up windows they look fine. But, when I page down to see additional records the screen flashes (the pop up window disappears for a second and then reappears with the next page of records). Does anyone know if there is a way to prevent the screen from flashing. The original versions of code did not result in any screen flashing when paging down.




RPG converted to ILE ( I replaced the READ with an EXFMT)


C* Display Format
C EXSR WS$MAD
C WRITE MRR037D2
C WRITE MRR037D3
C*********** READ MRR037D2 98
C EXFMT MRR037D2




Display File Source

A DSPSIZ(24 80 *DS3)
A PRINT
A HELP(25 'Display Help Text.')
A*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A R MRR037D1 SFL
A*%%TS SD 20081203 134759 REL-V5R4M0 5722-WDS
A 63 SFLNXTCHG
A DFSSEL R B 5 2REFFLD(##A001 DMSREF)
A N31
AO 60N61 DSPATR(ND)
A 60N61 DSPATR(PR)
A INDTXT(60 'PR,NC')
A 63 DSPATR(PC)
A 63 DSPATR(RI)
A SFTYPE R O 5 4REFFLD(TNTYPE MPTN)
A SFTEXT R O 5 8REFFLD(TNTEXT MPTN)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A R MRR037D2 SFLCTL(MRR037D1)
A*%%TS SD 20081125 163348 REL-V5R4M0 5722-WDS
A SFLSIZ(0011)
A SFLPAG(0010)
A WINDOW(5 46 16 28)
A WDWBORDER((*COLOR BLU) (*DSPATR HI -
A RI) (*CHAR ' '))
A WDWTITLE((*TEXT 'Tender search -
A MRR037D'))
A WDWTITLE((*TEXT 'F3=Exit') *LEFT *B-
A OTTOM)
A CA03
A BLINK
A OVERLAY
A PUTOVR
A N39 ROLLUP(27 'ROLLUP')
A N31 ERASE(MRR037D1)
A 31 SFLDSP
A N30 SFLDSPCTL
A 30 SFLCLR
A**
A DFS1RR 4S 0H SFLRCDNBR(CURSOR)
A 1 17'(?) S=Select'
A COLOR(WHT)
A 2 2'Type'
A DFTYPE R B 2 7REFFLD(TNTYPE MPTN)
A 60N61 DSPATR(PC)
A OVRDTA
A OVRATR
A 4 2'?'
A DSPATR(UL)
A DSPATR(HI)
A N31
AO 60N61 DSPATR(ND)
A OVRATR
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A R MRR037D3
A OVERLAY
A ASSUME
A CA03
A 21 49'F3=Exit'
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A R MSGSSFL SFL
A SFLMSGRCD(24)
A DFMKEY SFLMSGKEY
A DFMQUE SFLPGMQ
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A R MSGSCTL SFLCTL(MSGSSFL)
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLINZ
A 99 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A DFMQUE SFLPGMQ
****************** End of data ****************************************

 

[cvjoyce]

Resolved it. The program was loading a page at a time via a field defined as 3, 0 being set to 10. I changed it to populate it with 999. The screen doesn't flash now when I page down.