Re: Window Subfiles

["Paula Ewald" <pewald@xxxxxxxxxxx>]

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
+---