Backup Utility Format Library

** Experimental so please provide feedback and suggestions **

HTTP Download

Using your web browser and an intermediate workstation:

FDR 5.4/89 and DFSMSdss on z/OS R2.5 were used to make the backups to disk and the files were then TERSEd to compress them. You must download and upload these files to your z/OS system as BINARY. They have to be uncompressed using the IBM TRSMAIN utility program and then restored using the FDR or DFSMSdss utility. If you do a full pack restore of the CBT Base Tape, as opposed to a dataset restore, track 0 of the pack will contain IPL text for ZZSA.

Please download only what you need — these are large files and take a considerable amount of bandwidth.

FTP Download (Direct to z/OS)

FTP to cbttape.net with anonymous login

Directory: /pub/dsnbackup

Retrieve ONLY the file that you will use at your site. CBT Base and Overflow tapes are available in both FDR and DFDSS formats:

CBT.DFDSS.CBT509.TERSED
CBT.FDR.CBT509.TERSED

CBT.DFDSS.COV466.BACKUP.TERSED
CBT.FDR.COV466.BACKUP.TERSED

Help with the Contents of the Backup Archives

All files backed up are named CBT.tapevol.fileno.type, for example:

CBT.V509.FILE182.PDS

CBT.COV466.FILE001.DATA

These files were SMS managed. You may require storage administrator authorities to restore them at your site. I had to create a private copy of the FDR load library with ALLCALL disabled and with DFDSS I had to use ADMIN.

Sample JCL

Below is a sample batch job to download the current CBT tape directly to your z/OS or OS/390 Host.

Sample with Transparent Proxy

//JOBNAME JOB 'XXX,XX,XXXXXX,S=I','PROG NAME',
// CLASS=X,MSGCLASS=H,MSGLEVEL=(1,1)
//*************************************************
//* Sample using a transparent proxy
//* Use 'CAPS OFF' when editing as file names are mixed case
//*************************************************
//FTP     EXEC PGM=FTP,REGION=5000K,
//             PARM='( EXIT'
//SYSPRINT DD  SYSOUT=*
//OUTPUT   DD  SYSOUT=*
//INPUT    DD  *
your_proxy.server.company.com
anonymous@cbttape.net
youremail@yourcompany.com
cd pub/dsnbackup
BINARY
LOCSITE LRECL=1024 RECFM=FB BLKSIZE=6144
LOCSITE CYLINDERS UNIT=SYSDA PRIMARY=1050 SECONDARY=1
get CBT.DFDSS.CBT509.TERSED 'YOUR.LOCAL.DSN'
quit
/*

Uncompress Using TRSMAIN

TRSMAIN can be downloaded at https://techsupport.services.ibm.com/390/trsmain.html

//****************************************************
//*                                                  *
//*    UNCOMPRESS A TERSED DATA SET                  *
//*                                                  *
//****************************************************
//STEP     EXEC PGM=TRSMAIN,PARM=UNPACK,TIME=1439
//SYSPRINT DD   SYSOUT=*
//INFILE   DD   DISP=SHR,DSN=U06T03.CBT.FDR.COV466.BACKUP.TERSED
//OUTFILE  DD   DISP=(NEW,CATLG),UNIT=SYSALLDA,STORCLAS=PROJECT,
//       DSN=U06T03.CBT.COV466.FDR.BACKUP,VOL=SER=G3000,
//       SPACE=(CYL,(2000,100),RLSE)

Restore Using DFSMSdss

//*
//DFDSSCPY EXEC PGM=ADRDSSU,REGION=6M,TIME=1439,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//D1     DD  DISP=OLD,UNIT=SYSDA,VOL=SER=SYS025
//TAPE   DD  DISP=OLD,DSN=U06T03.CBT.DFDSS.CBT509.BACKUP
//* STORCLAS(STANDARD) -
//* MGMTCLAS(STANDARD) -
//*  ADMIN -
//SYSIN DD *
 RESTORE INDDNAME(TAPE) OUTDDNAME(D1) -
DATASET(INCLUDE(CBT.**)) -
 ADMIN -
 RENAMEUNCONDITIONAL((SYSPT))
//

Restore Using FDR

//*--------------------------------------------------------------
//*  RESTORE A DATASET USING FAST DUMP RESTORE/DATA SET FUNCTION
//*  (DATASET DOESN'T HAVE TO BE PRE-ALLOCATED PRIOR TO RESTORE)
//*--------------------------------------------------------------
//FDRDSF  EXEC PGM=FDRDSF
//STEPLIB  DD DISP=SHR,DSN=U06T03.FDR.R5443.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1  DD  DISP=SHR,DSN=U06T03.CBT.COV466.FDR.BACKUP
//SYSIN DD *
 RESTORE DSNAME=CBT.COV466.*,
   NEWNAME=(CBT.COV466.*,YOURCBT.COV466.*)
/*