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)