create cursor pp ; ( inv c(6), ; PK c(4) ; ) insert into pp values ('000033', '0001') insert into pp values ('000033', '0002') insert into pp values ('000099', '0001') insert into pp values ('000099', '0002') insert into pp values ('000099', '0045') insert into pp values ('000099', '0046') insert into pp values ('000033', '0045') insert into pp values ('000033', '0046') index on inv tag inv set order to && (1) output && 0001 && 0002 mkey='000033' seek mkey order inv scan while inv=mkey ? '(1) ', PK endscan && (2) output && 0001 && 0002 && 0045 && 0046 set order to inv mkey='000033' seek mkey order inv scan while inv=mkey ? '(2) ', PK endscan
>> >> use sales in 0 alias sales order inv >> >>>select sales >>>mkey='003333' >> >> seek mkey >> >>>scan while inv=mkey >>> disp PK >>>endscan >>>use in sales >> >>>>
>>>use sales in 0 alias sales >>>select sales >>>mkey='003333' >>>disp PK for inv=mkey >>>use in sales >>>>>>
>>>use sales in 0 alias sales >>>select sales >>>mkey='003333' >>>seek mkey order inv >>>scan while inv=mkey >>> disp PK >>>endscan >>>use in sales >>>>>>