This SAMPLIB JCL writes the two required files on the import list volume using a private volume and import list format 02.
//CBRSPPIP JOB 1,'IMPORT',MSGLEVEL=(1,1)
//*********************************************************************
//*
//* $SEG(CBRSPPIP) COMP(SAM) PROD(OAM):
//*
//* SAMPLE JOB THAT USES A PRIVATE VOLUME TO WRITE THE
//* IMPORT LIST VOLUME USING FORMAT 02, OUTBOARD POLICY
//* MANAGEMENT SPECIFICATIONS TO OVERRIDE OR SET POLICIES.
//*
//* 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 IMPORT LIST VOLUME FILES.
//********************************************************************
//* USING A LOGICAL PRIVATE VOLUME (IMP001), CREATE THE IMPORT LIST
//* VOLUME WITH THE 2 REQUIRED FILES.
//********************************************************************
//* FILE SEQUENCE 1: LIST OF VOLUMES TO IMPORT
//*-------------------------------------------------------------------
//* THE FILE IDENTIFIER AND VERSION NUMBER IS DEFINED IN THE FIRST
//* RECORD AND MUST BE EXACTLY AS ILLUSTRATED BELOW, STARTING IN
//* THE FIRST COLUMN:
//* IMPORT LIST 02
//*-------------------------------------------------------------------
//* AN OPTIONAL 16 CHARACTER USER FIELD CAN FOLLOW THE VERSION NUMBER
//* WITH A BLANK SPACE SEPARATING THE FIELDS.
//*-------------------------------------------------------------------
//* FOLLOWING THE IMPORT LIST FILE IDENTIFYING RECORD, OUTBOARD POLICY
//* MANAGEMENT OPTIONS CAN BE SPECIFIED, STARTING IN THE FIRST COLUMN.
//* THE OPTIONS1 SPECIFICATIONS APPLY TO ALL LOGICAL VOLUMES BEING
//* IMPORTED WITH THIS JCL, HOWEVER, POLICY NAMES SPECIFIED ON THE
//* LIST OF FILE RECORDS OVERRIDE ANY OTHER POLICY NAME SPECIFICATIONS.
//*
//* OPTIONS1,{FAILIMPORT|CREATENAME|USEDEFAULT},SG=W,SC=X,MC=Y,DC=Z
//*
//* KEYWORDS FAILIMPORT, CREATENAME AND USEDEFAULT DEFINE ACTIONS
//* TO BE TAKEN IF THE POLICY NAME DOES NOT EXIST AT THE LIBRARY:
//* IF SPECIFYING OPTIONS1, AT LEAST ONE OF THESE KEYWORDS MUST BE
//* SPECIFIED:
//* FAILIMPORT - FAILS THE IMPORT OF THE LOGICAL VOLUME IF ANY OF
//* ITS POLICY NAMES IS NOT PRE-DEFINED IN THE LIBRARY.
//* CREATENAME - AUTOMATICALLY CREATES THE POLICY CONSTRUCT
//* DEFINITION AT THE LIBRARY, ASSIGNING DEFAULT ACTIONS.
//* USEDEFAULT - ASSIGNS DEFAULT POLICIES (BLANKS) FOR POLICY NAMES
//* THAT ARE NOT PRE-DEFINED IN THE LIBRARY.
//*
//* IF NO OPTIONS1 IS SPECIFIED, THE NEXT LINE FOLLOWING THE IMPORT
//* LIST FILE BEGINS WITH THE LIST OF FILE RECORDS AND THE DEFAULT
//* ACTION IS CREATENAME.
//* POLICY NAME SPECIFICATIONS:
//* SG= SPECIFIES THE OUTBOARD POLICY NAME FOR STORAGE GROUP.
//* SC= SPECIFIES THE OUTBOARD POLICY NAME FOR STORAGE CLASS.
//* MC= SPECIFIES THE OUTBOARD POLICY NAME FOR MANAGEMENT CLASS.
//* DC= SPECIFIES THE OUTBOARD POLICY NAME FOR DATA CLASS.
//* ONE OR MORE OF THE ABOVE POLICY NAME OPTIONS CAN BE
//* SPECIFIED IN ANY ORDER. THE POLICY NAME FIELD IS 1-8
//* CHARACTERS LONG. "*RESET*" IS USED TO DEFINE A POLICY NAME
//* OF BLANKS, THE DEFAULT POLICY NAME.
//* SPECIFYING ONE OR MORE OF THE POLICIES ON THE OPTIONS1 LINE
//* APPLIES TO ALL THE LOGICAL VOLUMES BEING IMPORTED. THESE VALUES
//* OVERRIDE POLICY NAMES STORED ON THE EXPORT OPERATION FOR THE
//* LOGICAL VOLUME, HOWEVER, THE OUTBOARD POLICY NAMES SPECIFIED
//* NEXT TO THE FILE RECORDS OVERRIDE THE OPTIONS1 POLICY
//* NAME SPECIFICATIONS.
//*-------------------------------------------------------------------
//* FOLLOWING THE REQUIRED IMPORT LIST FILE IDENTIFYING RECORD AND
//* THE OPTIONAL OPTIONS1 LINE IS THE LIST OF FILE RECORDS. THIS LIST
//* CONSISTS OF FIELDS SEPARATED BY COMMA DELIMITERS.
//* FOLLOWING ARE EXAMPLES OF VALID SYNTAX FOR FILE RECORDS:
//*
//* STACKD
//* STACKD,LOGICL
//* STACKD,LOGICL,OPTION
//* STACKD,,OPTION
//* STACKD,LOGICL,OPTION,SG=NAME,SC=NAME,MC=NAME,DC=*RESET*
//* STACKD,LOGICAL,,SG=NAME,SC=NAME,MC=NAME,DC=NAME
//* STACKD,,,SG=NAME,SC=*RESET*,MC=NAME,DC=NAME
//* STACKD,LOGICL,OPTION,SG=NAME
//* STACKD,LOGICL,OPTION,DC=NAME,SC=NAME,MC=NAME
//*
//* ONLY THE STACKED VOLSER, STACKD, IS REQUIRED. ALL OTHER FIELDS ARE
//* OPTIONAL. ALL SPECIFICATIONS ARE SEPARATED BY A COMMA.
//* A COMMA IS REQUIRED FOR OMITTED LOGICAL VOLUME OR IMPORT OPTION
//* SPECIFICATIONS IF OTHER SPECIFICATIONS FOLLOW.
//*-------------------------------------------------------------------
//* ONE OR MORE POLICY SPECIFICATIONS (SG=,SC=,MC=,DC=) CAN BE
//* SPECIFIED IN ANY ORDER. POLICY NAMES SPECIFIED ON THE LIST
//* OF FILE RECORDS OVERRIDE THE POLICIES SPECIFIED ON THE OPTIONS1
//* LINE AND THE POLICIES STORED WHEN THE LOGICAL VOLUME WAS EXPORTED.
//* HOWEVER, THE OPTIONS1 ACTION (FAILIMPORT, CREATENAME,OR USEDEFAULT)
//* APPLIES TO ALL POLICY SPECIFICATIONS FOR THIS IMPORT OPERATION.
//*-------------------------------------------------------------------
//* THE STACKED VOLSER FIELD IS 1-6 CHARACTERS LONG.
//* THIS IS THE STACKED VOLUME CONTAINING LOGICAL VOLUMES
//* TO BE IMPORTED.
//*-------------------------------------------------------------------
//* THE LOGICAL VOLSER FIELD IS 6 CHARACTERS LONG. IF THE
//* FIELD IS ALL BLANKS, ALL LOGICAL VOLUMES ON THE SPECIFIED
//* STACKED VOLUME WILL BE IMPORTED.
//*-------------------------------------------------------------------
//* THE IMPORT OPTION CAN BE OMITTED (BLANK) WHICH INDICATES THAT
//* THE DATA CONTENTS OF THE LOGICAL VOLUME IS COPIED INTO THE VTS
//* SUBSYSTEM AND A DATA FRAGMENT FILE ENTRY AND LIBRARY MANAGER
//* RECORD ARE ALSO CREATED. THE OPTION SPECIFIED CAN BE "SCRATCH"
//* WHICH INDICATES THAT ONLY A DATA FRAGMENT FILE ENTRY AND LIBRARY
//* MANAGER RECORD ARE CREATED (DATA CONTENTS NOT COPIED), OR THE
//* OPTION SPECIFIED CAN BE "INITIALIZE" WHICH INDICATES THAT ONLY
//* THE LIBRARY MANAGER RECORD FOR THE VOLUME IS CREATED. IF A
//* LOGICAL VOLSER IS NOT INCLUDED WITH THE STACKED VOLSER, THE
//* IMPORT OPTION SPECIFIED APPLIES TO ALL LOGICAL VOLUMES ON
//* THE STACKED VOLUME.
//*-------------------------------------------------------------------
//* THE SG= FIELD IS 8 CHARACTERS LONG OR LESS.
//*-------------------------------------------------------------------
//* THE SC= FIELD IS 8 CHARACTERS LONG OR LESS.
//*-------------------------------------------------------------------
//* THE MC= FIELD IS 8 CHARACTERS LONG OR LESS.
//*-------------------------------------------------------------------
//* THE DC= FIELD IS 8 CHARACTERS LONG OR LESS.
//*-------------------------------------------------------------------
//* FOR MORE DETAILED INFORMATION ON THE REQUIRED FORMAT
//* REFER TO THE TOTALSTORAGE ENTERPRISE AUTOMATED TAPE LIBRARY
//* 3494 OPERATOR GUIDE.
//********************************************************************
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
IMPORT LIST 02
OPTIONS1,CREATENAME,SG=TAPESG1,SC=SCLASS1,DC=*RESET*
STKD01,LOGCL1,,SG=TAPESG2,DC=DCMED1
STKD02,LOGCL2,SCRATCH,SG=TAPESGX
STKD03,,,MC=COPY2
/*
//SYSUT2 DD DSN=HILEVELQ.IMPLIST,
// UNIT=3490,LABEL=(,SL),
// DISP=(NEW,KEEP),VOL=(,RETAIN,,,SER=IMP001),
// DCB=(RECFM=FB,BLKSIZE=80,LRECL=80,TRTCH=NOCOMP)
//SYSIN DD DUMMY
//*
//********************************************************************
//* FILE SEQUENCE 2: IMPORT 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:
//* IMPORT 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 IMPORT OPERATION IS COMPLETED FOR
//* INDIVIDUAL VOLUME IMPORT RESULTS.
//*-------------------------------------------------------------------
//* FOR DETAILED INFORMATION ON THE STATUS FILE, REFER TO
//* THE TOTALSTORAGE ENTERPRISE AUTOMATED TAPE LIBRARY 3494
//* OPERATOR GUIDE.
//********************************************************************
//STEP2 EXEC PGM=IEBGENER,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
IMPORT STATUS 01
/*
//SYSUT2 DD DSN=HILEVELQ.IMPSTATS,
// VOL=(,,REF=*.STEP1.SYSUT2),
// UNIT=3490,LABEL=(2,SL),
// DISP=(NEW,KEEP),
// DCB=*.STEP1.SYSUT2
//SYSIN DD DUMMY
//*
//*****************************************************************
//* THE FOLLOWING STEP CAN BE USED TO INITIATE THE IMPORT
//* OPERATION AT THE LIBRARY. USING THE CBRSPLCS SAMPLE PROGRAM
//* FROM SAMPLIB, CODE THE VOLSER NAME THAT WAS USED TO CREATE THE
//* IMPORT LIST VOLUME IN THE INPUT TRANSACTION RECORD. REFER TO
//* THE CBRSPLCS SAMPLE PROGRAM FOR THE CORRECT SYNTAX FOR
//* INITIATING AN IMPORT OPERATION. ONCE THE TRANSACTION RECORD
//* HAS BEEN CREATED, THE FOLLOWING STEP CAN BE UNCOMMENTED TO
//* INITIATE THE IMPORT OPERATION.
//*
//* NOTE: THE FOLLOWING STEP COULD ALSO BE MODIFIED TO EXECUTE
//* AN INSTALLATION'S UTILITY CAPABLE OF ISSUING THE
//* LIBRARY IMPORT,VOLSER OPERATOR COMMAND.
//*
//****************************************************************
//*STEP3 EXEC PGM=CBRSPLCS,COND=(4,LT)
//*SYSPRINT DD SYSOUT=*
//*INDD DD DSN=HILEVELQ.TRANSIN.IMPORT,DISP=OLD
//*OUTDD DD DSN=HILEVELQ.TRANSOUT.IMPORT,UNIT=SYSDA,
//* SPACE=(TRK,(1,1)),DISP=(NEW,CATLG)
//*SYSIN DD DUMMY
//*
//