× 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.


  • Subject: Re: Window Subfiles
  • From: "Paula Ewald" <pewald@xxxxxxxxxxx>
  • Date: Tue, 12 Sep 2000 08:13:43 -0500




Place the window keywords describing the window in record format WINCDEB1.
 Place the WINDOW(WINCDEB1) keyword referencing the window in the subfile
control
 record.

     A          R WINCDEB1                  OVERLAY
     A                                      WINDOW(4 16 18 50 *NOMSGLIN)
     A                                      WDWBORDER((*COLOR BLU) (*DSPATR
     A                                      HI RI) (*CHAR '        '))
     A            B01FKEY       49   O 21 18COLOR(BLU)
     A            B01MSGLN      49   O 22 18COLOR(WHT)

     A* SCREEN 1 SUBFILE
     A*
     A          R WINCDES1                  SFL
     A            S01ACT         2A  B  8  2COLOR(WHT)
     A  32                                  DSPATR(RI)
     A  32                                  DSPATR(PC)
     A            S01CDE    R        O  8  7REFFLD(FRFSTS)
     A            S01CDESC  R        O  8 13REFFLD(FRFLNME)
     A*
     A* SCREEN 1 SUBFILE CONTROL
     A*
     A          R WINCDEC1                  SFLCTL(WINCDES1)
     A                                      SFLSIZ(0008)
     A                                      SFLPAG(0007)
     A                                      WINDOW(WINCDEB1)
     A  12                                  CF12(12 'F12=Cancel')
     A                                      OVERLAY
     A N72                                  SFLDSP
     A N71                                  SFLDSPCTL
     A  71                                  SFLCLR
     A  73                                  SFLEND(*MORE)
     A                                      RMVWDW
     A            S01RRN         4S 0H      SFLRCDNBR(CURSOR)
     A                                  1 17'Look Up Processing'
     A                                      COLOR(WHT)
     A                                  3  2'Select Action Code then Press
Ente-
     A                                      r:'
     A                                  6  2'Act'
     A                                  6  7'Code'
     A                                  6 13'Description'
     A            C01ACT         2A  B  7  2COLOR(WHT)
     A  30                                  DSPATR(RI)
     A  30                                  DSPATR(PC)
     A            C01CDE    R        B  7  7REFFLD(FRFSTS)
     A                                      COLOR(WHT)
     A  31                                  DSPATR(RI)
     A  31                                  DSPATR(PC)
     A            C01ACT1       49A  O  4  2COLOR(BLU)
     A            C01ACT2       49   O  5  2COLOR(BLU)



+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

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.