mainframer wrote:prino wrote:No. The way to do it is to use FTP from z/OS, or to use the good old faithful and rather slow IND$FILE method, which is supported by about every emulator.
I tried
FTP from CMD prompt and
IND$file, CMD doesn't work(Time Out) and IND$file is very very slow, I mean It's so slow that I was not certain on getting result(transfer), I have a very small file, by the way how long it takes to transfer, in general?
And please let me know how to use
FTP from
Z/Os, I am new to this and want to use it.
As I wrote, FTP'ing with an
FTP Client to the FanDeZhi system is no longer possible.
What you can do, is set up an
FTP Server on your Windoze/Linux/whatever box (I use
Filezilla Server on an XP box) and start the FTP transaction on z/OS from the
READY prompt (or option 6) towards your server. If you do not have a static IP address, you can get a semi-static one from
DynDNS.com, or you can use one of the many sites that tell you your current IP address, like
IP Chicken or
utrace. You probably also have to set up your modem/router to port-forward port 21.
FTP is pretty fast, just transferred a 1.7Mb XMITfile in around 14 seconds. IND$FILE will take rather a lot longer, I haven't tried it. (You can speed up IND$FILE a little bit by using the maximum blocksize of 32,000 bytes)
Going either way it's very advisable to use
TRSMAIN (or
AMATERSE for later versions of z/OS), on the z/OS side, and
terse.exe, on the PC side, (from
tersepc.zip in the files section of
Hercules-390 group on Yahoo! - you need to be a member of the group to access the files), to compress the files before FTP'ing them.
To convert datasets to XMIT format, you can use the command
PDS2XMIT as a line command in the DSLIST (3.4) screen - despite the name, it also handles sequential datasets. You can probably also use it on PDSE's, but I don't think any of the PC based tools for extracting XMIT files can handle them! The name of the dataset created by
PDS2XMIT is the name of the original, suffixed with
.XMIT - if the original name is too long, it will not work! Note that there are no PC tools available to handle ISPF packed data, so make sure that your PDS members or dataset(s) are saved with the "PACK OFF" option!
To TERSE a dataset on z/OS, you can use the command
TERSE as a line command in the DSLIST (3.4) screen. It appends
.TER to the original dataset name, and, unlike
PDS2XMIT, it verifies that the new name will not exceed 44 characters.
UNTERSE unpacks a tersed dataset. If the dataset had a last qualifier of
.TER, it will be replaced by
.U, if not, it appends
.U. You can use the following job to TERSE datasets in batch, to UNTERSE them in batch, use a parameter of 'UNPACK' and the correct LRECL and BLKSIZE for the output dataset.
- Code: Select all
//TERSEJOB JOB (12345678),
// 'TERSE FILE(S)',
// CLASS=A,
// MSGCLASS=H,
// MSGLEVEL=(2,0),
// NOTIFY=&SYSUID
//*********************************************************************
//* This is a long-running dataset compression job, do not cancel!
//*********************************************************************
// SET TERSE='AMATERSE'
// SET AMATERSE=,TRSMAIN='NULLFILE, '
//*
// SET TERSE='TRSMAIN'
// SET TRSMAIN=,AMATERSE='NULLFILE, '
//*
// SET BLOCK='0'
// SET BLOCK='27648'
//*********************************************************************
//TERSER PROC FILE='?'
//*
//ZAP EXEC PGM=IEFBR14
//*
//TERSED DD DSN=&SYSUID..&FILE..TER,
// DISP=(MOD,DELETE),
// SPACE=(TRK,1),
// DCB=(RECFM=FB,LRECL=1024,BLKSIZE=0)
//*********************************************************************
//TERSE EXEC PGM=&TERSE,
// PARM='SPACK'
//*
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0)
//*
//SYSUT1 DD DSN=&SYSUID..&FILE,
// DISP=SHR
//*
//INFILE DD DSN=&SYSUID..&FILE,
// DISP=SHR
//*
//SYSUT2 DD DSN=&AMATERSE.&SYSUID..&FILE..TER,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(300,300),RLSE),
// DCB=(RECFM=FB,LRECL=1024,BLKSIZE=&BLOCK)
//*
//OUTFILE DD DSN=&TRSMAIN.&SYSUID..&FILE..TER,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(300,300),RLSE),
// DCB=(RECFM=FB,LRECL=1024,BLKSIZE=&BLOCK)
//*
// PEND
//*********************************************************************
// EXEC TERSER,FILE='WHATEVER.FILE'
Note that TRSMAIN will work on any z/OS system, but AMATERSE, the officially IBM-supported version, only works on z/OS 1.8(?) and above. The "
SET BLOCK='0'" statement should be used for systems that use System Determined Blocksize.
Finally, to un-XMIT files on the PC (make sure they are transferred as
BINARY!), you can use
- Neil Johnston-Ward's excellent, though no longer supported, XMIT Manager, which handles both PDS'es and sequential datasets, or
- Jim Morrison's original RECV390, which only handles PDS'es, or
- File # 776 RECV390 for the PC, zip file from Edgar Hofmann, an updated/enhanced version of RECV390, or
- File # 800 RECEIVE/UNXMIT tool written in REXX for the PC, by Enrico Sorichetti, or
- File # 808 PC un-XMIT in object REXX. ZIP file from File 800, also by Enrico Sorichetti, or
- The commercial Tachyon File Tools.
Note that all CBT*.zip files from the
CBT Tape site are in XMIT format, leading to a chicken-and-egg situation...
There are no free tools to create XMIT files on the PC, but the Tachyon product mentioned above does contain a
Re-Xmit program that can apparently produce them.