허접 프로그래머의 얼렁뚱땅 흥신소

저 역시 WAS 에 sapgui 을 설치했었습니다.
사실 필요한 RFC , login 관련 dll 이 3개정도 있는데요. 정확하지 않아서요.
어쩔 수 없이 sapgui 을 install 했었죠.. ^^;
오늘 처음 가입했는데.. 많은 도움이 되시길 바랍니다.
테스트 하시기 전에 필요한 object (dll) 이 등록되 있는지 확인하시기 바랍니다.
registry 에서도 확인할 수 있고, VC 에 있는 oleview 등을 이용하시면 됩니다.

일단 크게는 2 step 입니다.

1. Logon

                Dim objSAPLogon
        Set objSAPLogon = Server.CreateObject("SAP.LogonControl.1")
       
        Dim ebpsrc
        ebpsrc = Trim(Request.QueryString("ebpsrc"))
        Dim DestIp, DestClient, DestNum
       
                DestIp = "x.x.x.x"
                DestClient = "100"
                DestNum = "00"

                   With objSAPLogon
                 .ApplicationServer = DestIp
                 .Client = DestClient
                 .User = "XXX"          
                 .Password = "XXX"
                 .Language = "ko"
                 .SystemNumber = DestNum
                 .System = ""
             End With

        Dim objConn    
       
        Set objConn = objSAPLogon.NewConnection
       
        If objConn.Logon(0,True) <> True Then
                Response.Write "RFC Connection 이 실패했습니다. 관리자에게 문제 해결을 요청하십시오."
                Set        objSAPLogon = Nothing
                Set objConn = Nothing
                Response.End
        Else
                'Response.Write "Success!"
                'Set Session("OBJCON") = objConn
                'response.end

        End If

2. 필요한 RFC function 호출하는 부분
       
        Dim objFunConn
       
        Set objFunConn = Server.CreateObject("SAP.Functions")

        Set objFunConn.Connection = objConn
                Dim objFun
       
        Set objFun = objFunConn.Add("Z_RFC_FM")
               ' export parameter setting 입니다.

                objFun.Exports("KOSTL") =  "XXX"

        Dim objTable
       
        Set objTable = objFun.Tables("T_FC")  " import parameter in RFC Function module

                If objFun.Call <> True Then
          
                   Response.Write "Error!!!"
                Response.End

        Else
                       
        End If

~~~~
output table print 하는 부분은 대충 다음과 같습니다.
objTable 에 필요한 필드 행*열 로 접근하시는 겁니다.

        For j=1 to colCount
%>                       

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.