Backup Utility format library

** Experimental so please provide feedback and suggestions **

HTTP Download using your web browser and an intermediate workstation

CBT Base Tape V507 Created Aug - 07 - 2024 backup with FDR 5.4/89P tersed Large file 799M NEW

CBT Base Tape V507 Created Aug - 07 - 2024 backup with DFSMSdss z/OS R2.5 tersed Large file 821M NEW

CBT Overflow Tape V466 Created July - 25 - 2004 backup with FDR 5.4L38 tersed Large file 128M NEW

CBT Overflow Tape V466 Created July - 25 - 2004 backup with DFSMSdss z/OS R4 tersed Large file 128M NEW

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 which can be direct to z/OS

FTP to cbttape.net anonymous login

/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.CBT507.TERSED
CBT.FDR.CBT507.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.V507.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.

Below is a sample batch jobs 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@ftp.cbttape.org
your_email_address@company.com
cd pub/dsnbackup
BINARY
LOCSITE LRECL=1024 RECFM=FB BLKSIZE=6144
LOCSITE CYLINDERS UNIT=SYSDA PRIMARY=1050 SECONDARY=1
get CBT.DFDSS.CBT507.TERSED 'YOUR.LOCAL.DSN'
quit
/*

Uncompress using TRSMAIN

TRSMAIN can be downloaded at http://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.CBT507.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 TYPE=DSF
SELECT DSN=CBT.**,NEWI=SYSPT
/*

"There is another system."
(Colossus) "Colossus: The Forbin Project" (1970).