home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG107.ARC
/
RETRIEVE.LBR
/
INDEX.CQD
/
INDEX.CMD
Wrap
OS/2 REXX Batch file
|
1979-12-31
|
2KB
|
67 lines
NOTE - EXTENDED COMMAND FILE INDEX.CMD
USE &FILE1
GO BOTTOM
STORE STR(#,6) TO REC:NO
ERASE
@ 3,15 SAY '*** REFS.DBF PRESENTLY CONTAINS '+REC:NO+' RECORDS ***'
@ 5,15 SAY '____________________________________________________'
@ 6,14 SAY '| |'
@ 7,14 SAY '| *** IMPORTANT NOTE *** |'
@ 8,14 SAY '| |'
@ 9,14 SAY '| Re-indexing the reference file on authors, source, |'
@ 10,14 SAY '| and key words requires serveral minutes. The |'
@ 11,14 SAY '| indexed files are ONLY required for option 4 |'
@ 12,14 SAY '| (QUICKLY FIND ARTICLES) to function. If you do |'
@ 13,14 SAY '| not intend to use this option STOP now! This will |'
@ 14,14 SAY '| save many sectors of disk storage disk space!!!!! |'
@ 15,14 SAY '| |'
@ 16,14 SAY '| ** WANT TO CONTINUE? (Y/N) ** |'
@ 17,14 SAY '|____________________________________________________|'
@ 22,1 SAY ' '
WAIT TO ANSWER
IF !(ANSWER)='N'
RELEASE REC:NO,ANSWER
RETURN
ENDIF
ERASE
@ 12,16 SAY "**** INDEXING AUTHOR'S NAME(S) TO AUTHOR.NDX ****"
STORE DR+':AUTHORS' TO FILE
INDEX ON AUTHORS TO &FILE
USE &FILE1
ERASE
@ 11,28 SAY'**** INDEX COMPLETE ****'
@ 5,26 SAY '** WANT TO CONTIUE? (Y/N) **'
@ 22,1 SAY ' '
WAIT TO ANSWER
IF !(ANSWER)='N'
RELEASE REC:NO,ANSWER
RETURN
ENDIF
ERASE
@ 12,19 SAY '**** INDEXING ON SOURCE TO SOURCE.NDX ****'
STORE DR+':SOURCE' TO FILE
INDEX ON SOURCE TO &FILE
USE &FILE1
ERASE
@ 11,28 SAY'**** INDEX COMPLETE ****'
@ 5,26 SAY '** WANT TO CONTIUE? (Y/N) **'
@ 22,1 SAY ' '
WAIT TO ANSWER
IF !(ANSWER)='N'
RELEASE REC:NO,ANSWER
RETURN
ENDIF
ERASE
@ 12,18 SAY '**** INDEXING ON KEY WORDS TO KWORDS.NDX ****'
STORE DR+':KWORDS' TO FILE
INDEX ON KWORDS TO &FILE
USE
ERASE
@ 11,28 SAY'**** INDEX COMPLETE ****'
@ 13,18 SAY '*** PRESS ANY KEY TO RETURN TO MAIN MENU ***'
@ 22,1 SAY ' '
WAIT
RELEASE REC:NO,ANSWER
RETURN