strLine = WriteGenCode(strFunction, strLine)
strSQL = "SELECT * FROM BPSP_BIZSTEPPROC_M A" _
& " WHERE BPSP_PHYSNAME_T = '" & strFunction & "' "
rstChk.Open strSQL, CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic, adCmdText
strLine = "'' " & rstChk("TAB_PHYSNAME_T") & " " _
& LookTableCol(rstChk("TAB_PHYSNAME_T"),
"TAB_ENTLOGNAME_T")
strLine = WriteGenCode(strFunction, strLine)
rstChk.Close
' Initialize variables
strLine = " "
strLine = WriteGenCode(strFunction, strLine)
strLine = "Set rstSource = New ADODB.Recordset "
strLine = WriteGenCode(strFunction, strLine)
strLine = "Set rstRI = New ADODB.Recordset "
strLine = WriteGenCode(strFunction, strLine)
strLine = "intErr = 0 "
strLine = WriteGenCode(strFunction, strLine)
strLine = "strErr = """" " ...