extractstoredproc Method
Object: frmbehindsc
Expand/Collapse source code of procedure extractstoredproc Source Code
LPARAMETER tnFileHandle, tcProcToShow, tcStoredProc

LOCAL lnProcLength, ;
      lnProcStartPos, ;
      lnProcEndPos, ;
      lcProc, ;
      lnLine, ;
      lcOutputString

lnProcLength = LEN(tcStoredProc)
lnProcStartPos = ATC("FUNCTION " + tcProcToShow, tcStoredProc)

IF lnProcStartPos = 0
  lcProc = TAB + tcProcToShow + " not found in " + DBC()
  RETURN
ELSE
  lnProcEndPos = ATC(CRLF + "ENDFUNC" , SUBSTR(tcStoredProc, lnProcStartPos))

  IF lnProcEndPos = 0   && Last func
    lnProcEndPos = lnProcLength - lnProcStartPos
  ENDIF

  lcProc = SUBSTR(tcStoredProc, lnProcStartPos, lnProcEndPos)
ENDIF

FOR lnLine = 1 TO MEMLINES(lcProc)
  lcOutputString = ""
  IF BETWEEN(lnLine, 1, MEMLINES(lcProc))
    lcOutputString = TAB
  ENDIF

  =FPUTS(tnFileHandle, lcOutputString + MLINE(lcProc, lnLine))
ENDFOR

=FPUTS(tnFileHandle, CRLF)