Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Winapi FTP - quote site file=jes für FTP mit OS/390
Autor: Carsten
Datum: 11.07.02 16:26
Hi, ich möchte eine JCL auf dem OS/390 von ACCESS aus starten. über einen Shellaufruf geht dies. Jedoch möchte ich dies auch über die Winapi machen. Was schon funkioniert funktioniert ist dieser Teil: Const NUMBYTES& = 1020 Dim Text1 As String Dim hOpen&, hConn&, hOutConn&, buffer$, bytesRead& Dim I As Long Dim Result&, Result1&, Result2&, Result3&, Result4& Dim Buffer1$, l&, Inf&, aa$ '... Internetopen hOpen = InternetOpen( _ scUserAgent, _ INTERNET_OPEN_TYPE_DIRECT, _ vbNullString, _ vbNullString, 0) DoEvents If hOpen = 0 Then Exit Sub '... Internetconnect hConn = InternetConnect( _ hOpen, _ "TestIP", _ INTERNET_DEFAULT_FTP_PORT, _ sFtpUserName, _ sFtpPassword, _ INTERNET_SERVICE_FTP, _ INTERNET_FLAG_PASSIVE, 0) DoEvents If hConn = 0 Then GoTo out2 ' ...Command to change a Directory Result = ftpCommand(hConn, _ False, _ FTP_TRANSFER_TYPE_ASCII, _ "CWD TEST1.COBH", _ 0, _ hOutConn) ' Command to LIST the Directory Result1 = ftpCommand(hConn, _ True, _ FTP_TRANSFER_TYPE_ASCII, _ "LIST", _ 0, _ hOutConn) DoEvents If hOutConn = 0 Then GoTo out1 Text1 = "" buffer = Space$(NUMBYTES + 4) I = 0 Do I = I + 1 ' ...Original Result2 = InternetReadFile _ (hOutConn, _ buffer, _ NUMBYTES, _ bytesRead) If bytesRead = 0 Then Exit Do ' Me.Text1 = Right(RTrim(Me.Text1 & TrimNull(buffer)), 8) Me.Text1 = Me.Text1 & TrimNull(buffer) Loop =================================================================== Ab hier versuche ich eine JCL-Datei über FTP nach JES zu schieben. Dazu verwende ich den Command "FTPCommand" aus der WININET-Api. Dieser wird noch mit einer 1 (OK) quitiert. Ab der Version 5.0 des Internetexplorers wird der FTPCommand auch unterstützt. Ich bekomme jedoch die JCL als Textdatei nicht in JES transportiert. Habe mit dem FTPPutFile versucht. Ich habe auch den Befehl FTPCommand (.... STOR C:RiWo_OS390_ToolJES.txt .... ) ausprobiert. Gehen aber alle nicht. ' ----Neu------------------------------------------------------------------------------------- Result3 = ftpCommand(hConn, _ False, _ FTP_TRANSFER_TYPE_ASCII, _ "QUOTE SITE FILE=JES", _ 0, _ hOutConn) Result4 = ftpCommand(hConn, _ False, _ FTP_TRANSFER_TYPE_ASCII, _ "Stor C:RiWo_OS390_ToolJES.txt", _ 0, _ hOutConn) ' DoEvents ' Result4 = FtpPutFile(hConn, "C:RiWo_OS390_ToolJES.txt", _ ' vbNullString, _ ' FTP_TRANSFER_TYPE_ASCII, _ ' 0) ' Call InternetGetLastResponseInfo(Inf, vbNullString, l) ' If Inf Then ' buffer = String(l + 1, 0) ' Call InternetGetLastResponseInfo(Inf, buffer, l) ' aa = Inf & " " & buffer ' Else ' aa = "Ok" ' End If ' ftpCommand hConn, _ ' True, _ ' FTP_TRANSFER_TYPE_ASCII, _ ' "QUOTE SITE FILE=JES", _ ' 0, _ hOutConn ' DoEvents ' Command to LIST the Directory ' ftpCommand hConn, _ ' True, _ ' FTP_TRANSFER_TYPE_ASCII, _ ' "LIST", _ ' 0, _ ' hOutConn ' DoEvents ' If hOutConn = 0 Then GoTo out1 ' Text1 = "" ' buffer = Space$(NUMBYTES + 4) ' I = 0 ' Do ' I = I + 1 ' ...Original ' InternetReadFile _ ' hOutConn, _ ' buffer, _ ' NUMBYTES, _ ' bytesRead ' If bytesRead = 0 Then Exit Do ' Me.Text1 = Right(RTrim(Me.Text1 & TrimNull(buffer)), 8) ' Me.Text1 = Me.Text1 & TrimNull(buffer) ' Loop ' ...Original InternetCloseHandle hConn InternetCloseHandle hOpen InternetCloseHandle hOutConn Exit_Befehl1_Click: Exit Sub Err_Befehl1_Click: MsgBox Err.Description Resume Next out1: InternetCloseHandle hConn out2: InternetCloseHandle hOpen Vielleicht habt ihr ja eine Idee ???!!! Gruß Carsten

Winapi FTP - quote site file=jes für FTP mit OS/390

41

Carsten

11.07.02 16:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen