bibliothek ist in libl vorhanden.
auch der copy befehl scheint nicht zu funktionieren
nichts funktioniert, bin am verzweifeln...

vielleicht seht Ihr einen Fehler:

CLP (TRUMPFH/THYS00CWEB):
PGM
/* */
/* */
/* WRKLNK QNTC FÜR VERBINDUNG */
/* */
MKDIR DIR('/QNTC/WEB1')
MONMSG MSGID(CPF0000)
/* */
CPYFRMIMPF FROMSTMF('QNTC/WEB1/THYSSENEIN/hoericht') +
TOFILE(SWDTA/THYS00H) MBROPT(*REPLACE) +
RCDDLM(*CRLF) STRDLM(*NONE) FLDDLM('#')

Visual Basic:

Dim cnn As ADODB.Connection
Dim CallCmd AsString
cnn = New ADODB.Connection
cnn.Open("Provider=IBMDA400;" & _
"Data Source=SERVER;" & _
"User ID=USER;" & _
"Password=PWD;")


CallCmd = "{CALL TRUMPFH.THYS00CWEB}"
cnn.Execute(CallCmd)
cnn.Close()

Arbeite hier mit strpdm, also auf /400 Basis
Auch doppelte geschweifte Klammern beim Call blieb ohne Erfolg...