Hi, du kannst die Contols von CA/400 verwenden (CWBCTRL.OXC). Hier ein Beispielcode für die Verwendung des RemoteCommand-Objektes.

Option Explicit

Private Sub Form_Load()
cwbRemoteCommandButton1.SystemName = "S44G1888"
cwbRemoteCommandButton1.CommandString = "CALL SAWI/MESSAGE"
End Sub

Private Sub Command1_Click()
Dim Result&
cwbRemoteCommandButton1.DoClick
Result = cwbRemoteCommandButton1.GetErrorMessageCount
If Result = 0 Then Exit Sub
'Sonst hier ErrHandle
End Sub

Damit kannst du auf jeden Fall ein CL oder was auch immer auf der AS/400 ausführen. Result ist erst 0 wenn der Job beendet ist. Der Job wird unter dem Benutzer QUSER gestartet.

mfg

Sascha