Home > IT Answers > AS/400 > Two window AS/400 subfiles problem
RonKoontz
1,780 pts.
 Two window AS/400 subfiles problem
AS/400 Subfiles, AS400 RPGLE, DSPF, RPGLE
I have a DSPF with 2 subfiles defined as subfile windows. I need to display both of them.. I have got it to work with a full screen but no the wondow subfile. I get a error reading the first subfile. If I switch them around I get one then the other after I hit enter. Anyone have any code that works with a window subfile displaying 2 subfiles? I have been trying to figure this out all week. Thanks

Software/Hardware used:
as/400
ASKED: March 30, 2011  3:02 PM
UPDATED: April 1, 2011  10:54 PM
RELATED QUESTIONS
Answer Wiki:
Last Wiki Answer Submitted:  Be the first to answer this question.
All Answer Wiki Contributors:  Be the first to answer this question.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

I suggested in similar thread that the format name rather than the file name on the input operation be specified. I also suggested using CHAIN rather than READ.

Splat
 5,670 pts.
 

I’ve been watching this trying to determine what the screen environment looks like, what the windows might involve and what actions are desired. So far, I don’t have a clear image of much of it.

Could you please start with something like this: 

                          Work with Objects Using PDM                  DEFIANCE 
                                                                                
 Library . . . . .   TOML             Position to . . . . . . . .               
                                       .......................................  
                                       :  TOML       Escape Menu             :  
 Type options, press Enter.            :  TOML                               :  
   2=Change       3=Copy        4=Dele :  1      Send message                :  
   8=Display description        9=Save :  2      Work with current job       :  
                                       :  3      Work print output           :  
 Opt  Object      Type        Attribut :  4      Display workstation jobs    :  
      QMODSRC     *FILE       PF-SRC   :  5      WRKSBMJOB *job              :  
      QPNLSRC     *FILE       PF-SRC   :  6      IA *jobq                    :  
      QQMFORMSRC  *FILE       PF-SRC   :  7      Work Customer Info          :  
      QQMQRYSRC   *FILE       PF-SRC   :  8      Submit SS Mon               :  
      QQSHSRC     *FILE       PF-SRC   :  10     SS maint                    :  
      QREXSRC     *FILE       PF-SRC   :  11     *DSCJOB                     :  
      QRPGLESRC   *FILE       PF-SRC   :                            More...  :  
      QRPGLESRC1  *FILE       PF-SRC   :   Special  . . :   OF/SC/GJ/SO      :  
                                       :   Select . . . .                    :  
 Parameters or command                 :  F3=Exit   F6=Repos Wdw   F9=Cmd    :  
 ===>                                  :  F12=Cancel                         :  
 F3=Exit          F4=Prompt            :                                     :  
 F9=Retrieve      F10=Command entry    :.....................................:  
 0 members match the Find string in file QRPGLESRC.

That’s a straight select-all/copy/paste into a {code} block of an example screen. You might paste something similar and tell us where the two windows are and what you expect to happen when you press {Enter} or when you do whatever you’re needing to do.

Maybe things can be made clearer.

Tom

TomLiotta
 108,055 pts.