DECLARE
-- constant for user identification
  cstrMUsrClient          constant char (3)                            := '100';
  cstrMUsrUser            constant varchar2 (10)                   := 'UPPLDEV';
  cstrMUsrPassword        constant varchar2 (10)                  := 'UPPLSTAR';
  cstrMUsrLanguage        constant varchar2 (10)                        := 'EN';
-- constant for system identification
  cstrMSysSystem          constant varchar2 (10)                       := 'DEV';
  cstrMSysMessageServer   constant varchar2 (10)                    := 'ECCDEV';
  cstrMSysGroupName       constant varchar2 (10)                    := 'PUBLIC';
  vConCtrl                         OleObj;
  hWnd                             olevar;
  v_args                           OLE2.LIST_TYPE;
  vBAPICtrl                        SAPBAPIControlLib_CONSTANTS.SAPBAPIControl;
  v_conn_result                    SAPLogonCtrl_CONSTANTS.CRfcConnectionStatus;
  v_dummy                          olevar;
  vLogonControl                    OleObj;
  vGoodsMovement                   oleobj;
  vGoodsMovementHeader             oleobj;
  vGoodsMvtHeaderReturn            oleobj;
  vGoodsMovementCode               oleobj;
  vTabGoodsMovementItem            oleobj;
  vGoodsMovementReturn             oleobj;
  vGMSerialNumber                  oleobj;
  v_Item_rows                      oleobj;
  helpcontextid                    PLS_INTEGER;
  helpfile                         VARCHAR2 (255);
  source                           VARCHAR2 (255);
  description                      VARCHAR2 (255);
  errornumber                      PLS_INTEGER;
  errnum                           PLS_INTEGER;
BEGIN
--   create BAPI ActiveX control object
  vBAPICtrl              := ole2.Create_Obj ('SAP.BAPI.1');
--   create R/3 logon control object
  vLogonControl          := ole2.Create_Obj ('SAP.Logoncontrol.1');
  vConCtrl               := SAP_CSAPLogonControl.NewConnection (vLogonControl);
  SAP_CSAPLogonConnection.SYSTEM (vConCtrl, cstrMSysSystem);
  SAP_CSAPLogonConnection.MessageServer (vConCtrl, cstrMSysMessageServer);
  SAP_CSAPLogonConnection.GroupName (vConCtrl, cstrMSysGroupName);
  SAP_CSAPLogonConnection.Client (vConCtrl, cstrMUsrClient);
  SAP_CSAPLogonConnection.User (vConCtrl, cstrMUsrUser);
  SAP_CSAPLogonConnection.Password (vConCtrl, cstrMUsrPassword);
  SAP_CSAPLogonConnection.Language (vConCtrl, cstrMUsrLanguage);
  SAP_CWdoAuto.Connection (vBAPICtrl, vConCtrl);
  if SAP_CSAPLogonConnection.Logon (vConCtrl, hWnd, 0) = 0 then
    MESSAGE ('SAP Logon Fail');
    message ('SAP Logon Fail');
  else
    message ('SAP Logon Success');
    message ('SAP Logon Success');
  end if;
  vGoodsMovement         := SAP_CWdoAuto.GetSAPObject (vBAPICtrl,
                                                       'GoodsMovement');
  vGoodsMovementHeader   := SAP_CWdoAuto.DimAs (vBAPICtrl,
                                                vGoodsMovement,
                                                'CreateFromData',
                                                'GoodsmvtHeader');
  vGoodsMovementCode     := SAP_CWdoAuto.DimAs (vBAPICtrl,
                                                vGoodsMovement,
                                                'CreateFromData',
                                                'GoodsmvtCode');
  vGoodsMvtHeaderReturn  := SAP_CWdoAuto.DimAs (vBAPICtrl,
                                                vGoodsMovement,
                                                'CreateFromData',
                                                'GoodsmvtHeadret');
  vTabGoodsMovementItem  := SAP_CWdoAuto.DimAs (vBAPICtrl,
                                                vGoodsMovement,
                                                'CreateFromData',
                                                'GoodsmvtItem');
  vGoodsMovementReturn   := SAP_CWdoAuto.DimAs (vBAPICtrl,
                                                vGoodsMovement,
                                                'CreateFromData',
                                                'Return');
  vGMSerialNumber        := SAP_CWdoAuto.DimAs (vBAPICtrl,
                                                vGoodsMovement,
                                                'CreateFromData',
                                                'GoodsmvtSerialnumber');
  SAP_IStructure.Value (vGoodsMovementHeader,
                        to_variant ('20040226'),
                        to_variant ('PSTNG_DATE'));
  SAP_IStructure.Value (vGoodsMovementCode,
                        to_variant ('04'),
                        to_variant ('GM_CODE'));
  v_Item_rows            := SAP_CSAPTaFacTable.AppendRow (vTabGoodsMovementItem);
  SAP_CSAPTaFacTable.Value (vTabGoodsMovementItem,
                            1,
                            TO_VARIANT ('1865E29H01'),
                            to_variant (1));
  v_args                 := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG_OBJ (v_args, vGoodsMovementHeader);
  OLE2.ADD_ARG_OBJ (v_args, vGoodsMovementCode);
  OLE2.ADD_ARG_OBJ (v_args, vGoodsMvtHeaderReturn);
  OLE2.ADD_ARG_OBJ (v_args, vTabGoodsMovementItem);
  OLE2.ADD_ARG_OBJ (v_args, vGMSerialNumber);
  OLE2.ADD_ARG_OBJ (v_args, vGoodsMovementReturn);
  OLE2.ADD_ARG (v_args, ' ');
  OLE2.INVOKE (vGoodsMovement, 'CreateFromData', v_args);
exception
  when FORM_OLE_FAILURE then
    errnum  := LAST_OLE_EXCEPTION (source, description, helpfile,
                                   helpcontextid);
    message (source);
    message (source);
END;

FUNCTION DimAs (
  interface   OleObj,
  Object      OleObj,
  Method      VARCHAR2,
  Parameter   VARCHAR2)
  RETURN OleObj IS
  my_new_value   OleObj;
BEGIN
  Init_OleArgs (3);
  Add_OleArg (Object, VT_DISPATCH);
  Add_OleArg (Method);
  Add_OleArg (Parameter);
  my_new_value  := Call_Ole_Obj (interface, 5);
  return my_new_value;
End;