cancel
Showing results for 
Search instead for 
Did you mean: 

Creating transport and getting the id from the command prompt?

Former Member
0 Kudos

Is there a way of creating a new transport and getting the id from command prompt.

I'm using Ration Clear Quest to manage my tasks, when the new task is created i want to to automatically create a new transport in SAP and return the ID, so when i pass it to a developer, he'll have all the info.

Cheers - Peter

Accepted Solutions (0)

Answers (1)

Answers (1)

Former Member
0 Kudos

Download and install RFCSDK from SAP

You can use the Function Module IW_C_CREATE_TRANSPORT_REQUEST to create your transport.

The FM need 3 parameters:

Description

Transport_kind (K or W)

Language

This Function Module return the transport ID.

Wenceslao Lacaze

Solution Manager Consulent

*****************************************************

I send my EXCEL MACRO to see another option to control transports.

*****************************************************

*****************************************************

Sub IMPORT_CR_SID)

Dim command

If ActiveCell.Value <> "" Then

command = "rexec 10.0.1.7 -l root su -SIDadm - c tp ADDTOBUFFER SIDK90" & ActiveCell.Value & " SID client100 "

command = command & " pf=/usr/sap/trans/bin/TP_DOMAIN_SID.PFL"

Set wsShell = CreateObject("wscript.shell")

Set proc = wsShell.Exec(command)

Dim s: s = ""

Do While proc.Status = 0

Application.Wait (Now + TimeValue("0:00:01"))

Loop

s = s & "StdOut=" & proc.StdOut.ReadAll()

s = s & Chr(13) & Chr(10) & "ExitCode=" & proc.ExitCode

MsgBox (s)

Set wsShell = Nothing

Set proc = Nothing

Else

MsgBox "Seleccione el Numero de CR"

End If

End Sub

*****************************************************

*****************************************************

Sub STATUS_CR_SID()

Dim command

If ActiveCell.Value <> "" Then

command = "rexec 10.0.1.7 -l SIDadm tp showinfo " & ActiveCell.Value

command = command & " pf=/usr/sap/trans/bin/TP_DOMAIN_SID.PFL"

Set wsShell = CreateObject("wscript.shell")

Set proc = wsShell.Exec(command)

Dim s: s = ""

Do While proc.Status = 0

Application.Wait (Now + TimeValue("0:00:01"))

Loop

s = s & "StdOut=" & proc.StdOut.ReadAll()

s = s & Chr(13) & Chr(10) & "ExitCode=" & proc.ExitCode

MsgBox (s)

Set wsShell = Nothing

Set proc = Nothing

Else

MsgBox "Seleccione el Numero de CR"

End If

End Sub

*****************************************************

*****************************************************

*****************************************************

Sub IMPORT_CR_SID()

Dim command

If ActiveCell.Value <> "" Then

command = "rexec 10.0.1.7 -l SIDadm tp import " & ActiveCell.Value & " SID client199 "

command = command & " pf=/usr/sap/trans/bin/TP_DOMAIN_SID.PFL"

Set wsShell = CreateObject("wscript.shell")

Set proc = wsShell.Exec(command)

Dim s: s = ""

Do While proc.Status = 0

Application.Wait (Now + TimeValue("0:00:01"))

Loop

s = s & "StdOut=" & proc.StdOut.ReadAll()

s = s & Chr(13) & Chr(10) & "ExitCode=" & proc.ExitCode

MsgBox (s)

Set wsShell = Nothing

Set proc = Nothing

Else

MsgBox "Seleccione el Numero de CR"

End If

End Sub