After two "Tasting the mix of Ruby and SAP" blogs...I found some time for a new "PHP" blog. body {background} #login {background} if(isset($_POST['LOG_IN']) || isset($_GET['LOG_IN']) ) { if(!isset($_SESSION["Server"])) { $_SESSION["Server"] = $_POST["Server"]; $_SESSION["Sysnum"] = $_POST["Sysnum"]; $_SESSION["Client"] = $_POST["Client"]; $_SESSION["User"] = $_POST["User"]; $_SESSION["Pass"] = $_POST["Pass"]; } $Login = new Login(); $Log_Me = $Login->Log_In($_SESSION["Server"],$_SESSION["Sysnum"],$_SESSION["Client"], $_SESSION["User"],$_SESSION["Pass"]); $RFC_Me = $Login->RFC_Connection($Log_Me); $Program = $_SESSION["Program"]; $Program = str_replace(" "," ",$Program); $Program = str_replace(" '","'",$Program); $Prog_Name = $_SESSION["Prog_Name"]; $Mode = $_SESSION["Mode"]; if($Mode == "") { $Mode = "F"; } ECHO "fce,"PROGRAM"); foreach($Program_Lines as $Line) { $Line = trim($Line); $Line = str_replace(" "," ",$Line); $PROGRAM = array("LINE"=>$Line); saprfc_table_append ($this->fce,"PROGRAM",$PROGRAM); } $rfc_rc = ""; $rfc_rc = saprfc_call_and_receive ($this->fce); if ($rfc_rc != SAPRFC_OK) { if ($rfc == SAPRFC_EXCEPTION ) echo ("Exception raised: ".saprfc_exception($this->fce)); else echo ("Call error: ".saprfc_error($this->fce)); exit; } $Error = saprfc_export ($this->fce,"ERRORMESSAGE"); if($Error == "") { $Writes_Row = saprfc_table_rows ($this->fce,"WRITES"); for($i=1; $i<=$Writes_Row ;$i++) { $Write_Line = saprfc_table_read ($this->fce,"WRITES",$i); $Program_Line[$i] = $Write_Line['ZEILE']; ECHO $Program_Line[$i]; ECHO " "; } } else { ECHO $Error; } ECHO " "; PRINT(""); PRINT(" "); PRINT(" "); PRINT(" "); ECHO " "; } } ?> With our class up and running, we can write the pseudo Development Environment. 
Development.php body {background:#F5F9FF} #login {background} if(isset($_POST["PROGNAME"])) { $SE38 = new SE38(); $Login = new Login(); $Log_Me = $Login->Log_In($_SESSION["Server"],$_SESSION["Sysnum"],$_SESSION["Client"], $_SESSION["User"],$_SESSION["Pass"]); $RFC_Me = $Login->RFC_Connection($Log_Me); $SE38->Show_Program($_POST["MODE"],$_POST["PROGNAME"],$_POST["PROGRAM"],$RFC_Me); } else { echo " h2. You must enter the program name! "; ECHO " "; PRINT(""); PRINT(" "); PRINT(" "); PRINT(" "); ECHO " "; } ?> Now, were done...Let's the result of running our little program. 
Development.php body {background:#F5F9FF} #login {background} if(isset($_POST["PROGNAME"])) { $SE38 = new SE38(); $Login = new Login(); $Log_Me = $Login->Log_In($_SESSION["Server"],$_SESSION["Sysnum"],$_SESSION["Client"], $_SESSION["User"],$_SESSION["Pass"]); $RFC_Me = $Login->RFC_Connection($Log_Me); $SE38->Show_Program($_POST["MODE"],$_POST["PROGNAME"],$_POST["PROGRAM"],$RFC_Me); } else { echo " h2. You must enter the program name! "; ECHO " "; PRINT(""); PRINT(" "); PRINT(" "); PRINT(" "); ECHO " "; } ?> Now, were done...Let's the result of running our little program.
11 Comments