F*
     F** SCROLLBRIR - Test scroll bars
     F*
     F**  Originally written 07/15/2004 by James Rich
     F*
     F*
     F**  Indicators used and their purposes
     F*
     F*     50 - Display subfile records
     F*     51 - Display subfile header
     F*     52 - Clear subfile
     F*
     FSCROLLBRDFCF   E             WORKSTN
     F                                     SFILE(SCROLLBARD:SFREC#1)
     C*
     C                   seton                                        52
     C                   write     SCROLLBARH
     C                   setoff                                       52
     C                   clear                   SFREC#1           4 0
     C*
     C     1             do        100           i                 4 0
     C                   clear                   SDOPT
     C                   eval      SDTEXT = 'This is line ' +
     C                                      %trim(%editc(i:'3'))
     C                   z-add     i             SFREC#1
     C                   write     SCROLLBARD
     C                   enddo
     C*
     C                   seton                                        5051
     C                   exfmt     SCROLLBARH
     C                   setoff                                       5051
     C                   seton                                        LR