| Title: | FOCUS, from INFORMATION BUILDERS |
| Moderator: | ZAYIUS::BROUILLETTE |
| Created: | Thu Feb 19 1987 |
| Last Modified: | Mon May 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 615 |
| Total number of notes: | 1779 |
Does anyone know how to do a lookup on a partial value on a field,
such as 'Sm' to get all last names beginning with that string; then
with that listing, use up-arrow or down-arrow to select the name you
want and do a full lookup on that last name?
Any input would be greatly appreciated.
Thank you,
Dennis Mitchell
Princeton DIS
DTN 321-5182
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 164.1 | <Example from Focus Systems Journal | NRPUR::CUSACK | Wed Dec 28 1988 12:52 | 62 | |
I've seen something like what you want done, but the arrow keys
are not used to scroll, instead you must use Focus' "Hot Screen"
capability - PF7 scrolls backward, PF8 scrolls forward, and PF6
would be used to select the desired name. Once selected another
report would be run to get the detailed info. The routine I saw
is as follows:
-* Generate a TABLE request to select initial data
TABLE FILE CAR
PRINT CAR AS 'VEHICLE'
MODEL AS 'MODEL'
FOOTING CENTER
" ***************************************************"
"POSITION THE CURSOR ON THE FIRST LETTER OF THE VEHICLE"
"TO BE USED FOR YOUR DETAILED REPORT AND PRESS PF6."
"AFTER YOUR SELECTIONS ARE MADE, POSITION CURSOR ON"
"BLANKS AND PRESS PF6. PRESS ENTER TO CONTINUE"
""
"PRESS PF8 TO SCROLL FORWARD, PF7 TO SCROLL BACKWARD"
""
"PRESS PF3 TO EXIT. PRESS PF1 FOR HELP."
" ****************************************************"
END
-* Execute the stack
-RUN
-* Create a contorl loop to read the save file data"
-* (Save file = SAVE.FTM)
-XLOOP
-READ SAVE &CAR.A16. &FILL.A2. &MODEL.A24.
-IF &CAR EQ ' ' THEN GOTO XPASS
-* Detailed TABLE request
TABLE FILE CAR
HEADING CENTER
"VEHICLE:<CAR MODEL:<MODEL"
""
PRINT DEALER_COST AS 'DEALER COST:' OVER
RETAIL_COST AS 'RETAIL COST:' OVER
SALES AS 'SALES (YTD):' OVER
BODYTYPE AS 'BODYTYPE:'
ON CAR PAGE-BREAK
IF CAR EQ '&CAR'
IF MODEL EQ '&MODEL'
END
-* Return to top of loop
-GOTO XLOOP
-* Execute the TABLE request and erase the SAVE file
-XPASS
-RUN
-VMS DELETE SAVE.FTM;
-EXIT
I got this out of a Focus Systems Journal, and it will need changes
for what you want to do, but I don't think it would be a problem
adapting it. Maybe it can be of help.
Regards,
Mike Cusack
G&A Purchasing IS
Northboro, MA
DTN 234-4764
| |||||
| 164.2 | Another way | MLNOIS::MACCANI | Fri Dec 30 1988 04:02 | 14 | |
Hello,
If you want to use arrows you can use the WINDOW FOCUS facility.
The steps to follow are:
A) Generate a file containing the record pointers. ( E.g.
customer names or car names.
B) Display this file using the FOCUS WINDOW command.
C) At this point the user insert hes choice.
D) The choice is passed back to FOCUS as a local variable.
E) go back to B till a PF3 on is pressed on Window.
F) Generate the final report using the variable information.
Best regards Maurizio.
| |||||
| 164.3 | Thanks | TIGERS::MITCHELL | Thu Jan 05 1989 12:01 | 4 | |
Thanks for the replies. I'll show them to the person who asked
me this question and let her take it from there.
Dennis
| |||||