Subfile Control Text

Tags:
RPG
I process a selection from my subfile that requires a new screen to be displayed. When the new screen is exited, the TEXT from the subfile control portion of the previous screen disappears. The values in the defined fields on that screen appears fine. Just the text is gone... Is there a keyword or something that would cause the Text not to appear after being overlayed?

Answer Wiki

Thanks. We'll let you know when a new response is added.

Check the following option on the CRTDSPF:
Restore display . . . . . . . . RSTDSP *YES

If set to *YES, it might fix the problem.

Discuss This Question: 2  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • 14mesavista
    The Compilation Parm Restore Display was the ticket! Thanks everyone!
    0 pointsBadges:
    report
  • TimHawkins
    Years ago (like 1984) I tried restore display *YES as the solution but I found that it requires that the O/S send quite a bit of data back and forth between the users workstatation (on the order of 1920 bytes for 24x80) in order to perform that magic. Confirming the adage that nothing is free. It also tended to cause the workstation to 'blink' sometimes as the restore occured. So, we found that just before every panel execute format we would write to a clear panel format, and set the putovr indicator off. If the user redisplayed the panel, the putovr indicator would be turned on, and if the user pressed F4 on anything or exited the program then we would turn it off again. No panel blinks, speed using dialup is great!, and its very easy to use. I've included example code: A R #CLRPNL TEXT('Clear panel') A 1 5' ' A* ------------------------------------------------------- A R #RECORD1 TEXT('Detail A BLINK A OVERLAY A 91 PUTOVR A CHANGE(49) A ROLLUP(56) A RTNCSRLOC(&CS A @DUSER 1A P TEXT('DSPATR A CSRREC 10A H TEXT('CURSOR A CSRFLD 10A H TEXT('CURSOR A @DSHWENV 1A P TEXT('DSPATR A 1 27'User Profile A DSPATR(&@DSHW A 4 24'Type informa A COLOR(BLU) more code... * * Reset put with override. * C eval putovr = *off * * Display the screen until exit. * C dou z2aid = exit or C z2aid = cancel or C z2aid = enter and C not error * * Display the screen. * C exsr $DspScreen more code... * * * * * * * * * * * * * * * * * * * * * * * * * * Display the screen. * * * * * * * * * * * * * * * * * * * * * * * * * Csr $dspscreen BEGSR * * Clear the screen. * C write(e) #ClrPnl C exsr $ChkPnlErr * * Message subfile and PF keys. * C write(e) #MSGCTL C exsr $ChkPnlErr C write(e) #PFKEYS C exsr $ChkPnlErr * * Show the display until the user stops pressing roll * C eval z2aid = Rolldown * C dow z2aid = rolldown or C z2aid = Rollup C select C when CurPnl = '#RECORD1' C exfmt(e) #RECORD1 C if z2aid = Rollup C eval CurPnl = '#RECORD2' C endif * more code... C endsl C exsr $ChkPnlErr C enddo * C eval putovr = *on C exsr $PMclr * Csr #dspscreen ENDSR * * * * * * * * * * * * * * * * * * * * * * * * * * * * F4=List. * * * * * * * * * * * * * * * * * * * * * * * * * * * Csr $list BEGSR * * Reset put with override. * C eval putovr = *off more code... To allow the putovr named indicator to be turned on we used the display file indicator overlay copy book as follows: * * * * * * * * * * * * * * * * * * * * * * * * * * * * Display file indicator usage overlay. * * * * * * * * * * * * * * * * * * * * * * * * * * * DIndicators ds Based(IndicatorP) D SetCsrPos 41 41n D SflDspCtl 50 50n D SflDsp 51 51n D SflEnd 52 52n D SflClr 53 53n D SflDlt 54 54n D SflInz 55 55n D FrcDta 58 58n D SflNxtChg 59 59n D VldCmdKey 90 90n D PutOvr 91 91n * D IndicatorP s * inz(%Addr(*in)) * D SflMode s like(StdInd) inz(*on)
    0 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following