FTP to MainFrame

That would be the ideal solution, giltjr.

I'm having issues getting WS FTP Pro to output to a GDG.

It will work with DOS FTP like this:

put "TestFile" 'SOME.MAIN.FRAME.DATA.SETS.TEST'

BUT, with WS FTP Pro 2007, I have tried:

put "E:\Program Files\Program01\SOMEFILE.txt" 'SOME.MAIN.FRAME.DATA.SETS.TEST(+1)'

I'm unable to run my script right now, so i'll have to get the error msg here tomorrow.

Thanks for your help.

Typically putting to a GDG fails because because you did not specify a model DSCB.  You need to issue:

   quote site DCBDSN='some.file.name'
   quote site LRECL BLKSIZE RECFM

The second qoute site will tell z/OS to use the LRECL BLKSIZE and RECFM from the DCBDSN.  If you want to use a differenc DCB, then you still issue the quote site with DCBDSN, but then issue the second quote site like:

   quote site LRECL=xx BLKSIZE=yy RECFM=aa

where xx, yy, and aa are set to what you need.

Thanks giltjr.

Forgot to mention in WS FTP Pro I'm able specify a mdoel DSCB in the form of a site (profile).

site lrecl=2500 blksize=27500 recfm=fb cyl pri=250 sec=50;

Here's what I ran:

trace screen
auth ssl 1
connect CB
log E:\Program Files\Program01\Program01.log
quote cwd ''
quote cwd 'SOME.MAIN.FRAME.DATA.SETS.TEST'
quote type a
put "E:\Program Files\Program01\SOMEFILE.txt" SOME.MAIN.FRAME.DATA.SETS.TEST(+1)
dir
close

Here's the log, I put --> to point to where the errors are:

------ Start stepping the script ------

Processing Line 1 [trace screen]

Processing Line 2 [auth ssl 1]

Processing Line 3 [connect CB]
Finding Host HZIDEV ...
Connecting to xx.xxx.xx.xxx.xx
Connected to xx.xxx.xx.xxx.xx in 0.015625 seconds, Waiting for Server Response
Initializing SSL Session ...
220-FTPD1 IBM FTP CS V1R4 at XXXXXXX, 17:08:37 on 2007-05-25.
220 Connection will close if idle for more than 5 minutes.
AUTH TLS
234 Security environment established - ready for negotiation
SSL session NOT set for reuse
SSL Session Started.
Host type (1): Automatic Detect
USER MFUserAcct
331 Send password please.
PASS (hidden)
230 MFUserAcct is logged on.  Working directory is "MFUserAcct.".
SYST
215 MVS is the operating system of this server. FTP Server is running on z/OS.
Host type (2): IBM MVS
PBSZ 0
200 Protection buffer size accepted
PROT P
200 Data connection protection set to private
PWD
257 "'MFUserAcct.'" is working directory.
site lrecl=2500 blksize=27500 recfm=fb cyl pri=250 sec=50
200 SITE command was accepted

Processing Line 4 [log E:\Program Files\Program01\Program01.log]

Processing Line 5 [quote cwd '']
Sending command [cwd] with parameter ['']
cwd ''
250 "" is the working directory name prefix.

Processing Line 6 [quote cwd 'SOME.MAIN.FRAME.DATA.SETS.TEST']
Sending command [cwd] with parameter ['SOME.MAIN.FRAME.DATA.SETS.TEST']
cwd 'SOME.MAIN.FRAME.DATA.SETS.TEST'
250 "SOME.MAIN.FRAME.DATA.SETS.TEST." is the working directory name prefix.

Processing Line 7 [quote type a]
Sending command [type] with parameter [a]
type a
200 Representation type is Ascii NonPrint

Processing Line 8 [put "E:\Program Files\Program01\SOMEFILE.txt" 'SOME.MAIN.FRAME.DATA.SETS.TEST(+1)]
CDUP
250 "SOME.MAIN.FRAME.DATA.SETS." is the working directory name prefix.
CDUP
250 "SOME.MAIN.FRAME.DATA." is the working directory name prefix.
CDUP
250 "SOME.MAIN.FRAME." is the working directory name prefix.
CDUP
250 "SOME.MAIN." is the working directory name prefix.
CDUP
250 "SOME." is the working directory name prefix.
CDUP
250 "" is the working directory name prefix.
CDUP
--> 501 Directory is already NULL
CWD 'MFUserAcct..SOME.MAIN.FRAME.DATA.SETS.TEST.SOME.MAIN.FRAME.DATA.SETS.TEST'
--> 501 Invalid directory name - too large.
XCWD 'MFUserAcct..SOME.MAIN.FRAME.DATA.SETS.TEST.SOME.MAIN.FRAME.DATA.SETS.TEST'
--> 501 Invalid directory name - too large.
PWD
257 "''" is working directory.
CWD MFUserAcct.''.'SOME.MAIN.FRAME.DATA.SETS.TEST'
--> 501 Invalid directory name - too large.
XCWD MFUserAcct.''.'SOME.MAIN.FRAME.DATA.SETS.TEST'
--> 501 Invalid directory name - too large.
--> Failure in command [put "E:\Program Files\Program01\SOMEFILE.txt" 'SOME.MAIN.FRAME.DATA.SETS.TEST(+1)]

Thanks for looking at this.

You're cool, and thanks for the explanation.

I'll try it once I have a chace. Will keep you posted!

There was an error and file did not FTPed.

Here's what I ran:

trace screen
auth ssl 1
connect CB
log E:\Program Files\Program01\Program01.log
quote type a
put "E:\Program Files\Program01\SOMEFILE.txt" 'SOME.MAIN.FRAME.DATA.SETS.TEST(+1)'

dir
close

Here's what in the error log:

------ Started running the script ------

Processing Line 1 [trace screen]

Processing Line 2 [auth ssl 1]

Processing Line 3 [connect CB]
Finding Host XXXXXX ...
Connecting to XX.XXX.XX.XXX.XX
Connected to XX.XXX.XX.XXX.XX in 0.015625 seconds, Waiting for Server Response
Initializing SSL Session ...
220-FTPD1 IBM FTP CS V1R4 at XXXXXX, 23:33:53 on 2007-05-25.
220 Connection will close if idle for more than 5 minutes.
AUTH TLS
234 Security environment established - ready for negotiation
SSL session NOT set for reuse
SSL Session Started.
Host type (1): Automatic Detect
USER MFUserAcct
331 Send password please.
PASS (hidden)
230 MFUserAcct is logged on.  Working directory is "MFUserAcct.".
SYST
215 MVS is the operating system of this server. FTP Server is running on z/OS.
Host type (2): IBM MVS
PBSZ 0
200 Protection buffer size accepted
PROT P
200 Data connection protection set to private
PWD
257 "'MFUserAcct.'" is working directory.
site lrecl=2500 blksize=27500 recfm=fb cyl pri=250 sec=50
200 SITE command was accepted

Processing Line 4 [log E:\Program Files\Program01\Program01.log]

Processing Line 5 [quote type a]
Sending command [type] with parameter [a]
type a
200 Representation type is Ascii NonPrint

Processing Line 6 [put "E:\Program Files\Program01\SOMEFILE.txt" 'SOME.MAIN.FRAME.DATA.SETS.TEST(+1)']
CDUP
250 "" is the working directory name prefix.
CWD 'MFUserAcct
--> 501 Mismatched quotes on directory name "'MFUserAcct".
XCWD 'MFUserAcct
--> 501 Mismatched quotes on directory name "'MFUserAcct".
CWD 'MFUserAcct.SOME.MAIN.FRAME.DATA.SETS'
250 "MFUserAcct.SOME.MAIN.FRAME.DATA.SETS." is the working directory name prefix.
PWD
257 "'MFUserAcct.SOME.MAIN.FRAME.DATA.SETS.'" is working directory.
TYPE A
200 Representation type is Ascii NonPrint
PASV
227 Entering Passive Mode (xx.xxx.xx.xxx.x.xxx)
connecting data channel to xx.xxx.xx.xxx.x.xxx(2539)
data channel connected to xx.xxx.xx.xxx.x.xxx(2539)
LIST
125 List started OK
transferred 134 bytes in < 0.001 seconds, 1046.875 Kbps ( 130.859 Kbps), transfer succeeded.
250 List completed successfully.
Starting request
Starting request
Starting request
Transfer request completed with status: Failed, 1 SubItem(s) failed
Transfer log was saved at C:\Documents and Settings\HM14069\Application Data\Ipswitch\WS_FTP\Logs\TransferReq2-00005.log
CWD MFUserAcct.
250 "MFUserAcct.SOME.MAIN.FRAME.DATA.SETS.MFUserAcct." is the working directory name prefix.
Failure in command [put "E:\Program Files\HMSA\Argus_CB\2.txt" 'SOME.MAIN.FRAME.DATA.SETS.TEST(+1)']

Processing Line 8 [dir]
PWD
257 "'MFUserAcct.SOME.MAIN.FRAME.DATA.SETS.MFUserAcct.'" is working directory.
TYPE A
200 Representation type is Ascii NonPrint
PASV
227 Entering Passive Mode (xx.xxx.xx.xxx.x.xxx)
connecting data channel to xx.xxx.xx.xxx.x.xxx(2544)
data channel connected to xx.xxx.xx.xxx.x.xxx(2544)
LIST
550 No data sets found.
            Directory of MFUserAcct.SOME.MAIN.FRAME.DATA.SETS.MFUserAcct.
            0 Dirs            0 Files            0 Bytes

Processing Line 9 [close]
QUIT
221 Quit command received. Goodbye.
Connection closed.  Ready for next connection.

------ Finished running the script ------

Something does not look right.  I see commands that seem to be being issued from you, but I don't see them in the script.

I see CWD, XCWD and SITE LRECL .... commands, but they do not exist in your script.

You mentioned before that the site command was in a "profile", could the profile have the CWD and XCWD commands also?  If so try removing them.

Thanks giltjr

The profile contains this:
site lrecl=2500 blksize=27500 recfm=fb cyl pri=250 sec=50;

and in the 'TRANSFER' tab, the only things that are checked:

Update folder after transfer
Skip unmodified files

There are other tabs for settings such as port, passive mode, verify deletion, SSL, firewall, etc.

Thanks for your help!

I would suggest that you try doing this manually first.

Once you have connected to the ftp server and logged on you should only need to issue the commands:

ascii
quote site lrecl=2500 blksize=27500 recfm=fb cyl pri=250 sec=50
put "E:\Program Files\Program01\SOMEFILE.txt" 'SOME.MAIN.FRAME.DATA.SETS.TEST(+1)'

Weird -- it doesn't work. I think it's a WS FTP Pro thing.

I'll need to research.

I'll try FTP DOS and see if it works.

ftp dos does NOT support SSL'ed ftp.  So if your mainframe ftp server requires SSL, you are out of luck.

Hey giltjr,

Tried this and it FTPed successfully to the GDG.

trace screen
auth ssl 1
connect CB
log E:\Program Files\Program01\Program01.log
quote cwd ''
quote cwd ''SOME.MAIN.FRAME.DATA.SETS'
quote type a
put "E:\Program Files\Program01\SOMEFILE.txt"   TEST(+1)
dir
close

But, I would get this err msg:

Processing Line 8 [put "E:\Program Files\Program01\SOMEFILE.txt"  DRUGCLM(+1)]
PWD
257 "'SOME.MAIN.FRAME.DATA.SETS'" is working directory.
TYPE A
200 Representation type is Ascii NonPrint
PASV
227 Entering Passive Mode (xx,xx,xx,xx,x,20)
connecting data channel to xx.xxx.xx.xx:9,20(2324)
data channel connected to xx.xxx.xx.xx:9,20(2324)
LIST
125 List started OK
transferred 1385 bytes in 0.047 seconds, 230.829 Kbps ( 28.854 Kbps), transfer succeeded.
250 List completed successfully.
Starting request
Transfer request completed with status: Finished
CWD MFUserAcct.''.'SOME.MAIN.FRAME.DATA.SETS'
--> 501 Invalid directory name - too large.
XCWD MFUserAcct.''.'SOME.MAIN.FRAME.DATA.SETS'
--> 501 Invalid directory name - too large.

Any ideas?

Thanks again for your help!

It still appears that WSFTP is doing things under the covers.

I have no clue what would be changing TEST(+1) to  DRUGCLM(+1)].

The "501" errors are because something is issuing an invalid CD (CDW) command.  It looks almost like WSFTP is always attempting to change to your "home" directory, which it is assuming is your userid.

Either than or the system programmers on the z/OS side have some exits in place that are doing things under the covers based on your companies standards and they are attempting to force you to put the file in "your" home directory.  Which in the MVS side of z/OS would mean that the file name must start with your userid.

Just to make sure.  You have:

     quote cwd ''
     quote cwd ''SOME.MAIN.FRAME.DATA.SETS'

I am assuming on the first command this is two single quotes and in the second it is a typo and it is really:

    quote cwd 'SOME.MAIN.FRAME.DATA.SETS'

You should be able to take the first quote cwd out.  In fact you should be able to just do:

        CD  'SOME.MAIN.FRAME.DATA.SETS'