home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr2.zip
/
OLDCREF.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
75 lines
*OLDCREF - Converts the old-format REFERNCE file to the new
Set talk off
Clear
Set intensity off
?
? 'This program converts the old-format CROSSREF files to the new format -'
?? 'CROSSREF, version 1.3.'
?? 'It reads a file called REFER.DBF on the B disk drive, and copies'
?? 'its data into a new file called REFERNCE.DBF - the right file for the'
?? 'CROSSREF'
? 'program. You must have already renamed the old REFERNCE.DBF file to be'
?? 'called'
? 'REFER.DBF. The new REFERNCE.DBF file will have the sourcecode format'
?? 'changed,'
? 'and will have the new LOCATION field added. Also, the REFIND.DBF file,'
? 'your old REFINDEX.DBF file, will be converted to file REFINDEX.DBF. The'
? 'indexes of both the files are then to be created by the "RE-INDEX" function'
? 'of SET UP.'
?
Accept 'Enter the Data Disk letter ' to D
Store d+':REFER' to MFILE
Store d+':REFERNCE' to NFILE
Store d+':REFIND' to M1FILE
Select secondary
Use
Select primary
Use REFERNCX
If file(MFILE).and. file(M1FILE)
ACCEPT ;
'Now about to copy over any file named REFERNCE.DBF on the data disk. OK?' TO X
IF !(X)<>'Y'
RETURN
endif
Copy to &NFILE
Use &NFILE
? 'Now reading old records into the new file.'
Set talk on
Append from &MFILE
Set talk off
Use &NFILE
Do while .not. EOF
Replace sourcecode with $(sourcecode,1,2)+'-'+$(sourcecode,8,7)+' '+;
$(sourcecode,3,5)
SKIP
enddo
Use
Accept ;
'Now about to copy over any file named REFINDEX.DBF on the data disk. OK?' to x
If !(X)<>'Y'
RETURN
endif
Use REFINDXX
Store d+':REFINDEX' to NFILE
Copy to &NFILE
Use &NFILE
? 'Now appending old index records into the new.'
Set talk on
Append from &M1FILE
Set talk off
Use &NFILE
Do while .not. EOF
Replace sourcecode with $(sourcecode,1,2)+'-'+$(sourcecode,8,7)+' '+;
$(sourcecode,3,5)
SKIP
enddo
? 'Files are now updated. Do not forget to re-index them from CROSSREF- SET UP'
?
d+':REFIND' to M1FILE
Select secondary
Use
Select primary
Use REFERNCX
If file(MFILE).and. file(M1FILE)
ACCEPT