Specifications

Chapter 3. z/OS notes 35
normal 1090 use, we describe it in considerable detail because portions may be useful in
unusual circumstances.
There are several phases involved:
򐂰 Prepare standalone versions of ICKDSF and the ADRDSSU restore program on an
existing z/OS system that can write emulated tape volumes in awstape format.
򐂰 Dump the selected z/OS volume to an awstape file, using the ADRDSSU program. Note
that the first two phases can be run on much older OS/390® or z/OS versions, on a variety
of machines.
򐂰 Use gzip (or a compatible program) to compress the dump file. This is needed if the
transport medium is a CD because the dump file will not fit on a CD unless it is
compressed. (If the transport method is FTP or DVD then this step could be skipped.)
򐂰 Burn a CD/DVD containing the two standalone System z programs (each in awstape
format) and the gzipped dump file. Take this CD/DVD to the Linux 1090 system.
򐂰 Create the necessary 1090 devmap.
򐂰 Copy the three CD/DVD files to Linux and unzip the dump file.
򐂰 Use a 1090 utility to create an emulated 3390 volume.
򐂰 Start 1090 operation and a 3270 session, IPL the standalone ICKDSF program, and
initialize the emulated 3390 volume.
򐂰 IPL the standalone restore program and restore the dump volume.
򐂰 IPL the one-volume z/OS to verify that the process worked.
Build the CD
We created a CD on an external system that was capable of writing awstape files. This
system had unit 560 defined as an emulated tape drive. Three z/OS jobs were involved, as
follows:
//BILL1 JOB 1,OGDEN,MSGCLASS=X
//* CREATE STAND-ALONE ICKDSF
// EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY,DCB=BLKSIZE=80
//SYSUT1 DD DSNAME=SYS1.SAMPLIB(ICKSADSF),DISP=SHR
//SYSUT2 DD UNIT=560,LABEL=(1,NL),VOL=SER=SAINIT,DISP=(,KEEP),
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//BILL2 JOB 1,OGDEN,MSGCLASS=X
//* CREATE STAND-ALONE RESTORE
// EXEC PGM=ADRDSSU,PARM='UTILMSG=YES'
//SYSPRINT DD SYSOUT=*
//SAMODS DD DSN=SYS1.SADRYLIB,DISP=SHR
//TAPEDD DD UNIT=560,LABEL=(1,NL),VOL=SER=SAREST,DISP=(,KEEP),
// DCB=(DSORG=PS,RECFM=U,BLKSIZE=32760,LRECL=32760)
//SYSIN DD *
BUILDSA INDD(SAMODS) OUTDD(TAPEDD) IPL(TAPE)
/*
//BILL3 JOB 1,OGDEN,MSGCLASS=X
// EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//IN DD UNIT=3390,VOL=SER=SARES1,DISP=SHR