Thanks for your responses, I have taken these into account.

However, I would greatly appreciate it if you could tell me how to speed up a particular part of the program which takes the longest processes:

SELECT purchord
IF SEEK(g_cl_ref)
SCAN WHILE cl_ref = g_cl_ref
SCATTER MEMVAR
INSERT INTO (_table2) FROM MEMVAR
SELE poline

IF SEEK(purchord.po_ref)
SCAN WHILE poline.po_ref = purchord.po_ref
GetNote(poline.pl_ref+"SERVICE")
SELECT poline
SCATTER MEMVAR
INSERT INTO CPoline FROM MEMVAR
ENDSCAN
ENDIF

SELECT SUSPEND
IF SEEK(purchord.po_ref)
SCAN WHILE SUSPEND.po_ref = purchord.po_ref
SCATTER MEMVAR
INSERT INTO CSuspend FROM MEMVAR
ENDSCAN
ENDIF

SELECT supplier
IF SEEK(purchord.rs_ref)
GetProperty(Supplier.Pr_Code)
ENDIF
ENDSCAN
Thanks
Kev