On 2014-05-09, at 08:04, R.S. wrote:
>
> Try the following:
> STEP1: ADRDSSU to MVS dataset
> STEP2: copy the dataset to hfs file.
>
This is almost certain to work, but it falls well short of the
OP's desire for "directly". PoC JCL appended.
I used IEBCOPY rather than ADRDSSU because of my familiarity
with the former. This should work alike with archives from
AMATERSE, ADRDSSU, IEBCOPY, etc.
GIMZIP (according to Kurt Q; thanks!) does something like this
for its unloaded RELFILEs. It has no need for FILEDATA=RECORD
because the BDWs in the RECFM=VBS archive suffice to reconstruct
the original block boundaries.
It's a pity that the IEBGENER filters I used aren't available
within DFSMS, avoiding the need for two job steps and two
temporary data sets. That would impose a constraint of purely
sequential I/O, apparently violated by AMATERSE, which
(sometimes) can't write its archives directly to tape.
And the output could be a POSIX pipe which coud be fed directly
to SSL to a remote site; no large local storage required.
Imagine the value of "//SYSUT2 DD SUBSYS=AWSTAPE" for data
interchange!
131$ cat hfsarch
//
//HOBBIT JOB 505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=16385K
//*
//USERC OUTPUT JESDS=ALL,DEFAULT=YES,
// CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
//UNLOAD EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=(,)
//SYSUT1 DD DISP=SHR,DSN=SYS1.PARMLIB
//SYSUT2 DD DISP=(,PASS),SPACE=(9999,500),UNIT=SYSALLDA,DSORG=PS
//*
//STEPX EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD *
//*
//* Overriding to RECFM=U causes blocks to be treated as records.
//SYSUT1 DD RECFM=U,DISP=(OLD,PASS),DSN=*.UNLOAD.SYSUT2
//*
//* FILEDATA=RECORD preserves those record boundaries in HFS.
//SYSUT2 DD PATHOPTS=(OCREAT,OTRUNC,OWRONLY),FILEDATA=RECORD,
// PATHMODE=(SIWUSR,SIRUSR),PATH='/tmp/&SYSUID/hobbit'
//*
//* Undo the chicanery of STEPX.
//STEPY EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD *
//SYSUT2 DD DISP=(,PASS),SPACE=(9999,500),UNIT=SYSALLDA
//SYSUT1 DD RECFM=U,BLKSIZE=32760,PATHOPTS=(ORDONLY),
// FILEDATA=RECORD,PATH='/tmp/&SYSUID/hobbit'
//*
//RELOAD EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=(,)
//SYSUT1 DD DISP=(OLD,PASS),DSN=*.STEPY.SYSUT2
//SYSUT2 DD SPACE=(9999,500),UNIT=SYSALLDA,DSORG=PO,
// DSNTYPE=LIBRARY
//
:w ! submit $MVS_HOST
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
