Tasting the mix of Ruby and SAP - Volume 2

[former_member182779]

In the first volume of this weblog series, we create a SE16 Emulator, so now, we're going to make a SE10 Emulator.

I must really thanks my friend Gregor Wolf for sending some awesome examples of Ruby and SAP.

As you may know, or at least as far as I know, there is no RFC function out there that gives you the opportunity to check the transport system information, so I made my own. Use it at your own risk.

ZRFC_TRANSPORT_REQUEST
FUNCTION ZRFC_TRANSPORT_REQUEST.*"----------------------------------------------------------------------*"*"Local interface:*"  IMPORTING*"     VALUE(AS4USER) LIKE  E070-AS4USER*"     VALUE(TRKORR) LIKE  E070-TRKORR OPTIONAL*"     VALUE(TRFUNCTION) LIKE  E070-TRFUNCTION OPTIONAL*"     VALUE(TRSTATUS) LIKE  E070-TRSTATUS OPTIONAL*"  TABLES*"      T_E070_ORDER STRUCTURE  E070*"      T_E070_TASK STRUCTURE  E070*"      T_E071 STRUCTURE  E071*"      T_E07T STRUCTURE  E07T*"  EXCEPTIONS*"      USER_NOT_FOUND*"----------------------------------------------------------------------  SELECT TRKORR TRFUNCTION TRSTATUS TARSYSTEM         KORRDEV AS4USER AS4DATE AS4TIME STRKORR  INTO TABLE T_E070_ORDER  FROM E070  WHERE AS4USER EQ AS4USER.  IF SY-SUBRC NE 0.    RAISE USER_NOT_FOUND.  ENDIF.  IF TRFUNCTION NE SPACE.    DELETE T_E070_ORDER WHERE TRFUNCTION NE TRFUNCTION.  ENDIF.  IF TRSTATUS NE SPACE.    DELETE T_E070_ORDER WHERE TRSTATUS NE TRSTATUS.  ENDIF.  IF TRKORR NE SPACE.    DELETE T_E070_ORDER WHERE TRKORR NE TRKORR.  ENDIF.  IF NOT T_E070_ORDER[] IS INITIAL.    SELECT TRKORR TRFUNCTION TRSTATUS TARSYSTEM           KORRDEV AS4USER AS4DATE AS4TIME STRKORR    INTO TABLE T_E070_TASK    FROM E070    FOR ALL ENTRIES IN T_E070_ORDER    WHERE STRKORR EQ T_E070_ORDER-TRKORR.    SELECT TRKORR LANGU AS4TEXT    INTO TABLE T_E07T    FROM E07T    FOR ALL ENTRIES IN T_E070_ORDER    WHERE TRKORR EQ T_E070_ORDER-TRKORR      AND LANGU EQ SY-LANGU.  ENDIF.  IF NOT T_E070_TASK[] IS INITIAL.    SELECT TRKORR AS4POS PGMID OBJECT OBJ_NAME           OBJFUNC LOCKFLAG GENNUM LANG ACTIVITY    INTO TABLE T_E071    FROM E071    FOR ALL ENTRIES IN T_E070_TASK    WHERE TRKORR EQ T_E070_TASK-TRKORR.  ENDIF.ENDFUNCTION.

Now that we have our ZRFC function, we can start coding our application.



Ruby_SE10.rb
require "SAP/Rfc"print "Host: "$Host = getsprint "System Number: "$Sysnr = getsprint "Client: "$Client = getsprint "User: "$User = getsprint "Password: "$Password = getsrfc = SAP::Rfc.new(:ashost => $Host.chop!,                     :sysnr  => $Sysnr.chop!.to_i,                     :lang   => "EN",                     :client => $Client.chop!.to_i,                     :user   => $User.chop!,                     :passwd => $Password.chop!,                     :trace  => 1)                     itab = rfc.discover("ZRFC_TRANSPORT_REQUEST")print "\nEnter User: " $User = getsprint "Enter Transport Type: " $Transport = gets print "\n"itab.AS4USER.value = $User.upcase.chop!itab.TRFUNCTION.value = $Transport.upcase.chop!rfc.call(itab)$Order_Number = Array.new$Last_Date = Array.new$Last_Time = Array.new$Order_Name = Array.new$Task_Numbers = Array.new$Task_Number = Array.new$Program_Id = Array.new$Object_Type = Array.new$Object_Name = Array.newitab.T_E070_ORDER.hashRows {|x| $Order_Number.push(x['TRKORR'].to_s.strip)}itab.T_E070_ORDER.hashRows {|x| $Last_Date.push(x['AS4DATE'])}itab.T_E070_ORDER.hashRows {|x| $Last_Time.push(x['AS4TIME'])}$Order_Row_Len = $Order_Number.lengthitab.T_E07T.hashRows {|x| $Order_Name.push(x['AS4TEXT'])}itab.T_E070_TASK.hashRows {|x| $Task_Numbers.push(x['STRKORR'].to_s.strip)}$Task_Row_Len = $Task_Numbers.lengthitab.T_E071.hashRows {|x| $Task_Number.push(x['TRKORR'])}itab.T_E071.hashRows {|x| $Program_Id.push(x['PGMID'])}itab.T_E071.hashRows {|x| $Object_Type.push(x['OBJECT'])}itab.T_E071.hashRows {|x| $Object_Name.push(x['OBJ_NAME'])}for i in 0...$Order_Row_Len  print $Order_Number[i].to_s.strip," "  print $Order_Name[i].to_s.strip," "  print $Last_Date[i]," "  print $Last_Time[i]  for j in 0...$Task_Row_Len      if $Order_Number[i] == $Task_Numbers[j]      print "\n"      print $Task_Number[j].to_s.strip," "      print $Program_Id[j]," "      print $Object_Type[j]," "      print $Object_Name[j]      end  end    print "\n\n"endprint "\nclose connection: ", rfc.close(), "\n"

Easy right? Hope you like it, and stay tuned for the next volume.