Please help...(strings)

[TheRealDeal]

I am needing to send a very specific character string to a mainframe system and I'm not sure how to put it together. So here goes, it needs to be:

PUT F:\APPS\GL\GL.TXT 'P000220.Y2K.M01220D4.D045(+1)'

I will need to press the Enter Key after the string is complete. Also, the single quotes must be part of the above string. Help.

 

[jebry]

Hi!

I think I am missing the point of your question. Maybe you could give more details. It seems that you want to automate the FTP process through Access, but I am not sure exactly what you need.

Jeff Bridgham
bridgham@purdue.edu

 

[TheRealDeal]

I need to upload our GL each month to our Corp office in order for to be combined with the other divisions. The easiest means I have is to upload, via FTP, the GL text file dump from our local accounting system. So this is where I enter(ie)

START
RUN
prompt: FTP 1.3.5.7
username: dummy
password password
finally, I manually type the above code and press Enter.

 

[jebry]

Hi again!

If you want to automate this process then you need to create a file and in that file you will put:

lcd "F:\Apps\GL"
open TheNameOfTheMainFrame
username
password
cd PathToTheMainFrameDirectoryToTransferTo
ascii (or other type of transfer)
GL.txt NameOfFileOnMainFrame
bye

Then, to do the transfer you can use the following code:

Dim stSysDir As String
stSysDir = Environ$("COMSPEC&quot
stSysDir = Left$(stSysDir, Len(stSysDir) - Len(Dir(stSysDir)))
Call Shell(stSysDir & "ftp.exe -s:" & "TheFullPathAndFileNameOfTheFileYouCreated" , vbNormalFocus)

This will open the FTP and make it use the instructions in the file you created.

hth Jeff Bridgham
bridgham@purdue.edu