× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Marvin,

>The error you are probably getting is no such window on the screen or
something like that.
Yes.  Thank you!

My:
Write WdwSfl;   
Write WdwCtl;   
Write Wdw;              

Should be:
Write WdwSfl;
Write Wdw;
Write WdwCtl;

That works.
Thanks again everyone for your help.

Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marvin Radding
Sent: Thursday, May 26, 2005 12:11 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Processing... Please Wait... But with a subfile

Kurt,

Your window keyword in the WDWCTL record seems to be wrong if I
understand it correctly.  You need a full definition of the window in
this control records and a reference to it in the WDW record. The error
you are probably getting is no such window on the screen or something
like that.  That means you haven't written the foundation record to the
screen first.  After that you can write any or all records that use the
foundation record as a reference.  Here is the way that I usually code a
window with an error message line:

     A*---------------------

     A* BASIC SUBFILE WINDOW

     A*---------------------

     A          R WDW20S                    SFL

     A*%%TS  SD  20050525  045149  MARVINR     REL-V5R1M0  5722-WDS

     A            SCSEL          1A  B  4  2DSPATR(HI)

     A            SC10ITEM  R        O  4  5REFFLD(ITREC/ITITEM
*LIBL/MFITEM)       
     A                                      COLOR(TRQ)

     A            SC10DESC  R        O  4 14REFFLD(ITREC/ITDESC
*LIBL/MFITEM)       
     A                                      COLOR(TRQ)

     A*--------------------------------------

     A* BASIC SUBFILE WINDOW CONTROL RECORD

     A*--------------------------------------

     A          R WDW20C                    SFLCTL(WDW20S)

     A*%%TS  SD  20050525  094210  MARVINR     REL-V5R1M0  5722-WDS

     A                                      PAGEDOWN(16)

     A                                      RTNCSRLOC(*RECNAME &#RECORD
&#FIELD-    
     A                                       &#POSITION)

     A                                      OVERLAY

     A  75                                  SFLDSP

     A N76                                  SFLDSPCTL

     A  76                                  SFLCLR

     A  77                                  SFLEND(*MORE)

     A                                      SFLSIZ(0050)

     A                                      SFLPAG(0009)

     A                                      WINDOW(2 2 15 43 *NOMSGLIN)
<<<<<<<<<<<<<< This is the foundation window statement         
     A                                      WDWTITLE((*TEXT ' ADD ITEM
') (*CO-   
     A                                      LOR YLW) (*DSPATR RI)
*CENTER)         
     A                                      WDWTITLE((*TEXT ' SELECT
ITEM AND P-   
     A                                      RESS ENTER ') (*COLOR YLW)
(*DSPATR-   
     A                                       RI) *CENTER *BOTTOM)

     A            #RRN10         4  0H      SFLRCDNBR

     A            #POSTION       4S 0H

     A            #POSITION      4S 0H

     A            #FIELD        10A  H

     A            #RECORD       10A  H

     A                                  2  1'Sel Item #   Description
-   
     A                                               '

     A                                      COLOR(YLW)

     A                                      DSPATR(RI)

     A            FL10ITEM  R        B  3  5REFFLD(ITREC/ITITEM
*LIBL/MFITEM)     
     A                                      DSPATR(HI)

     A                                      CHANGE(60)

     A            FL10DESC  R        B  3 14REFFLD(ITREC/ITDESC
*LIBL/MFITEM)     
     A                                      DSPATR(HI)

     A                                      CHANGE(60)

     A*----------------------------------------

     A* BASIC ERROR MESSAGE SUBFILE IN A WINDOW

     A*----------------------------------------

     A          R WDW20SE                   SFL

     A*%%TS  SD  20030707  104653  MARVINR     REL-V5R1M0  5722-WDS

     A                                      SFLMSGRCD(15)

     A            MSGKEY                    SFLMSGKEY

     A            QM_MSGQ                   SFLPGMQ(10)

     A*------------------------------------------------------

     A* BASIC ERROR MESSAGE SUBFILE CONTROL RECORD

     A*----------------------------------------------------

     A          R WDW20CE                   SFLCTL(WDW20SE)

     A*%%TS  SD  20030716  153545  MARVINR     REL-V5R1M0  5722-WDS

     A                                      SFLSIZ(0002)

     A                                      SFLPAG(0001)

     A                                      WINDOW(WDW20C)    <<<<<<<<<
This is the reference to the foundation window.                     
     A                                      OVERLAY

     A                                      SFLDSP

     A                                      SFLDSPCTL

     A                                      SFLINZ

     A  98                                  SFLEND

     A            #POSITION      4  0H

     A            #FIELD        10   H

     A            #RECORD       10   H

     A            QM_MSGQ                   SFLPGMQ(10)

     A                                 14  1'F3=Exit  F12=Cancel'

     A                                      COLOR(BLU)

 


The foundation window must be written to the screen first or you will
get a window not found error.

Marvin


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kurt Anderson
Sent: Thursday, May 26, 2005 9:41 AM
To: RPG programming on the AS400 / iSeries
Subject: Processing... Please Wait... But with a subfile

I just read the thread about informing the user that processing is
occurring.  My options include sndpgmmsg or issuing a Write (w/FrcDta
keyword on record format).   I want to go with the latter, and I'm
looking to do a little bit more.  I'd like to display a subfile as it's
being built w/o waiting for the user.  Essentially the user would see
the 'processing...' message above the subfile column headings, but would
also see any exception messages pop up at the same time.   At the end,
the window footer would display command keys appropriate to the result
of the processing.
 
My window is as such:
 
 * subfile
A R WdwSfl
 
 * subfile control (header)
A R WdwCtl    SflCtl( WdwSfl )
A                   Window(Wdw)
A                   FrcDta
A    96            SflDsp
A  N98            SflDspCtl
A    98            SflClr
A    96            SflEnd( *ScrBar )
 
 * window definition (footer)
A R Wdw
 
In the code:
// build record to write to subfile
SflClr = *Off               (in98)
WdwSflDsp = *On;     (in96)
WdwRRN += 1;
Write WdwSfl;
Write WdwCtl;    <------- error
Write Wdw;
 
If I remove the error statement, I only get a window (subfile is not
displayed).
 
Thanks,
 
Kurt Anderson
Application Developer
Highsmith Inc.
W5527 State Road 106, P.O. Box 800
Fort Atkinson, WI 53538-0800
TEL (920) 563-9571  FAX (920) 563-7395
EMAIL kjanderson@xxxxxxxxxxxxx
 
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.