Al DeWitt had a need for a utility to search the dictionaries.
I had to write one a little while ago - to look for SB+ stuff, as it
happens.
PROGRAM FIND.DICT
* This program searches the data dictionary section
* of every file in the VOC for a string
CRT 'INPUT STRING ':
INPUT THAT
IF THAT = '' THEN STOP
OPEN 'VOC' TO VOC ELSE STOP 201,'VOC'
EXECUTE 'SSELECT VOC WITH TYPE EQ "F"'
IDLIST = ''
LOOP WHILE READNEXT ID DO
IDLIST<-1> = ID
REPEAT
XXNO = DCOUNT(IDLIST,@AM)
FOR XX = 1 TO XXNO
ID = IDLIST<XX>
OPEN 'DICT',ID TO TEST ELSE CONTINUE
SELECT TEST
LOOP WHILE READNEXT DID DO
READ REC FROM TEST,DID ELSE CONTINUE
IF INDEX(REC,THAT,1) THEN CRT ID,DID
REPEAT
NEXT XX
Might be useful, but I know if you could say it was efficient...
Regards, Keith
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
