home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr2.zip
/
REFDXLST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
59 lines
*Program REFDXLST - Displays the list of index words to the active REFERNCE fi
Select secondary
*Store d+':REFINDEX' to MFILE
*Store d+':REFINDKW' to MFILENDX
Use &MFILE index &MFILENDX
Set raw on
Set exact off
ERASE
@ 2,3 say INH+' '+curdate
Store 1 to WCOUNT
?
Store ' ' to keywordx
Store ' ' to sorcecodes
Store '~~~~~' to oldkey
Store '~' to INX
Do while keywordndx<>INX .and. .not. EOF
If keywordndx<>oldkey .or. wcount>3
If wcount>1
? keywordx,sorcecodes
endif
If wcount>3
Store ' ' to keywordx
If keywordndx<>oldkey
Store keywordndx to oldkey
Store keywordndx to keywordx
?
endif
else
Store keywordndx to oldkey
Store keywordndx to keywordx
?
endif
Store 1 to wcount
Store ' ' to sorcecodes
endif
Store wcount+1 to wcount
Store sorcecodes+$(sourcecode,1,8)+' '+$(sourcecode,9,2)+' '+;
$(sourcecode,11,2)+' '+$(sourcecode,13,2)+'| ' to sorcecodes
SKIP
enddo
USE
? keywordx,sorcecodes
?
Accept 'End of Reference/Publications Index. Press <RETURN>' to XX
Set raw off
Set exact on
Use
Release keyword,oldkey,inx,sorcecodes,wcount,keywordx,s,mfilendx
RETURN
?
Store ' ' to keywordx
Store ' ' to sorcecodes
Store '~~~~~' to oldkey
Store '~' to INX
Do while keywordndx<>INX .and. .not. EOF
If keywordndx<>oldkey .or. wcount>3
If wcount>1
? keywordx,sorcec