RE: Windowed subfile

[<johnking@xxxxxxx>]

   This template works for us - JK

       
   A*--------------------------------------------------------------         
        A          R SFL                       SFL
        A                                      TEXT('Subfile')
        A            S_SEL          1A  B  5  1DSPATR(UL)
        A  80                                  COLOR(WHT)
        A  80                                  DSPATR(PC)
        A            S_FIELD   R   37   O  5  3REFFLD(myfield)
       
   A*--------------------------------------------------------------         
        A          R CTL                       SFLCTL(SFL)
        A                                      SFLSIZ(0011)
        A                                      SFLPAG(0010)
        A                                      WINDOW(FTR)
        A                                      WDWBORDER((*DSPATR RI))
        A                                      TEXT('Ctl panel')
        A                                      CHANGE(93 'a field was
   changed')
        A                                      RTNCSRLOC(&RCDNAM &FLDNAM)
        A                                      OVERLAY
        A  91                                  SFLDSP
        A                                      SFLDSPCTL
        A  90                                  SFLCLR
        A  92                                  SFLEND
        A            RCDNBR         4S 0H      SFLRCDNBR
        A            RCDNAM        10A  H
        A            FLDNAM        10A  H
        A                                  1  1'Panel1'
        A                                  1 21'Screen heading '
        A                                      COLOR(WHT)
       
   A*--------------------------------------------------------------         
        A          R FTR
        A                                      WINDOW(7 5 16 72 *NOMSGLIN)
        A                                      TEXT('Command key legend')
        A            F_MESSAGE     70A  O 15  1DSPATR(HI)
        A  97                                  DSPATR(RI)
        A            F_FKEYLIT     70A  O 16  1TEXT('Command key list')
        A                                      DSPATR(UL)
        A                                      DSPATR(RI)
       
   A*--------------------------------------------------------------         
        A          R DUMMY
        A                                      OVERLAY
        A                                      ASSUME

   On Wed Jul 18 10:15 , 'Doug Palme' sent:

     Jeff,
     Do I still define the footer record as a window with the same dimensions
     as
     the subfile or just define it as a record?

   ---- Msg sent via Internet America Webmail -
   http://www.internetamerica.com/