>>>>nRECCOUNTCONVERT=ALLTRIM(STR(RECCOUNT())) >>>>cRECCOUNTCONVERT=' of '+ALLTRIM(STR(RECCOUNT())) >>>>Local loMyObject >>>>loMyObject = CreateObject("MyObject") >>>>loMyObject.Mainprocess() >>>>Return >>>> >>>>DEFINE CLASS MyObject AS Custom >>>>PROCEDURE Mainprocess >>>Local Parallel as Parallel >>>>local llReTry >>>llReTry = .f. >>> >>>>Parallel = NewObject("Parallel", "ParallelFox.vcx") >>>>Parallel.SetWorkerCount(Parallel.CPUCount) >>>>Parallel.StartWorkers() >>>> >>>>SCAN >>>>oFilename=ALLTRIM(Fullpath) >>>>iFilename=ALLTRIM(Newpath) >>>>RCNON=Recno() >>>>Try >>>>Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON) >>>>catch to loError >>>> if loError.ErrorNo = 2027 >>>> llReTry = .t. >>>> else >>>> * log the error >>>> endif >>>>ENDTRY >>>>if m.llReTry >>>> try >>>>Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON) >>>> catch to loError >>>> * log the error >>> >>>>ENDTRY >>>>ENDSCAN >>>>ENDPROC >>>> >>>>PROCEDURE PDF2PS >>>>PARAMETERS oFilename,iFilename,RCNON >>>>Declare INTEGER VeryPDF_PDF2Vector in pdf2vec.dll String strCommandLine >>>>Strcmd= 'pdf2vec -$ XXXXXXXXXXXXXXXX '+CHR(34)+iFilename+CHR(34)+" "+CHR(34)+oFilename+CHR(34) >>>>nRet = VeryPDF_PDF2Vector(strcmd) >>>>Sys(2335, 1) && disable unattended mode, allow UI >>>>WAIT WINDOW 'Converting to PS..'+ALLTRIM(STR(RCNON)) NOWAIT >>>>RETURN >>>>ENDPROC >>>>ENDDEFINE >>>> >>>>>>>
>llReTry = .f. >lnAttempts = 0 >try > > code that may fail >catch to loError > if loError.ErrorNo = 2027 > llReTry = .t. > endif >endtry > > >do while m.llReTry = .t. and m.lnAttempts <= 10 > lnAttempts = m.lnAttempts + 1 > > try > > code that may fail > llReTry = .f. >catch to loError > if loError.ErrorNo = 2027 > llReTry = .t. > endif >endtry > >enddo >Thank you Very-Very Much. I will Study it more and try to incorporate it based on all the guidance you have given and will let you know tomorrow that how it works.