AS400 DSPF Overlay

41380 pts.
Tags:
AS/400
I'm having problems with a simple overlay issue. I have a screen where a user can do an F4 and a window of the values from a table will appear in a SFL. All works well; except the new wilndow does not overlay the previous screen. THe old screen goes away and I just have this small window on my screen. I know I have done thie before. The key issue here is the when F4 is used, it calls a new program so this window is not in the intial DSPF. Here is the code. A                                      CA03(03)                       A                                      CA12(12)                       A          R SFL01                     SFL                            A            SETMETHOD     10   O 05  2                               A            SETMETHDSC    30   O 05 13                               A            SETMETHFLE     1   O 05 45                               A          R SFC01                                                    A                                      OVERLAY                        A                                      WINDOW(4 25 16 48)             A                                      SFLCTL(SFL01)                  A                                      SFLSIZ(0020)                   A                                      SFLPAG(0010)                   A                                      SFLDSP                         A                                      SFLDSPCTL                      A            DSPRCD         3S 0H      SFLRCDNBR(CURSOR)              A                                  1  2'SETMETHD4'          COLOR(WHT) A                                  1 16'The Members Group'  COLOR(WHT) A                                  1 40DATE  EDTCDE(Y)      COLOR(WHT) A                                  2  2'SFC01'              COLOR(WHT)A                                  2 16'Settlement Methods' COLOR(WHT) A                                  2 40TIME                 COLOR(WHT) A                                  4  2'Method'             COLOR(WHT) A                                  4 13'Description'        COLOR(WHT) A                                  4 43'File'               COLOR(WHT) +++++++ FSETMETHDB IF   E           K DISK    Prefix(F_)        FSETMETHD4 CF   E             WORKSTN Prefix(S_)        F                                     SFILE(SFL01:RR1)   * Define Variables                                     D RR1             S              3S 0                    *******************************************************  * Mainline Routine                                      *******************************************************  /Free                                                     // Fill the subfile.                                          Exsr  srFillSf;                                                                                          // Write/Read the Subfile                                  S_DSPRCD = 1;                                           Exfmt Sfc01;                                                                                                 // Get of job - Set Indicator to exit                      *InLr  = *On;        //  *                                      //  Subroutine: srFillSf                   //  *                                          begsr srFillSf;                          // Now Fill the Subfile                             Setll *Loval SetMethDb;                    Read         SetMethDb;                DoW Not %EOF;                                  S_SETMETHOD  = F_SETMETHOD;                S_SETMETHDSC = F_SETMETHDSC;               S_SETMETHFLE = F_SETMETHFLE;               RR1      = RR1 + 1;                        WRITE      SFL01;                          Read       SetMethDb;                  EndDo;                                    EndSr;                              /End-Free                                                                    [/pre]

Software/Hardware used:
V7R1 AS400</pre>

Answer Wiki

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

Thanks guys
That worked

Discuss This Question: 4  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
  • philpl1jb
    Charlie Not overlay. Need a dummy record with KEEP and ASSUME keywords in the original display file. Don't actually need to do anything with that record. "Why couldn't McCovey have hit the ball even two feet higher?" Phil
    50,205 pointsBadges:
    report
  • TomLiotta
    KEEP often isn't needed in the dummy format, though I haven't worked out when it is. It also seems that the dummy format actually needs a field to be defined -- I usually just define a blank constant field. Tom
    125,585 pointsBadges:
    report
  • CharlieBrowne
    [...] CharlieBrowne is working on an AS400 DSPF Overlay but runs into some problems. Turns out, he doesn’t need an overlay at [...]
    0 pointsBadges:
    report
  • CharlieBrowne
    [...] CharlieBrowne is working on an AS400 DSPF Overlay but runs into some problems. Turns out, he doesn’t need an overlay at [...]
    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