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

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

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