Re: wish list: something to help find RUN and ENTER statements


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

Posted by Robert G Laurin on May 08, 2015 at 08:16:16:

In Reply to: wish list: something to help find RUN and ENTER statements posted by Bob A on May 08, 2015 at 07:47:45:

I have a find program that will search all files (CED & IBS/INC text format) and puts the result of a search in to a keyed file that can be dumped into a text printer or text file.

It will search more than one string at a time - case insensitive.

Search for:
RUN '
RUN "
ENTER '
ENTER "

Once you have the visual results, it is easy to scan for real RUN and not text strings.

It is home grown for my own use. Wrote it over 20 years ago... Originally to find USEFILEs that's why it is called FINUSE.

Here's a sample of what the output looks like (I just happen to have one open right now on my desktop...)


SET X1A=2 -XAM 2020
LENGTH 2 & LOCAL X1AKEY$ -XAM 3040
USE '-FILEX1A' -XAM 8020
LET FILEID$ = 'X1A-' + XCUSTID$ -XAM 100080
OPEN (X1A) FILEID$,EXCP=EXCP11 -XAM 100090
2800 LET X1AKEY$ = CTPROV$ + ' ' -XAM 280000
INQUIRE (X1A,0000) KEY=WORD$,EXCP=4910 ! EXCP = CREATE IT -XAM 490100
X1AKEY$ = WORD$ -XAM 490164
PRINT (#,X1A) ! Push Data to Duplicate ! -XAM 490170
PRINT (#) X1AKEY$ -XAM 500010
5001 INPUT (#,X1A) -XAM 500020
INQUIRE (X1A,X1A) KEY=X1AKEY$,EXCP=READREC9 -XAM 800030
EXTRACT (X1A,X1A) KEY=X1AKEY$,EXCPSUB=EXCP33 -XAM 810010
WRITE (X1A,X1A) KEY=CTPROV$ -XAM 820010
X1AKEY$ = KEY(X1A,EXCP=GETNEXT9) -XAM 830010
POSITION (X1A) KEY='@FFFFFF@',EXCP=GETNEXTA ! POSITION TO EOF -XAM 830120
POSITION (X1A) KEY=X1AKEY$, EXCPSUB=EXCPRET -XAM 840001
X1AKEY$ = PREV(X1A,EXCP=GETPREV9) -XAM 840010
POSITION (X1A) KEY='',EXCP=GETPREVA ! POSITION TO TOP OF FILE -XAM 840120
!! PRINT (#,X1A) ! Refresh Record in (#) buffer -XAM 869000
EXTRACT (X1A,X1A) ! Refresh Record in (#) Buffer for Audi-XAM 869010
DELETE (X1A) KEY=CTPROV$ -XAM 869070
POSITION (X1A) KEY=LOOKKEY$,EXCP=NEXTKEY1 -XAM 870040
X1AKEY$ = KEY(X1A,EXCP=NEXTKEY3) -XAM 871010
IF POS(LOOKKEY$,X1AKEY$) NE 1 GOTO NEXTKEY3 ! DIFFERENT -XAM 871020




Follow Ups:



Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]