on 02-20-2007 5:18 PM
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
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
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
80 | |
24 | |
11 | |
9 | |
7 | |
6 | |
5 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.