If you use pax instead of tar, it can already use MVS datasets. On Jan 21, 2008 4:05 PM, Paul Gilmartin <[EMAIL PROTECTED]> wrote:
> On Mon, 21 Jan 2008 14:48:23 -0600, McKown, John wrote: > > >> -----Original Message----- > >> [mailto:[EMAIL PROTECTED] On Behalf Of Jon Brock > >> Sent: Monday, January 21, 2008 2:42 PM > >> > >> I am trying to write out a Unix System Services file -- a tar > >> archive -- > >> to tape. For simplicity's sake, I was planning on using IEBGENER, but > >> I'm a bit confused as to what file characteristics to use for this. > >> Anybody out there have any sample JCL? > >> > >> Thanks, > >> Jon > > > >I'd just use RECFM=FB,LRECL=1,BLKSIZE=0,DSORG=PS. No, I've never done > >this. > > > o I wouldn't be surprised if QSAM performance with these attributes > were horrendous. No direct evidence; I shied away from trying it. > > >//STEP1 EXEC PGM=IEBGENER > >//SYSPRINT DD SYSOUT=* > >//SYSIN DD DUMMY > >//SYSUT1 DD PATH='/path/to/file.tar',FILEDATA=BINARY, > >// DCB=(RECFM=FB,LRECL=1,BLKSIZE=8000) > >//SYSUT2 DD DSN=TAPE.OUTPUT.TAR,DISP=(NEW,CATLG), > >// UNIT=TAPE,DCB=(RECFM=FB,LRECL=1,BLKSIZE=0,DSORG=PS) > >// > > > >Note that the BLKSIZE=8000 on the SYSUT1 doesn't really matter too much. > >Any valid value will do. > > > But I'm not sure that SDB would supply a valid value if you code > BLKSIZE=0 and OPEN for input. > > (The following from memory; I'm not retesting): In order to generate > a tape compatible with non-IBM systems, I used RECFM=U, BLKSIZE=5120, > the latter being the default given by "man tar" on a non-IBM system. > Then I never found a non-IBM system with compatible drives, but I > was able to read it back and uncompress and untar it on the creating > z/OS system. > > In a Rexx exec, I piped tar | compress | [descriptor piped to SYSUT1 > of ATTCHMVS IEBGENER]. Tar now can write its archives to Classic > data sets, but I doubt it can deal with uncatalogued data sets. I'm > now using CD-ROMs instead of tapes. > > -- gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
