* This program sets up the relatinos needed 
* for the form type
* !!!! need adtional indexs on the data section for the
* !!!! the order of the records in the RR###.DBF
*SELECT A
*USE C:\AQCVIK\HR620.DBF
*BROWSE LAST
*INDEX ON SHIPCC TAG SHIPCC ADDITIVE
*SELECT B
*USE C:\AQCVIK\RR620.DBF
*INDEX ON SHIPCC TAG SHIPCC ADDITIVE
*SELECT A
*BROWSE LAST
*SELECT B
*BROWSE LAST
*SET RELATION TO hr620.shipcc INTO RR620 ADDITIVE