Hello community,
a longer time ago I introduced CCo (COM Connector) here. Later I presented here the possibility how to program and run an ABAP Report with the scripting language VBScript and CCo. Here is now a development with the same possibility and additional an UI to code the ABAP report. It is a hypertext application.
<html> <head> <title> Execute an ABAP Report </title> <hta:application applicationname="ABAPReport" id="ABAPReport" singleinstance="yes" border="thick" borderStyle="sunken" version="1.0" /> <script language="VBScript"> '-Directives------------------------------------------------------ Option Explicit '-Constants------------------------------------------------------- Const RFC_OK = 0 '-ABAPExec-------------------------------------------------------- Sub ABAPExec() '-Variables--------------------------------------------------- Dim SAP, hRFC, rc, hFuncDesc, hFunc, ABAP, i, hRow, hTable Dim RowCount, charBuffer, Result document.Output.Result.value = "" Set SAP = CreateObject("COMNWRFC") If Not IsObject(SAP) Then Exit Sub End If hRFC = SAP.RfcOpenConnection( _ "ASHOST=" & document.ConnParams.ASHost.value & ", " & _ "SYSNR=" & document.ConnParams.SysNr.value & ", " & _ "CLIENT=" & document.ConnParams.Client.value & ", " & _ "USER=" & document.ConnParams.User.value) If hRFC = 0 Then Set SAP = Nothing Exit Sub End If hFuncDesc = SAP.RfcGetFunctionDesc(hRFC, _ "RFC_ABAP_INSTALL_AND_RUN") If hFuncDesc = 0 Then rc = SAP.RfcCloseConnection(hRFC) Set SAP = Nothing Exit Sub End If hFunc = SAP.RfcCreateFunction(hFuncDesc) If hFunc = 0 Then rc = SAP.RfcCloseConnection(hRFC) Set SAP = Nothing Exit Sub End If '-Writes the report into the PROGRAM table-------------------- If SAP.RfcGetTable(hFunc, "PROGRAM", hTable) = RFC_OK Then ABAP = Split(document.ABAP.Report.value, vbCrLf) For i = 0 To UBound(ABAP) - 1 If Trim(ABAP(i)) <> "" Then hRow = SAP.RfcAppendNewRow(hTable) rc = SAP.RfcSetChars(hRow, "LINE", ABAP(i)) End If Next End If If SAP.RfcInvoke(hRFC, hFunc) = RFC_OK Then '-Gets the result from the WRITES table--------------------- If SAP.RfcGetTable(hFunc, "WRITES", hTable) = RFC_OK Then rc = SAP.RfcGetRowCount(hTable, RowCount) rc = SAP.RfcMoveToFirstRow(hTable) For i = 1 To RowCount hRow = SAP.RfcGetCurrentRow(hTable) rc = SAP.RfcGetChars(hRow, "ZEILE", charBuffer, 256) Result = Result & Trim(charBuffer) & vbCrLf If i < RowCount Then rc = SAP.RfcMoveToNextRow(hTable) End If Next '-Shows the result in the output area------------------- document.Output.Result.value = Result End If End If rc = SAP.RfcDestroyFunction(hFunc) rc = SAP.RfcCloseConnection(hRFC) Set SAP = Nothing End Sub '-onLoad---------------------------------------------------------- Sub Window_onLoad() window.moveTo 25,25 window.resizeTo 680,710 End Sub </script> </head> <body> <h1> Execute an ABAP Report </h1> <form action="ConnParams.htm" name="ConnParams"> <p> ASHost: <input name="ASHost" type="text" size="10" maxlength="10" value="ABAP"> SysNr.: <input name="SysNr" type="text" size="2" maxlength="2" value="00"> Client: <input name="Client" type="text" size="3" maxlength="3" value="001"> User: <input name="User" type="text" size="12" maxlength="12" value="BCUSER"> </p> </form> <input type="button" value="Execute ABAP Report" onClick='ABAPExec()'> <form action="ABAP.htm" name="ABAP"> <p><textarea name="Report" cols="72" rows="18" wrap="hard">
"-Begin----------------------------------------------------------------- Report zTest Line-Size 72. Write: 'Hello World from'. Write: sy-sysid.
"-End-------------------------------------------------------------------</textarea> </p> </form> <form action="Output.htm" name="Output"> <p> <textarea name="Result" cols="72" rows="9" wrap="soft" readonly> </textarea> </p> </form> </body> </html>
As you can see it is very easy to build an external editor for ABAP reports, with the possibilities of HTML and CCo.
Cheers
Stefan
