At 12:45 PM 3/7/2006, Nilesh Patel wrote:
Improve in terms of what performance? If that is the case then
I would go along with Ray's suggestion to try, but there are some
other things.

If this is the same task, which it appears to be, then why are you creating
another table and having to sort and reload the table from subf1?

Why not hold the first one and re-use? Also if subf1 and set1out are sorted
in a previous step in the key1 and file1 orders respectively then you can 
use the
sorted keyword on the table command which will also help speed things up.

>         BASE base1,3
>         SET STATISTICS ON
>         SET DEFER ON
>
>         TABLE one,key1,FILE,subf1,hold
>         CHAIN set1,key1=one
>         EXTRACT field1
>         OUT set1out,LINK
>         DELETE
>         XEQ
>
>         TABLE two,field1,FILE,set1out
>         CHAIN set2,field1=two
>         DELETE
>         OUTPUT $NULL
>         XEQ
>
>         CHAIN set3,key1=one
>         DELETE
>         OUTPUT $NULL
>         XEQ


Also more recent versions have had significant performance in all things
to do with the table command.

Neil Armstrong




>Hi,
>
>Is there a way to improve the following suprtool code:
>
>         BASE base1,3
>         SET STATISTICS ON
>         SET DEFER ON
>
>         TABLE one,key1,FILE,subf1
>         CHAIN set1,key1=one
>         EXTRACT field1
>         OUT set1out,LINK
>         DELETE
>         XEQ
>
>         TABLE two,field1,FILE,set1out
>         CHAIN set2,field1=two
>         DELETE
>         OUTPUT $NULL
>         XEQ
>
>         TABLE three,key1,FILE,subf1
>         CHAIN set3,key1=three
>         DELETE
>         OUTPUT $NULL
>         XEQ
>
>
>The SUBF1 file is a subfile created by a QTP with the parent details.
>
>Thanks in advance.
>
>Nilesh Patel.
>
>
>This message and any attachments (the "message") is
>intended solely for the addressees and is confidential.
>If you receive this message in error, please delete it and
>immediately notify the sender. Any use not in accord with
>its purpose, any dissemination or disclosure, either whole
>or partial, is prohibited except formal approval. The internet
>can not guarantee the integrity of this message.
>BNP PARIBAS (and its subsidiaries) shall (will) not
>therefore be liable for the message if modified.
>
>                 ---------------------------------------------
>
>Ce message et toutes les pieces jointes (ci-apres le
>"message") sont etablis a l'intention exclusive de ses
>destinataires et sont confidentiels. Si vous recevez ce
>message par erreur, merci de le detruire et d'en avertir
>immediatement l'expediteur. Toute utilisation de ce
>message non conforme a sa destination, toute diffusion
>ou toute publication, totale ou partielle, est interdite, sauf
>autorisation expresse. L'internet ne permettant pas
>d'assurer l'integrite de ce message, BNP PARIBAS (et ses
>filiales) decline(nt) toute responsabilite au titre de ce
>message, dans l'hypothese ou il aurait ete modifie.
>
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *