extractmultistoredprocs Method
Object: frmbehindsc
Expand/Collapse source code of procedure extractmultistoredprocs Source Code
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