Object: | frmbehindsc |
LPARAMETER tnFileHandle, tcProcs, tcStoredProc LOCAL lcProcs, ; lcThisProc, ; lnNextProc lcProcs = tcProcs DO WHILE !EMPTY(lcProcs) lnNextProc = AT(",", lcProcs) IF lnNextProc = 0 lnNextProc = LEN(lcProcs) lcProcs = lcProcs + " " ENDIF lcThisProc = ALLT(LEFT(lcProcs, lnNextProc - 1)) *-- Cut the current proc lcProcs = SUBSTR(lcProcs, lnNextProc + 1) thisform.ExtractStoredProc(tnFileHandle, lcThisProc, tcStoredProc) ENDDO