This SAMPLIB JCL writes the three required files on the export
list volume using a private volume.
//CBRSPPXP JOB 1,'EXPORT',MSGLEVEL=(1,1)
//*********************************************************************
//*
//* $SEG(CBRSPPXP) COMP(SAM) PROD(OAM):
//*
//* SAMPLE JOB THAT USES A PRIVATE VOLUME TO WRITE THE
//* EXPORT LIST VOLUME AND INITIATE THE EXPORT OPERATION.
//*
//* 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 PRIVATE VOLUME (EXP001), CREATE THE EXPORT LIST
//* VOLUME WITH THE 3 REQUIRED FILES.
//********************************************************************
//* 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 EXACTLY 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=*
//SYSUT1 DD *
EXPORT LIST 01
VOLSR1,DISASTER
VOLSR2,DISASTER
VOLSR3,BACKUP
VOLSR4,BACKUP
VOLSR5
/*
//SYSUT2 DD DSN=HILEVELQ.EXPLIST,
// UNIT=3490,LABEL=(,SL),
// DISP=(NEW,KEEP),VOL=(,RETAIN,,,SER=EXP001),
// DCB=(RECFM=FB,BLKSIZE=80,LRECL=80,TRTCH=NOCOMP)
//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,KEEP),
// DCB=*.STEP1.SYSUT2
//SYSIN DD DUMMY
//*
//****************************************************************
//* THE FOLLOWING STEP CAN BE USED TO INITIATE THE EXPORT
//* OPERATION AT THE LIBRARY. USING THE CBRSPLCS SAMPLE PROGRAM
//* FROM SAMPLIB, CODE THE VOLSER NAME THAT WAS USED TO CREATE THE
//* EXPORT LIST VOLUME IN THE INPUT TRANSACTION RECORD. REFER TO
//* THE CBRSPLCS SAMPLE PROGRAM FOR THE CORRECT SYNTAX FOR
//* INITIATING AN EXPORT OPERATION. ONCE THE TRANSACTION RECORD
//* HAS BEEN CREATED, THE FOLLOWING STEP CAN BE UNCOMMENTED TO
//* INITIATE THE EXPORT OPERATION.
//*
//* NOTE: THE FOLLOWING STEP COULD ALSO BE MODIFIED TO EXECUTE
//* AN INSTALLATION'S UTILITY CAPABLE OF ISSUING THE
//* LIBRARY EXPORT,VOLSER OPERATOR COMMAND.
//*
//****************************************************************
//*STEP4 EXEC PGM=CBRSPLCS,COND=(4,LT)
//*SYSPRINT DD SYSOUT=*
//*INDD DD DSN=HILEVELQ.TRANSIN.EXPORT,DISP=OLD
//*OUTDD DD DSN=HILEVELQ.TRANSOUT.EXPORT,UNIT=SYSDA,
//* SPACE=(TRK,(1,1)),DISP=(NEW,CATLG)
//*SYSIN DD DUMMY
//*
//