|
midrange.com
Booth Martin wrote:
> > > - View only lines that reference a specific field
> > > F16=Find
> >
> > Yes, this is almost as useful. Almost as easy to work with, and now that >
>> I have worked with SEU for a millenium I am really handy with it.
> >
>
> F16 doesn't drop out the lines that _don't_ contain the chosen field; it > is
>nice to see/edit
> only the lines that include the search word.
Booth - seu can do that! - and pretty handily too.
try this:
COLUMNS . . . : 6 100 EDIT
SEU==> f s1rrn a
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** BEGINNING OF DATA *******************************
X999900 ****************************************************************
0002.00 * use option 14 to compile with these parameters
0003.00 ** COMMIT(*NONE) CLOSQLCSR(*ENDMOD) DBGVIEW(*SOURCE)
0004.00 **
0005.00 ** FILE NAME : AVS900
0006.00 ** PROGRAMMER : Rick Baird - Premium Systems, Inc.
0007.00 ** DATE : 01/10/98
0008.00 ** DESCRIPTION : Web Client Maintenance
0009.00 **
0010.00 ** MOD | DATE | PROGRAMMER | DESCRIPTION
0011.00 **--------------------------------------------------------------
0012.00 ****************************************************************
0013.00 * Files, variables defined
0014.00 ****************************************************************
0015.00
0016.00 **
0017.00 FAVS920FM CF E WORKSTN
0018.00 F SFILE(SUBF1:S1RRN)
0019.00 F SFILE(SUBF3:S3RRN)
F3=EXIT F4=PROMPT F5=REFRESH F9=RETRIEVE F10=CURSOR F11=TOGGLE
F16=REPEAT FIND F17=REPEAT CHANGE F24=MORE KEYS
notice on the seu command line: "f s1rrn a" (find s1rrn all) and on the
first seq number line: "x9999" ("x"clude 9999 records -
i.e. all)
press enter and the result is:
COLUMNS . . . : 6 100 EDIT
SEU==>
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** BEGINNING OF DATA ********************************
- - - - ------------ 17 DATA RECORDS EXCLUDED ----------------------------
0018.00 F SFILE(SUBF1:S1RRN)
- - - - ------------ 22 DATA RECORDS EXCLUDED ----------------------------
0041.00 C *LIKE DEFINE S1RRN ZRRN1
0042.00 C *LIKE DEFINE S1RRN S3RRN
0043.00 C *LIKE DEFINE S1RRN ZRRN3
0044.00 C *LIKE DEFINE S1RRN X
- - - - ------------ 60 DATA RECORDS EXCLUDED ----------------------------
0105.00 C Z-ADD 0 S1RRN
- - - - ------------ 51 DATA RECORDS EXCLUDED ----------------------------
0157.00 C Z-ADD ZRRN1 S1RRN
- - - - ------------ 11 DATA RECORDS EXCLUDED ----------------------------
0169.00 C ADD 1 S1RRN
- - - - ------------ 16 DATA RECORDS EXCLUDED ----------------------------
0186.00 C Z-ADD S1RRN ZRRN1
- - - - ----------- 317 DATA RECORDS EXCLUDED ----------------------------
****************** END OF DATA ***********************************
F3=EXIT F4=PROMPT F5=REFRESH F9=RETRIEVE F10=CURSOR F11=TOGGLE
F16=REPEAT FIND F17=REPEAT CHANGE F24=MORE KEYS
STRING s1rrn FOUND 9 TIMES.
maybe not as cool as a pc based editor, but fast and functional.
regards,
rick
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
