|
RRNA is set up as hidden field on the window subfile control rec. The subfile rrn "sflrnd" is separate. If I dont get a hit on READC of subfile for normal keybroad "1" = selection I check IF RRNA > 0 RRNA CHAIN SUBFILEREC move in values from subfile then LEAVE exit pgm The Permanant I/O happen after return to main display and user clicks around screen with mouse. I think it is getting junk data when rstdsp *yes is on and the write of a common I header record then exfmt of I/O bottom record. This sytem here is a bad mix of RPGII from S/36,RPGII, RPGIV, RPGILE and alot of "PGMR STYLES". Window subfile with mouse buttons is RPGIV. Main Display is converted/changed S/36 code. Think I need to add KEEP OVERLAY USRSTDSP to Window Control record, KEEP OVERLAY to it Window record, and crt with RSTDSP *NO then change S/36 main display write of header record to KEEP and Exfmt bottom record to KEEP OVERLAY crt with rstdsp *no?? Any other ideas?? Thanks Bill H. -----Original Message----- From: Teijgeler [mailto:coteijgeler@chello.nl] Sent: Friday, August 23, 2002 12:34 PM To: rpg400-l@midrange.com Subject: RE: Keep background screen on display when using window keyword Bill, No sample code, sorry for that. I see you are using SFLCSRRRN and SFLRCDNBR. Does your programme move the value of RRNA into SFLDSP? If that is so, you should check the value of RRNA. If user click the mouse outside the area of the SFL, RRNA will have the value of 0 (null, zero) and you cannot position a cursor on SFL record 0. That will cause a permanent I/O error. Regards, Carel Teijgeler. *********** REPLY SEPARATOR *********** On 22-8-02 at 13:27 Hopkins, Bill wrote: > When returning from window pgmb(restore display *yes, mouse button >rec selection, scroll,push buttons) to screen pgma(restore display *yes) >with a selected value for a specific subfile record and the user clicks >mutiple times, with left(enter) mouse (through client access) in non input >area of screen, they get permanant I/O error(CPF5192) on exfmt of screen. >Normal keying and mouse usage seems OK. Any ideas will be greatly welcome. > >A SFLCSRRRN(&RRNA) >A SFLPSD 4S 0H SFLRCDNBR(CURSOR) >A RRNA 5S 0H _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
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.