Hi Jim,
This line close
ohDiskUSE (m.StoreDir + "\" + aDocsToBeCopied[m.xx, cDocYrMth] + aDocsToBeCopied[m.xx, cDocID] ;
+ PADL(ALLTRIM(STR(aDocsToBeCopied[m.xx, cDocSeq], 3, 0)), 3, '0') + ".dbf") ALIAS ToAppendTo
Try with
USE (m.StoreDir + "\" + aDocsToBeCopied[m.xx, cDocYrMth] + aDocsToBeCopied[m.xx, cDocID] ;
+ PADL(ALLTRIM(STR(aDocsToBeCopied[m.xx, cDocSeq], 3, 0)), 3, '0') + ".dbf") ALIAS ToAppendTo IN 0
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
