| Reader's Clinic - Screen Width |
| Screen Grabber |
| Reader's Clinic - Slow Multivalued Screen Display |
| Utility Diskette # 4 |
| Prompt Help |
| QTIPS - Improved Menu Help 1 |
| QTIPS - Improved Menu Help 2 |
| @ATTACK - @Macro.Hex |
| Playing with Scan Codes |
| Uncommon Knowledge - WC_Detail_Help% |
| Uncommon Knowledge - WC_Protect_Help% |
| Vroom |
| QTIPS - Replacing GAS.BAR routine during PERFORM "SELECT" |
| QTIPS - Extended Select BY |
| QTIPS - PERFORM Arguments and FMT Specifications |
| What's New (and un(der)documented!) In 2.12 |
| Gas Bar |
| VERBatim - V9 |
| @ATTACK - @Rec.Count |
| QTIPS - Replacing GAS.BAR routine during PERFORM "SELECT" |
| A RevTI Techie Replies - Mike Pope - Revelation Technologies (UK) Ltd |
| Gas Bar |
| @ATTACK - @Rn.Counter |
| QTIPS - Replacing GAS.BAR routine during PERFORM "SELECT" |
| QTIPS - Inconsistent @Variable Behaviour |
| Reader's Clinic - Fixing %Windows% Using Depend.Update |
| QTIPS - Updating Indexes |
| How Indexes Are Updated |
| REVMEDIA Revisted |
| Gas Bar |
| @ATTACK - @Rec.Count |
| QTIPS - Replacing GAS.BAR routine during PERFORM "SELECT" |
| A RevTI Techie Replies - Mike Pope - Revelation Technologies (UK) Ltd |
| Bugs and PCs - Xlate with Multipart Keys |
| VROOM - Window Processing II |
| Indexing on Xlates |
| Collector Windows |
| QTIPS - Reusing Symbolics in Windows |
| QTIPS - Hiding Symbolic Source Code |
| Playing with Scan Codes |
| QTIPS - Compiling Protection Code |
| QTIPS - Invalid Code and Command |
| QTIPS - Code/Command Help |
| Compiling 64K on a Shoestring by Blaise Wrenn (LexStat Systems Ltd) |
| Catalyst |
| @ATTACK - @Ans |
| QTIPS - Compiling Work around on runtimes |
| QTIPS - Potential Problem When Using @ANS |
RevMedia FKB
| Document | V3I8A11 |
| Title | QTIPS - Replacing GAS.BAR routine during PERFORM "SELECT" |
| Keywords | GAS.BAR PERFORM SELECT @RN.COUNTER @REC.COUNT DISPLAY_PROGRESS @SENTENCE |
| Text | Mike Pope of Revelation Technologies (UK) Ltd in conjunction WITH David Kralman of the Seattle RUG has contributed one of those earth shattering tips that have you kicking yourself asking why you never saw it For those who have not seen this tip before : In one of our applications we have disabled the status line completely and use our own routine to provide bottom screen line help This works perfectly when called as a preprompt FROM Window or FROM within our menu driver however it does not cater for the "Gas Bar" display used when performing a select Previously it had been necessary to display a "Please Wait" message and then just perform the select A routine had already been developed (DISPLAY_PROGRESS) which working off a record count in LABELLED common and @RN Counter graphically plotted the progress of a Readnext LOOP on screen DISPLAY_PROGRESS has three call types @RN Counter = 0 initialise; @RN Counter = Record Count tidy up screen; Otherwise update display What was needed was a way to call the initialise and the update FROM within the PERFORM "SELECT" the tidy up would be done automatically when @RN Counter reached @Rec Count The solution was elegant simplicity Simply create a symbolic on the dict of Voc called GAS_BAR which has code similar to the following pseudo code If @SENTENCE # "Done" Then Get Reccount for file Initialise @RN Counter to 0 Call custom gas bar PASSING rec count Set @SENTENCE to "Done" End Else Call custom gas bar End @ANS = 1 and then PERFORM "SELECT FILE BY FIELD WITH GAS_BAR AND WITH REST_OF_CRITERIA" The position of WITH GAS_BAR is irrelevant as it still gets processed regardless of whether other WITHs fail (Worth bearing in mind if you are selecting on two complex symbolics it might be worth selecting WITH one and then selecting on the resolved list WITH the other so as not to evaluate both symbolics for all records) (Volume 3 Issue 8 PAGE 10) |
Page last modified: 31/01/03