On Sat, 20 Jul 2013 07:33:52 -0700, John Mattson wrote:

>    After looking into this more deeply I realize I have to start all
>over.  I do not have enough disk on OMVS to copy to OMVS and then gzip,
>and I have no spare disk to add.  So that is out.  Even the stdout still
>requires disk be available.
>SO to start all over IS there a way to....
>1) On zOS MVS convert a file to ascii and/then
>2) Zip, compress whatever, it into something which gzip can unzip in unix?
> 
I used IEBGENER to transfer between UNIX and legacy before "cp"
gained the ability to process legacy data sets.  I still use it because:

o I like the control it provides over attributes of SYSUT2.

o Inertia.  (Does that make me "laudator temporis acti"?)

(I believe a similar suggestion using "cp" has previously
been made here.)

So, I would in a Rexx EXEC:

    call BPXWDYN 'alloc dd(SYSUT2) filedata(TEXT) path(''/dev/fd/1'') ... '
        ...
    address ATTCHMVS IEBGENER

then, in the Rexx, or easier outside, pipe that:

    ... | iconv -f IBM-1047 -t ISO8859-1 | gzip | ...

Redirect to UNIX file.  Or pipe to ssh to avoid spending any more
z/OS DASD.  Newer versions of z/OS FTP also support (named?)
pipes.

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to