A*
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      ERRSFL
     A                                      CA03
     A                                      CA12
     A                                      CF04
     A*
     A*
     A          R SFL1                      SFL
     A* 
     A            REQUSER   R        O  5  2REFFLD(WEBTEMP2/REQUSER *LIBL/WEBTE-
     A                                      MP2)
     A            REQTS     R        O  5 17REFFLD(WEBTEMP2/REQTS *LIBL/WEBTEMP-
     A                                      2)
     A            BROWSER   R        O  5 49REFFLD(WEBTEMP2/BROWSER *LIBL/WEBTE-		
     A                                      MP2)
     A            REQFILE   R        O  5  2REFFLD(WEBTEMP2/REQFILE *LIBL/WEBTE-
     A                                      MP2)
     A*
     A*
     A*
     A          R SF1CTL                    SFLCTL(SFL1)
     A*
     A                                      SFLSIZ(0017)
     A                                      SFLPAG(0008)
     A                                      OVERLAY
     A N32                                  SFLDSP
     A N31                                  SFLDSPCTL
     A  31                                  SFLCLR
     A  90                                  SFLEND(*MORE)
     A                                      ROLLUP
     A            RRN1           4S 0H      SFLRCDNBR
     A                                  4  2'User'
     A                                      DSPATR(HI)
     A                                  4 17'Time Stamp'
     A                                      DSPATR(HI)
     A                                  4 49'Browser'
     A                                      DSPATR(HI)
     A                                  1  2'WEBHITS'
     A                                  1 26'Dynamic Sort with Embedded SQL'
     A                                      DSPATR(HI)
     A                                  1 71DATE
     A                                      EDTCDE(Y)
     A                                  2 71TIME
     A*
     A          R FKEY1
     A*
     A                                 23  2'F3=Exit'
     A                                      COLOR(BLU)
     A                                    +3'F4=Sort'
     A                                      COLOR(BLU)
     A                                    +3'F12=Cancel'
     A                                      COLOR(BLU)
     A          R WINDOW1
     A*
     A                                      WINDOW(*DFT 11 25)
     A            TAB1           1   B  3  2
     A                                  3  5'User'
     A            TAB2           1   B  4  2
     A                                  4  5'Time Stamp'
     A            TAB3           1   B  5  2
     A                                  5  5'Browser'
     A                                 10  1'F3=Exit'
     A                                      COLOR(BLU)
     A                                 10 11'F12=Cancel'
     A                                      COLOR(BLU)
     A                                  1  3'Select a sort field'
     A                                      DSPATR(HI)