Thanks... On the z/OS they have two sample program EZASOKAS and
EZASOKCS ASSEMBLE for opening TCP/IP SOCKET... Does anyone knows if we
have an IUCV version on the VM side
"McKown, John"
<[EMAIL PROTECTED]
insctr.com> To
Sent by: Linux on [email protected]
390 Port cc
<[EMAIL PROTECTED]
ist.edu> Subject
Re: USS gzip
01/30/2006 03:44
PM
Please respond to
Linux on 390 Port
<[EMAIL PROTECTED]
ist.edu>
Yes, but it is funky because it is not supported directly. You must do
something like:
cat "//''MVS.INPUT.DATASET''" | gzip >/u/me/mvs.input.dsn.gz
Replace "/u/me" with a UNIX subdirectory in which you can create the
output file. The biggest problem that I have is that JCL restricts me to
72 characters per "card" and I keep having problem trying to extend
across multiple lines. The best JCL that I came up with is:
// SET I=input.dataset.name
// SET O=output.dataset.name.GZ
// SET GZIP='/usr/local/bin/gzip'
//DELETE EXEC PGM=IKJEFT01,
// PARM='DEL &O'
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
/*
//ALLOC EXEC PGM=IEFBR14
//DD1 DD DSN=&O,
// DISP=(NEW,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(20,10),RLSE),
// RECFM=FB,LRECL=1,BLKSIZE=0,DSORG=PS
//*
//GZIP EXEC PGM=BPXBATCH,
// PARM='SH cat "//''&I''" | &GZIP >/tmp/x; cp /tmp/x "//''&O''"'
//STDOUT DD PATH='/dev/console',PATHOPTS=(OWRONLY)
//STDERR DD PATH='/dev/console',PATHOPTS=(OWRONLY)
//STDIN DD PATH='/dev/null',PATHOPTS=(ORDONLY)
Change "input.dataset.name" and "output.dataset.name" as appropriate.
And hope you don't blow the 120 character limit on the length of a PARM=
in the GZIP step. The output dataset should be LRECL=1, RECFM=FB so that
no "garbage" is at the end of the gzip'ed data.
Since "gzip" can directly read or write MVS datasets, the GZIP step
first uses "cat" to feed the MVS dataset into "gzip". "cat" can read MVS
datasets. "gzip" then creates the output dataset, in a UNIX directory in
which you can create a UNIX file (I used /tmp). Again "gzip" cannot
write an MVS dataset, so I use "cp" to copy the data from the UNIX file
into the MVS dataset. "cp" can both read and write MVS datasets.
--
John McKown
Senior Systems Programmer
UICI Insurance Center
Information Technology
This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and its
content is protected by law. If you are not the intended recipient, you
should delete this message and are hereby notified that any disclosure,
copying, or distribution of this transmission, or taking any action
based on it, is strictly prohibited.
> -----Original Message-----
> From: Linux on 390 Port [mailto:[EMAIL PROTECTED] On
> Behalf Of Eddie Chen
> Sent: Monday, January 30, 2006 1:54 PM
> To: [email protected]
> Subject: USS gzip
>
>
> Can the gzip on the USS read and compress the dataset to
> MVS dataset.
>
> What I am trying to do it to. GZIP MVS DATASET and FTP to
> UNIX work
> station.
>
>
> -----------------------------------------
> This message and its attachments may contain privileged and
> confidential information. If you are not the intended recipient(s),
> you are prohibited from printing, forwarding, saving or copying this
> email. If you have received this e-mail in error, please immediately
> notify the sender and delete this e-mail and its attachments from your
> computer.
>
> ----------------------------------------------------------------------
> For LINUX-390 subscribe / signoff / archive access instructions,
> send email to [EMAIL PROTECTED] with the message: INFO
> LINUX-390 or visit
> http://www.marist.edu/htbin/wlvindex?LINUX-390
>
----------------------------------------------------------------------
For LINUX-390 subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or
visit
http://www.marist.edu/htbin/wlvindex?LINUX-390
----------------------------------------------------------------------
For LINUX-390 subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or visit
http://www.marist.edu/htbin/wlvindex?LINUX-390
