[SYS21] Re: JBA Explorer windows

[Jeff_Klipa/Harvard@xxxxxxxxxxxxxx]

Angus,

When compiling display formats it may be necessary to set the keyword RSTDSP to
*YES...

       Restore display (RSTDSP) - Help

Specifies whether data being shown at a display device by
this display file is saved at the time the file is
suspended (made temporarily inactive) so that another
display file can show different data on the same device.
If the data for this file is saved, it is restored to the
display of the device when the file is used again.

The possible values are:
*NO  <---  this is the IBM default...
*YES  <---  we change our compile command to use this as a default...

Hth...







grahame.ward@xxxxxxxxxxxxxxxxxxxxxxxxxx on 03/05/2003 09:31:33 AM

Please respond to "GEAC/JBA System 21 Users" <jbausers-l@xxxxxxxxxxxx>
                                                              
                                                              
                                                              
  To:          GEAC/JBA System 21 Users                       
               <jbausers-l@xxxxxxxxxxxx>                      
                                                              
  cc:          (bcc: Jeff Klipa/Harvard)                      
                                                              
                                                              
                                                              
  Subject      [SYS21] Re: JBA Explorer windows               
  :                                                           
                                                              






Following is some DDS for a pop-up prompt window that works fine (e.g. you
can drag the window about) in System 21 explorer. It is a proper DDS
window not the pseudo window as in System 21. Hope it helps.

Grahame Ward
Pimpernel International


A                                      DSPSIZ(24 80 *DS3)
A                                      REF(*LIBL/RYREF)
A                                      CA12(12)
A                                      PRINT
           R F01SFL                    SFL
   33                                  SFLNXTCHG
             OPTNS1         1A  B  2  1
                                       CHECK(ER)
                                       VALUES(' ' '1')
                                       DSPATR(UL)
   35                                  DSPATR(PC RI)
             DSGCS1    R   -3   O  2  4REFFLD(DSGN01 RYP01)
             DESCS1    R        O  2 10REFFLD(DESC01 RYP01)
             DSGNS1    R        H      REFFLD(DSGN01 RYP01)
A          R F01CTL                    SFLCTL(F01SFL)
A                                      SFLSIZ(0012)
A                                      SFLPAG(0011)
A                                      WINDOW(F01WIN)
A                                      ROLLUP(26 'Roll Up')
A                                      BLINK
A                                      OVERLAY
A N30                                  SFLCLR
A  30                                  SFLDSPCTL
A  31                                  SFLDSP
A  32                                  SFLEND(*MORE)
A            SRN01          4S 0H      SFLRCDNBR(CURSOR)
A            SCR01          5S 0H      SFLSCROLL
A                                  1  1'S  Design'
A                                      DSPATR(HI)
A                                  1 17'Search for..'
A                                      DSPATR(HI)
A            SRCHDS        10   B  1 30CHECK(LC)
A  50                                  DSPATR(RI)
A  50                                  COLOR(WHT)
A          R F01WIN
A                                      BLINK
A                                      OVERLAY
A                                      WINDOW(4 30 15 39 *NOMSGLIN)
A                                      WDWBORDER((*COLOR GRN) (*DSPATR
RI)-
A                                       (*CHAR '        '))
A                                      WDWTITLE((*TEXT 'Select Design'))

A                                      WDWTITLE((*TEXT 'F12=Previous')
*BO-
A                                      TTOM)
A                                 14  1' -
A                                           '
A                                      DSPATR(UL)
A                                      COLOR(BLU)
A                                 15  1'1=Select'
A                                      COLOR(BLU)
A  50                             15 14'No Records Match Search'
A                                      COLOR(WHT)
           R @ASSUME
                                       ASSUME
                                       OVERLAY
                                   1  2' '
           R @KEEP
                                       KEEP
                                       OVERLAY
_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/jbausers-l
or email: JBAUSERS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.