Backup ADMIN1 and ADMIN2 VSAM files for support purposes

Products

• TPX - Session Management

Issue/Introduction

Use the following JCL samples when requested to send in ADMIN1 and ADMIN2 VSAM files, for support purposes.

Resolution

Note there are 2 different cases for VSAM files:
Use SAMPLE 01 => for VSAM files NOT managed by L-Serv.
Use SAMPLE 02 => for VSAM files managed by L-Serv. 

SAMPLE 01

//* ******************************************************
//*          THIS JOB WILL BACKUP THE TPX                *
//*  ADMINISTRATION (ADMIN1 & ADMIN2) VSAM FILES ONLY    *
//* ******************************************************
//*
//*    IF YOU ARE USING L-SERV TO MANAGE VSAM FILES
//*    DO NOT USE THIS SAMPLE
//*
//* ******************************************************
//*    SINCE THIS IS FOR SUPPORT REVIEW ONLY,
//*         TPX DOESN'T NEED TO BE DOWN.
//* ******************************************************
//BACKUP   PROC
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//AMSDUMP  DD SYSOUT=*
//TADMIN1  DD  DSN=Data.Set.ADMIN1.BACKUP,DISP=(NEW,KEEP),
//      DCB=(RECFM=VB,LRECL=8000,BLKSIZE=8004),
//      UNIT=SYSDA,SPACE=(CYL,(750,200),RLSE)
//TADMIN2  DD  DSN=Data.Set.ADMIN2.BACKUP,DISP=(NEW,KEEP),
//      DCB=(RECFM=VB,LRECL=2000,BLKSIZE=2004),
//      UNIT=SYSDA,SPACE=(CYL,(750,200),RLSE)
//ADMIN1   DD  DSN=Data.Set.ADMIN1,DISP=SHR
//ADMIN2   DD  DSN=Data.Set.ADMIN2,DISP=SHR
//         PEND
//*
//BACKUP   EXEC BACKUP
//STEP1.SYSIN DD *
 REPRO INFILE(ADMIN1)  OUTFILE(TADMIN1)
 REPRO INFILE(ADMIN2)  OUTFILE(TADMIN2)
/*

where:
Data.Set.ADMIN1.BACKUP is the new ADMIN1 backup file name.
Data.Set.ADMIN2.BACKUP is the new ADMIN2 backup file name.
Data.Set.ADMIN1 is the ADMIN1 file that you want to backup.
Data.Set.ADMIN2 is the ADMIN2 file that you want to backup.

SAMPLE 02

//* ******************************************************
//*          THIS JOB WILL BACKUP THE TPX                *
//*  ADMINISTRATION (ADMIN1 & ADMIN2) VSAM FILES         *
//* ******************************************************
//* *                                                    *
//* *  IMPORTANT !!!     READ THIS !!!                   *
//* *                                                    *
//* *                                                    *
//* *  FOR ANY VSAM FILES WHICH ARE NOT MANAGED BY       *
//* *  L-SERV, DO NOT USE THIS SAMPLE.
//* *                                                    *
//* *  THE VSAM FILES BEING BACKED UP WILL BE            *
//* *  UNAVAILABLE FOR USE WHILE THIS JOB IS RUNNING.    *
//* *  ISSUE THE QUIESCE-FILE COMMAND IN OPER OR FROM    *
//* *  THE MVS CONSOLE AGAINST THESE FILES BEFORE        *
//* *  RUNNING THIS JOB.                                 *
//* *                                                    *
//* *  IF USING THIS JOB AND LSRESTOR TOGETHER AS A      *
//* *  FILE COMPRESS DO AN L-SERV HOLDFILE AGAINST THE   *
//* *  FILE(S) BEFOREHAND, AND A RELEASEFILE WHEN DONE.  *
//* *  SEE YOUR L-SERV DOCUMENTATION FOR MORE            *
//* *  INFORMATION ON HOLDFILE AND RELEASEFILE.          *
//* *  SEE THE LSCOMPRS MEMBER FOR AN EASIER-TO-USE      *
//* *  COMPRESS JOB.                                     *
//* *                                                    *
//* *                                                    *
//* *  THIS JOBSTREAM USES THE LDMAMS UTILITY WHICH      *
//* *  COMES WITH CA'S LSERV FILE SHARING AND            *
//* *  COMMUNICATION PRODUCT.                            *
//* *                                                    *
//* ******************************************************
//*
//BACKUP   PROC
//*
//STEP1 EXEC PGM=LDMAMS
//STEPLIB DD DSN=LSERV.LOAD,DISP=SHR  <= VERIFY NAME OF LSERV LOADLIB
//* ******************************************************
//* *
//* * IF "LSRV" IS NOT THE L-SERV SUBSYSTEM NAME, REPLACE
//* * IT HERE.
//* *
//* ******************************************************
//SSN$LSRV DD DUMMY
//SYSPRINT DD SYSOUT=*
//AMSDUMP  DD SYSOUT=*
//TADMIN1  DD  DSN=Data.set.ADMIN1.BACKUP,DISP=(NEW,KEEP),
//      DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),
//      UNIT=SYSDA,SPACE=(CYL,(750,200),RLSE)
//TADMIN2  DD  DSN=Data.set.ADMIN2.BACKUP,DISP=(NEW,KEEP),
//      DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),
//      UNIT=SYSDA,SPACE=(CYL,(750,200),RLSE)
//         PEND
//*
//BACKUP   EXEC BACKUP
//* ******************************************************
//* *                                                    *
//* * IF "TPXV" IS NOT THE DD PREFIX FOR YOUR VSAM       *
//* * FILES, REPLACE IT WITH THE APPROPRIATE DD PREFIX   *
//* * IN EACH REPRO STATEMENT BELOW                      *
//* *                                                    *
//* ******************************************************
//STEP1.SYSIN DD *
 REPRO INFILE(TPXVADM1)  OUTFILE(TADMIN1)
 REPRO INFILE(TPXVADM2)  OUTFILE(TADMIN2)
/*
//

where:
Data.Set.ADMIN1.BACKUP is the new ADMIN1 backup file name.
Data.Set.ADMIN2.BACKUP is the new ADMIN2 backup file name.
TPXV is the prefix for your Vsam files.


Once the backups have been created successfully, please use JCL sample to upload files to Broadcom support case to upload the files into the case.

 

Additional Information

For backing up TPX ADMINISTRATION, NOTES, MAIL, AND VIEW VSAM FILES, you can use sample under CB0VJCL library:
Member VBACKUP   => VSAM files NOT managed by L-Serv
Member LSBACKUP => VSAM files managed by L-Serv