Re: CODE/400

[Bob Larkin <blarkin@xxxxxx>]

Thanks Richard - Neat Tip.

Richard Baird wrote:

> 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
> +---


begin:          vcard
fn:             Bob Larkin
n:              Larkin;Bob
org:            <A HREF="HTTP://web.wt.net/~blarkin/">Larkin Computer Consulting</A>
adr:            <A HREF="http://web.wt.net/~blarkin/">Bob and Diana's Page</A>;;;Houston;TX;<A HREF="http://web.wt.net/~blarkin/">;United States
email;internet: blarkin@wt.net
title:          Systems Consultant
note:           <A HREF="http://web.wt.net/~blarkin/">
x-mozilla-cpt:  ;0
x-mozilla-html: FALSE
version:        2.1
end:            vcard