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
//*
//