CLOSE DATABASES all
CLEAR

*pn = "134-0000450"

USE invtmfgr ORDER tag uniqmfgrhd
BROWSE LAST nowait

SELECT 0
USE invtmfsp ORDER tag uniqmfgrhd
BROWSE LAST nowait

SELECT 0
USE invtmfhd ORDER tag uniq_key
SET RELATION TO  uniqmfgrhd INTO invtmfgr
SET RELATION TO  uniqmfgrhd INTO invtmfsp additive

BROWSE LAST nowait

SELECT 0
USE invt_isu ORDER tag uniq_key
BROWSE LAST nowait

SELECT 0
USE invt_rec ORDER tag uniq_key
BROWSE LAST nowait

SELECT 0
USE inventor ORDER tag part_no
SET RELATION TO uniq_key INTO invtmfhd
SET RELATION TO uniq_key INTO invt_isu addi
SET RELATION TO uniq_key INTO invt_rec addi

*SEEK pn
BROWSE LAST nowait

** or....
SELECT inventor.part_class, inventor.Part_type, inventor.Part_no, inventor.Revision, ;
  inventor.custno, inventor.custpartno, inventor.descript, inventor.status, inventor.stdcost, ;
 Invtmfhd.partmfgr, Invtmfhd.Mfgr_pt_no, ;
 invtmfgr.whno, invtmfgr.qty_oh, invtmfgr.reserved, ;
 invtmfsp.supid, invtmfsp.suplpartno ;
 FROM inventor, invtmfhd,invtmfgr,invtmfsp;
 WHERE inventor.Uniq_key = invtmfhd.uniq_key;
  AND invtmfhd.uniqmfgrhd = invtmfgr.uniqmfgrhd;
  AND invtmfsp.uniqmfgrhd = invtmfhd.uniqmfgrhd;
 ORDER BY part_no,revision,partmfgr,whno;
 INTO CURSOR partslist
 
BROWSE LAST nowait