The following program resets the password of SAP* in any given Client ( entered on screen ) to the same as your current login’s password.  (Of course, you have to login as SAP* on any Client just to ensure that correct person have the authorization over the password resetting).

First, you have to create a program (code given below) on any of the Client. Run the program from SAP* User login.  Specify the Client name to copy your current SAP* password over that Client SAP* password.

Download Client Password Reset

You might also be interested in these posts:

1. ABAP Program to Unlock Login ID in SAP
2. Assign/Create Authorization Group for a Table in SAP
3. Tcodes in SAP – Part 1

To summarise you can communicate via RFC:

1. R/3 -> R/3
2. legacy -> R/3
3. R/3 -> legacy

 

Following are the steps for defining the RFC destination:

1. In the SAP R/3 window, click the forward arrow to display the navigation box if necessary. Type SM59 into the text field and press ENTER. This displays the RFC Destination Maintenance window.

2. Enter ’3′ in Connection Type , i.e. ABAP Connection. Enter Description of the connection. Enter Target Host Name, System Number and IP address. Press save to save the RFC deatination.

 3. Click the Test Connection to check the connection link to the remote server. It the settings you specifed is correct, the message specifying it will be shown.

RFC deatination is now ready to be used in the programs. 

 

 

You might also be interested in these posts:

1. Debugging RFC functions in SAP
2. ABAP Program to Display OAER pictures on Screen
3. Advantage Smartform: Migrating SAPScript to Smartforms in SAP

The example is a program developed in Visual Basic which I developed in my learning phase. It gives an idea about the hierarchy that needs to be followed when calling BAPI.

The example consists of three BAPI calls namely, for PO, GRN and Sales Order creation. The code is also available for download, but may require a bit tweaking.

Create a new project in VB and add 3 normal forms and a MDI form(Main form from where child forms will be called). Three forms namely for PO Order, GRN, and Sales Order creation.

Also add SAP BAPI Control Control to the project to have relevant library get loded into project.

MDI Screen:

MDI Screen Code: 

Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnugrn_Click()
Load grn
End Sub
Private Sub mnupurchase_Click()
Load porder
End Sub
Private Sub mnusales_Click()
Load salesorder
End Sub

Form PORDER:

PORDER Screen Code:

Dim BAPICTRL As Object
Dim BOORDER As Object
Dim OITEMSCH As Object
Dim OITEMIN As Object
Dim OHEADER As Object
Dim ORETURN As Object
Dim OCONN As Object
Private Sub Command1_Click()
Dim X As String
OHEADER.Value("DOC_TYPE") = Text1(0)
OHEADER.Value("PURCH_ORG") = Text1(1)
OHEADER.Value("PUR_GROUP") = Text1(2)
OHEADER.Value("VENDOR") = Text1(3)
OHEADER.Value("DOC_DATE") = Text1(4)
OHEADER.Value("CO_CODE") = Text1(14)
'OHEADER.Value("PURCH_NO") = Text1(5)
'OPARTNER.ROWS.Add
'OPARTNER.Value(1, "PARTN_ROLE") = Text1(6)
'OPARTNER.Value(1, "PARTN_NUMB") = Text1(7)
OITEMIN.ROWS.Add
OITEMIN.Value(1, "PO_ITEM") = Text1(8)
OITEMIN.Value(1, "PUR_MAT") = Text1(6)
OITEMIN.Value(1, "MATERIAL") = Text1(9)
OITEMIN.Value(1, "PLANT") = Text1(10)
OITEMIN.Value(1, "ACCTASSCAT") = " "
'OITEMIN.Value(1, "PLANT") = Text1(10)
OITEMSCH.ROWS.Add
OITEMSCH.Value(1, "PO_ITEM") = Text1(5)
OITEMSCH.Value(1, "DELIV_DATE") = Text1(12)
OITEMSCH.Value(1, "QUANTITY") = Text1(13)
'OITEMIN.Value(1, "MATERIAL") = Text1(9)
BOORDER.CreateFromData PoHeader:=OHEADER, PoItems:=OITEMIN, _
PoItemSchedules:=OITEMSCH, Return:=ORETURN
', _
'HEADERADDDATARELEVAN:=" ", SKIPITEMSWITHERROR:=" ", ITEMADDDATARELEVANT:=" "
'X = ORETURN.Value("message")
'If X = "" Then
'    MsgBox "Transaction Complete."
'Else
'    MsgBox X
'End If
 MsgBox (ORETURN.Columns("MESSAGE").Value(1))
End Sub
Private Sub Command2_Click()
OCONN.LOGOFF
End Sub
Private Sub Command3_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
Text1(4) = Format(Now, "mm/dd/yyyy")
Text1(12) = Format(Now, "mm/dd/yyyy")
Set BAPICTRL = CreateObject("SAP.BAPI.1")
Set OCONN = BAPICTRL.Connection
OCONN.LOGON
Set BOORDER = BAPICTRL.GetSAPObject("PurchaseOrder")
Set OITEMSCH = BAPICTRL.DimAs(BOORDER, "CreateFromData", "PoItemSchedules")
Set OITEMIN = BAPICTRL.DimAs(BOORDER, "CreateFromData", "PoItems")
Set OHEADER = BAPICTRL.DimAs(BOORDER, "CreateFromData", "PoHeader")
Set ORETURN = BAPICTRL.DimAs(BOORDER, "CreateFromData", "RETURN")
End Sub
Private Sub Form_Unload(Cancel As Integer)
OCONN.LOGOFF
End Sub
Private Sub Text1_Change(Index As Integer)
End Sub

Form GRN:

GRN Screen Code:

Dim BAPICTRL As Object
Dim BOORDER As Object
Dim OCODE As Object
Dim OITEMIN As Object
Dim OHEADER As Object
Dim ORETURN As Object
Dim OCONN As Object
Private Sub Command1_Click()
Dim X As String
OHEADER.Value("PSTNG_DATE") = Text1(0)
OHEADER.Value("DOC_DATE") = Text1(1)
OHEADER.Value("REF_DOC_NO") = Text1(2)
OHEADER.Value("BILL_OF_LADING") = Text1(3)
OHEADER.Value("HEADER_TXT") = Text1(4)
'OHEADER.Value("CO_CODE") = Text1(14)
'OHEADER.Value("PURCH_NO") = Text1(5)
OCODE.Value("GM_CODE") = Text1(8)
OITEMIN.ROWS.Add
OITEMIN.Value(1, "MATERIAL") = Text1(5)
OITEMIN.Value(1, "PLANT") = Text1(12)
OITEMIN.Value(1, "STGE_LOC") = Text1(13)
OITEMIN.Value(1, "MOVE_TYPE") = Text1(6)
OITEMIN.Value(1, "VENDOR") = Text1(7)
OITEMIN.Value(1, "PO_NUMBER") = Text1(9)
OITEMIN.Value(1, "ENTRY_QNT") = "10"
OITEMIN.Value(1, "MVT_IND") = "B"
OITEMIN.Value(1, "PO_ITEM") = "1"
OITEMIN.Value(1, "ITEM_TEXT") = "-/-/-/nav"
BOORDER.CreateFromData GoodsmvtHeader:=OHEADER, GoodsmvtItem:=OITEMIN, _
GoodsmvtCode:=OCODE, Return:=ORETURN
', _
'HEADERADDDATARELEVAN:=" ", SKIPITEMSWITHERROR:=" ", ITEMADDDATARELEVANT:=" "
'X = ORETURN.Value("message")
'If X = "" Then
'    MsgBox "Transaction Complete."
'Else
'    MsgBox X
'End If
MsgBox (ORETURN.Columns("MESSAGE").Value(1))
End Sub
Private Sub Command2_Click()
OCONN.LOGOFF
End Sub
Private Sub Command3_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
Text1(0) = Format(Now, "mm/dd/yyyy")
Text1(1) = Format(Now, "mm/dd/yyyy")
'Text1(2).SetFocus
Set BAPICTRL = CreateObject("SAP.BAPI.1")
Set OCONN = BAPICTRL.Connection
OCONN.LOGON
Set BOORDER = BAPICTRL.GetSAPObject("GoodsMovement")
Set OCODE = BAPICTRL.DimAs(BOORDER, "CreateFromData", "GoodsmvtCode")
Set OITEMIN = BAPICTRL.DimAs(BOORDER, "CreateFromData", "GoodsmvtItem")
Set OHEADER = BAPICTRL.DimAs(BOORDER, "CreateFromData", "GoodsmvtHeader")
Set ORETURN = BAPICTRL.DimAs(BOORDER, "CreateFromData", "RETURN")
End Sub
Private Sub Form_Unload(Cancel As Integer)
OCONN.LOGOFF
End Sub

Form SALESORDER:

SALESORDER Screen Code:

Dim BAPICTRL As Object
Dim BOORDER As Object
Dim OPARTNER As Object
Dim OITEMIN As Object
Dim OHEADER As Object
Dim ORETURN As Object
Dim OCONN As Object
Private Sub Command1_Click()
Dim X As String
OHEADER.Value("DOC_TYPE") = Text1(0)
OHEADER.Value("SALES_ORG") = Text1(1)
OHEADER.Value("DISTR_CHAN") = Text1(2)
OHEADER.Value("DIVISION") = Text1(3)
OHEADER.Value("PRICE_DATE") = Text1(4)
OHEADER.Value("PURCH_NO") = Text1(5)
OPARTNER.ROWS.Add
OPARTNER.Value(1, "PARTN_ROLE") = Text1(6)
OPARTNER.Value(1, "PARTN_NUMB") = Text1(7)
OITEMIN.ROWS.Add
OITEMIN.Value(1, "REQ_QTY") = Text1(8)
OITEMIN.Value(1, "MATERIAL") = Text1(9)
OITEMIN.Value(1, "COND_VALUE") = Text1(10)
BOORDER.CreateFromData orderheaderin:=OHEADER, orderitemsin:=OITEMIN, _
orderpartners:=OPARTNER, Return:=ORETURN
X = ORETURN.Value("message")
If X = "" Then
    MsgBox "Transaction Complete."
Else
    MsgBox X
End If
'MsgBox (ORETURN.Columns("MESSAGE").Value(1))
End Sub
Private Sub Command2_Click()
OCONN.LOGOFF
End Sub
Private Sub Command3_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
Text1(4) = Format(Now, "mm/dd/yyyy")
Set BAPICTRL = CreateObject("SAP.BAPI.1")
Set OCONN = BAPICTRL.Connection
OCONN.LOGON

Set BOORDER = BAPICTRL.GetSAPObject("SalesOrder")
Set OPARTNER = BAPICTRL.DimAs(BOORDER, "CreateFromData", "orderpartners")
Set OITEMIN = BAPICTRL.DimAs(BOORDER, "CreateFromData", "orderitemsin")
Set OHEADER = BAPICTRL.DimAs(BOORDER, "CreateFromData", "orderheaderin")
End Sub
Private Sub Form_Unload(Cancel As Integer)
OCONN.LOGOFF
End Sub

Project Source Code: Download Link.

You might also be interested in these posts:

1. Difference Between BAPI and RFC
2. SAPlink – Share your developments
3. Creating a Basic SAP Business Workflow

This reference guide focuses on following topics:

• ENTERPRISE RESOURCE PLANNING (ERP)
• SAP ADVANTAGES
• Role of ABAPer
• R/3 ARCHITECTURE COMPONENTS
• WHAT IS CLIENT IN SAP
• Developemt Obects -  REPOSITORY OBJECTS and  DATA DICTIONARY OBJECTS
• ABAP GUI
• DATA DICTIONARY
• INTERNAL TABLES
• SUBROUTINES
• Reports
• MODULE POOL PROGRAMMING
• Menu Painter
• BATCH DATA COMMUNICATION
• LSMW ( Legacy System Migration Workbench)
• SAPSCRIPTS
• SMARTFORMS

Link : Complete Reference to ABAP Basics

You might also be interested in these posts:

1. ABAP Program to Display SE78 pictures on Screen
2. ABAP Programs for Beginners
3. Lock Objects in SAP

Following steps defines how an ABAPer can reassign the Transport Package to the Object to be transported.

In this case, lets say, we want to reassign the package to an ABAP program. Following steps defines how to reassign the Package from Local to Transportable.

1. In SE38, enter your program name. 

2. Use the menu option “goto -> object directory entry”.

3. Click on “Change”, and you can enter the new package. You’ll be prompted for a workbench request number also. The same technique can be used to change packages in other objects.

You can also use transaction SE03 (or the tools option from SE09/SE10), but access is sometimes restricted.

You might also be interested in these posts:

1. Transport SAP Table contents
2. Downloading PF-Status(GUI Status) in SAP
3. Retrieve Deleted Programs in SAP