This SAMPLIB JCL writes the three required files on the export
list volume using a private volume and export list format 03. Export
list format 03 is only valid with the TS7700 Virtualization Engine and is used for copy export.
//CBRSPX03 JOB 1,'EXPORT',MSGLEVEL=(1,1)
//*********************************************************************
//*
//* $SEG(CBRSPX03) COMP(SAM) PROD(OAM):
//*
//* SAMPLE JOB THAT USES A PRIVATE VOLUME TO WRITE THE
//* EXPORT LIST VOLUME USING FORMAT 03 AND INITIATE
//* THE EXPORT OPERATION. EXPORT LIST FILE FORMAT 03 IS
//* USED WITH THE COPY EXPORT SUPPORT AND IS ONLY
//* VALID WITH THE TS7700 VIRTUALIZATION ENGINE.
//*
//* BEFORE RUNNING THIS JOB, YOU MUST ALTER THE JCL.
//* THIS JCL IS AN EXAMPLE. THE VOLUME SERIAL NUMBERS AND
//* DATASET NAMES ARE FICTIONAL.
//*
//* CHANGE ACTIVITY:
//* $L0=HYDRA13 1J0 032607 TUCPSS: OA20065 TS7700/HYDRA R13
//*
//********************************************************************
//********************************************************************
//* 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 USED IN A COPY
//* EXPORT OPERATION SPECIFYING THE PHYSICAL VOLUME POOL BEING
//* EXPORTED.
//*-------------------------------------------------------------------
//* 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 03
//*-------------------------------------------------------------------
//* 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 REQUIRED
//* EXPORT PARAMETERS ARE DEFINED IN THE SECOND RECORD AND MUST
//* BE EXACTLY AS ILLUSTRATED BELOW, STARTING IN THE FIRST COLUMN:
//* EXPORT PARAMETERS PHYSICAL POOL TO EXPORT:xx
//*-------------------------------------------------------------------
//* xx IS A TWO BYTE FIELD WHERE xx IS THE PHYSICAL VOLUME POOL
//* THAT CONTAINS THE LOGICAL VOLUMES TO EXPORT.
//*-------------------------------------------------------------------
//* FOLLOWING THE EXPORT PARAMETERS RECORD, EXPORT OPTIONS CAN BE
//* SPECIFIED IN THE OPTION1 RECORD, STARTING IN THE FIRST COLUMN.
//*
//* OPTIONS1,EJECT,COPY,LMTDBPVL
//*
//* IF SPECIFYING OPTIONS1, AT LEAST ONE OF THESE KEYWORDS MUST BE
//* SPECIFIED:
//*
//* EJECT - MOVE EXPORTED STACKED VOLUMES DIRECTLY TO THE EJECT
//* CATEGORY INSTEAD OF THE EXPORT-HOLD CATEGORY
//* COPY - SPECIFIES THAT THIS EXPORT REQUEST WILL BE PERFORMED
//* USING A COPY EXPORT OPERATION.
//* LMTDBPVL – SPECIFIES THAT THE NUMBER OF COPY EXPORTED
//* STACKED (PHYSICAL VOLUMES) WITH A COPY OF THE
//* TS7740 DATABASE IS LIMITED TO FOUR (THE FIRST
//* TWO AND THE LAST TWO PHYSICAL VOLUMES IN THE SET)
//*
//* WITH VERSON 03 IF THE "COPY" EXPORT TYPE IS NOT SPECIFIED
//* IN AN OPTIONS1 RECORD, IT IS ASSUMED.
//*
//* MULTIPLE SPECIFICATIONS MUST BE SEPARATED BY A COMMA DELIMITER
//* AND CAN APPEAR IN ANY ORDER.
//*
//********************************************************************
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
EXPORT LIST 03
EXPORT PARAMETERS PHYSICAL POOL TO EXPORT:05
OPTIONS1,EJECT,COPY
/*
//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
//* COPY EXPORT RESULTS.
//*-------------------------------------------------------------------
//* FOR DETAILED INFORMATION ON THE STATUS FILE, REFER TO THE
//* TAPE LIBRARY 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
//*