ERA INITRH.SUB
SAVE 0 A:INVOICE.DTA
SAVE 0 A:INVOICE.NDX
PIP A:=F:HYTYPE.PRL
PIP A:=F:INVOICE.DEF
PIP A:=F:INVOICE.MRG
PIP A:=F:DS.COM
PIP A:=F:MAILMRGE.OVR
F:INSTALL - HYTYPE.PRL F800
ERA HYTYPE.PRL
WS
NINVOICE.MRG
F000