How can I do a Backup of the ROSLIBS for CA Roscoe?
You may use either LIBUTIL or LIBBKUP to take a full backup of the ROSLIBS. Both LIBBKUP and LIBUTIL will take identical full backup files. LIBBKUP may also be used to backup new or changed members and also selected members.
Here is sample JCL to perform these tasks:
//ROSLIB EXEC PGM=LIBUTIL,PARM='BACKUP'
//STEPLIB DD DSN=CAI.RO60LIB,DISP=SHR
//ROSLIB00 DD DSN=CAI.ROSLIB00,DISP=SHR
//ROSLIB01 DD DSN=CAI.ROSLIB01,DISP=SHR
//ROSLIB02 DD DSN=CAI.ROSLIB02,DISP=SHR
//BACKUP DD DSN=CAI.BACKUP,DISP=(,KEEP)
OR
//LIBBKUP EXEC PGM=LIBBKUP
//STEPLIB DD DSN=CAI.RO60LIB,DISP=SHR
//ROSLIB00 DD DSN=CAI.ROSLIB00,DISP=SHR
//ROSLIB01 DD DSN=CAI.ROSLIB01,DISP=SHR
//ROSLIB02 DD DSN=CAI.ROSLIB02,DISP=SHR
//BACKUP DD DSN=CAI.BACKUP,DISP=(,KEEP)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//DATEOUT DD DSN=CAI.BKUPCNTL,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSLOG DD SYSOUT=*
When LIBBKUP is used to take a full backup, a DATEIN DD statement cannot be present a DATEOUT DD statement pointing to a pre-allocated control file must be present. To pre-allocate the DATEOUT DD file use the following JCL:
//ALLOC EXEC PGM=IEFBR14
//DATEOUT DD DSN=CAI.BUPCNTL,DISP=(,CATLG,DELETE),
// UNIT=3390,VOL=SER=volser,SPACE=(TRK,(1)),
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80,DSORG=PS)
The BACKUP data set may be allocated either to a tape or disk file. If it is allocated to a tape file
//BACKUP DD DSN=CAI.BACKUP,UNIT=3490,VOL=SER=volser,
// LABEL=(,SL),DCB=BLKSIZE=16384,
// DISP=(,KEEP)
If allocated to a disk file the allocation would be:
//BACKUP DD DSN=CAI.BACKUP,DISP=(,CATLG,DELETE),
// UNIT=3390,VOL=SER=volser,
// SPACE=(CYL,(15))
Delta backup of the ROSLIBS
You must use LIBBKUP to take a delta backup of the ROSLIBS. Both the DATEIN and DATEOUT DD statements must be specified. The DATEIN file must have been initialized during a full backup run of LIBBKUP.
//LIBBKUP EXEC PGM=LIBBKUP
//STEPLIB DD DSN=CAI.RO60LIB,DISP=SHR
//ROSLIB00 DD DSN=CAI.ROSLIB00,DISP=SHR
//ROSLIB01 DD DSN=CAI.ROSLIB01,DISP=SHR
//ROSLIB02 DD DSN=CAI.ROSLIB02,DISP=SHR
//BACKUP DD DSN=CAI.BACKUP(+001),DISP=(,CATLG)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//DATEIN DD DSN=CAI.BKUPCNTL,DISP=SHR
//DATEOUT DD DSN=CAI.BKUPCNTL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLOG DD SYSOUT=*
/*
Backup selected members
Use LIBBKUP to backup selected members. Specify the prefix and member, separated by a period, in ascending sequence beginning in column 1, one per line in the SYSIN file as shown below.
//LIBBKUP EXEC PGM=LIBBKUP
//STEPLIB DD DSN=CAI.RO60LIB,DISP=SHR
//ROSLIB00 DD DSN=CAI.ROSLIB00,DISP=SHR
//ROSLIB01 DD DSN=CAI.ROSLIB01,DISP=SHR
//ROSLIB02 DD DSN=CAI.ROSLIB02,DISP=SHR
//BACKUP DD DSN=CAI.BACKUP(+001),DISP=(,CATLG)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSLOG DD SYSOUT=*
//SYSIN DD *
pfx1.member1
pfx1.member2
pfx2.member3
/*
Backup selective keys
The following JCL illustrates how to backup one or more keys.
//ROSLIB EXEC PGM=LIBUTIL,PARM='BKUPKEY'
//STEPLIB DD DSN=CAI.RO60LIB,DISP=SHR
//ROSLIB00 DD DSN=CAI.ROSLIB00,DISP=SHR
//ROSLIB01 DD DSN=CAI.ROSLIB01,DISP=SHR
//ROSLIB02 DD DSN=CAI.ROSLIB02,DISP=SHR
//BACKUP DD DSN=CAI.BACKUP,DISP=(,KEEP)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
KEY=KEY01
KEY=KEY02
/*
List members on the backup tape
The following JCL will give a summary listing of the members on a backup file sorted by user prefix.
//ROSLIB EXEC PGM=LIBUTIL,PARM='BKUPSUM'
//STEPLIB DD DSN=CAI.RO60LIB,DISP=SHR
//BACKUP DD DSN=CAI.BACKUP,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
/*