z/OS DFSMS OAM Planning, Installation, and Storage Administration Guide for Tape Libraries
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


SAMPLIB member CBRSPSXP

z/OS DFSMS OAM Planning, Installation, and Storage Administration Guide for Tape Libraries
SC23-6867-00

This SAMPLIB JCL writes the three required files on the export list volume using a scratch volume.

//CBRSPSXP  JOB 1,'EXPORT',MSGLEVEL=(1,1)
//*********************************************************************
//*
//*  $SEG(CBRSPSXP) COMP(SAM) PROD(OAM):
//*
//*  SAMPLE JOB THAT USES A SCRATCH VOLUME TO WRITE THE
//*  EXPORT LIST VOLUME.
//*
//*  BEFORE RUNNING THIS JOB, YOU MUST ALTER THE JCL.
//*  THIS JCL IS AN EXAMPLE.  THE VOLUME SERIAL NUMBERS AND
//*  DATASET NAMES ARE FICTIONAL.
//*
//*********************************************************************
//********************************************************************
//* DO NOT USE COMPACTION WHEN WRITING THE EXPORT LIST VOLUME FILES.
//********************************************************************
//* USING A LOGICAL SCRATCH VOLUME, CREATE THE EXPORT LIST VOLUME WITH
//* THE 3 REQUIRED FILES.  IN ORDER TO ENSURE THAT A SCRATCH VOLUME
//* IS ALLOCATED IN THE TARGET LIBRARY FOR THE EXPORT OPERATION,
//* THE ACS ROUTINES NEED TO HAVE LOGIC TO ALLOCATE A TAPE
//* DRIVE IN THE TARGET LIBRARY.  ONE WAY TO ACCOMPLISH THIS IS TO
//* HAVE A STORAGE GROUP UNIQUE TO EACH VTS LIBRARY PROVIDING A
//* 1 TO 1 RELATIONSHIP BETWEEN STORAGE GROUP AND LIBRARY.
//* THE ACS ROUTINES WOULD THEN NEED TO KEY OFF OF SOMETHING
//* UNIQUE IN THE DD STATEMENT (DATASET NAME, DATACLASS SPECIFICATION,
//* UNIT SPECIFICATION, ETC ...) TO GET THE CORRECT STORAGE GROUP
//* AND THE RIGHT TARGET LIBRARY SELECTED.
//********************************************************************
//* FILE SEQUENCE 1:  EXPORT LIST VOLUME FILE WITH LIST OF VOLUMES
//*   TO BE EXPORTED ALONG WITH THEIR DESTINATIONS.  ALL VOLUMES
//*   WITH THE SAME DESTINATION WILL BE GROUPED TOGETHER ON
//*   THE SAME SET OF STACKED VOLUMES.
//*-------------------------------------------------------------------                             
//* THE FILE IDENTIFIER AND VERSION NUMBER IS DEFINED IN THE FIRST
//* RECORD AND MUST BE SPECIFIED AS ILLUSTRATED BELOW, STARTING IN
//* THE FIRST COLUMN:
//* EXPORT LIST 01
//*-------------------------------------------------------------------
//* AN OPTIONAL 16 CHARACTER USER FIELD CAN FOLLOW THE VERSION NUMBER
//* WITH A BLANK SPACE SEPARATING THE FIELDS.
//*-------------------------------------------------------------------
//* FOLLOWING THE EXPORT LIST FILE IDENTIFYING RECORD, THE LIST OF
//* FILE RECORDS CONTAIN TWO FIELDS SEPARATED BY A DELIMITER.  THE
//* FIELDS, VOLSER AND DESTINATION, MUST APPEAR IN THAT ORDER
//* SEPARATED BY A FIELD DELIMITER.
//*-------------------------------------------------------------------
//* THE VOLSER FIELD IS 6 CHARACTERS LONG.
//*-------------------------------------------------------------------
//* THE FIELD DELIMITER MUST BE A COMMA.
//*-------------------------------------------------------------------
//* THE DESTINATION FIELD FOR THE LOGICAL VOLUME IS 1-16 CHARACTERS
//* LONG.  A BLANK DESTINATION IS ALSO VALID.
//*-------------------------------------------------------------------
//* FOR MORE DETAILED INFORMATION ON THE REQUIRED FORMAT
//* REFER TO THE IBM TOTALSTORAGE ENTERPRISE AUTOMATED TAPE 
//* LIBRARY (3494) OPERATOR GUIDE.
//********************************************************************
//STEP1    EXEC PGM=IEBGENER
//SYSPRINT  DD  SYSOUT=*
//SYSUT2   DD DSN=HILEVELQ.EXPLIST,
//            UNIT=3490,LABEL=(,SL),
//            DISP=(NEW,KEEP),VOL=(,RETAIN),
//            DCB=(RECFM=FB,BLKSIZE=80,LRECL=80,TRTCH=NOCOMP)
//SYSUT1   DD *
EXPORT LIST 01
VOLSR1,DISASTER
VOLSR2,DISASTER
VOLSR3,BACKUP
VOLSR4,BACKUP
VOLSR5
/*
//SYSIN   DD  DUMMY
//*
//********************************************************************
//* FILE SEQUENCE 2:  RESERVED FILE (FOR FUTURE USE).
//*-------------------------------------------------------------------
//* THE RESERVED FILE MUST BE PRESENT, HOWEVER ITS LENGTH OR
//* CONTENTS IS NOT CHECKED OR USED.
//********************************************************************
//STEP2    EXEC PGM=IEBGENER,COND=(4,LT)
//SYSPRINT  DD  SYSOUT=*
//SYSUT1   DD *
RESERVED FILE
/*                                                    
//SYSUT2   DD DSN=HILEVELQ.RESERVED,
//            VOL=(,RETAIN,REF=*.STEP1.SYSUT2),
//            UNIT=3490,LABEL=(2,SL),
//            DISP=(NEW,KEEP),
//            DCB=*.STEP1.SYSUT2
//SYSIN   DD  DUMMY
//*
//********************************************************************
//* FILE SEQUENCE 3:  EXPORT STATUS FILE
//*-------------------------------------------------------------------
//* THE FILE IDENTIFIER AND VERSION NUMBER IS DEFINED IN THE FIRST
//* RECORD AND MUST BE EXACTLY AS ILLUSTRATED BELOW, STARTING IN
//* THE FIRST COLUMN:
//* EXPORT STATUS 01
//*-------------------------------------------------------------------
//* AN OPTIONAL 16 CHARACTER USER FIELD CAN FOLLOW THE VERSION NUMBER
//* WITH A BLANK SPACE SEPARATING THE FIELDS.
//*-------------------------------------------------------------------
//* CHECK THIS FILE AFTER THE EXPORT OPERATION IS COMPLETED FOR
//* INDIVIDUAL VOLUME EXPORT RESULTS.
//*-------------------------------------------------------------------
//* FOR DETAILED INFORMATION ON THE STATUS FILE 
//* REFER TO THE IBM TOTALSTORAGE ENTERPRISE AUTOMATED TAPE 
//* LIBRARY (3494) OPERATOR GUIDE.
//********************************************************************
//STEP3    EXEC PGM=IEBGENER,COND=(4,LT)
//SYSPRINT  DD  SYSOUT=*
//SYSUT1   DD *
EXPORT STATUS 01
/*
//SYSUT2   DD DSN=HILEVELQ.EXPSTATS,
//            VOLUME=(,,REF=*.STEP1.SYSUT2),
//            UNIT=3490,LABEL=(3,SL),
//            DISP=(NEW,CATLG),
//            DCB=*.STEP1.SYSUT2
//SYSIN   DD  DUMMY
//*
//

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014