This SAMPLIB JCL writes the two required files on the import list volume using a scratch volume and import list format 01.
//CBRSPSIM JOB 1,'IMPORT',MSGLEVEL=(1,1)
//*********************************************************************
//*
//* $SEG(CBRSPSIM) COMP(SAM) PROD(OAM):
//*
//* SAMPLE JOB THAT USES A SCRATCH VOLUME TO WRITE THE
//* IMPORT 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 IMPORT LIST VOLUME FILES.
//********************************************************************
//* USING A LOGICAL SCRATCH VOLUME, CREATE THE IMPORT LIST VOLUME WITH
//* THE 2 REQUIRED FILES. IN ORDER TO ENSURE THAT A SCRATCH VOLUME
//* IS ALLOCATED IN THE TARGET LIBRARY FOR THE IMPORT 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: LIST OF VOLUMES TO IMPORT
//*-------------------------------------------------------------------
//* THE FILE IDENTIFIER AND VERSION NUMBER IS DEFINED IN THE FIRST
//* RECORD AND MUST BE SPECIFIED AS ILLUSTRATED BELOW, STARTING IN
//* THE FIRST COLUMN:
//* IMPORT LIST 01
//*-------------------------------------------------------------------
//* 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, THE LIST OF
//* FILE RECORDS CONTAIN A MAXIMUM OF THREE FIELDS SEPARATED BY
//* DELIMITERS. THE THREE FIELDS CONSIST OF THE STACKED VOLSER, THE
//* LOGICAL VOLSER AND THE IMPORT OPTION. THEY MUST APPEAR IN THAT
//* ORDER SEPARATED BY FIELD DELIMITERS. BOTH THE LOGICAL VOLSER
//* AND THE IMPORT OPTION ARE OPTIONAL.
//*-------------------------------------------------------------------
//* THE STACKED VOLSER FIELD IS 1-6 CHARACTERS LONG.
//* THIS IS THE STACKED VOLUME CONTAINING THE LOGICAL VOLUMES TO
//* IMPORT.
//*-------------------------------------------------------------------
//* THE FIELD DELIMITER MUST BE A COMMA.
//*-------------------------------------------------------------------
//* 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 FIELD DELIMITER MUST BE A COMMA.
//*-------------------------------------------------------------------
//* 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.
//*-------------------------------------------------------------------
//* 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.IMPLIST,
// UNIT=3490,LABEL=(,SL),
// DISP=(NEW,KEEP),VOL=(,RETAIN),
// DCB=(RECFM=FB,BLKSIZE=80,LRECL=80,TRTCH=NOCOMP)
//SYSUT1 DD *
IMPORT LIST 01
STKD01,LOGCL1
STKD02,LOGCL2
STKD03
/*
//SYSIN DD DUMMY
//*
//********************************************************************
//* FILE SEQUENCE 2: IMPORT STATUS FILE
//*-------------------------------------------------------------------
//* THE FILE IDENTIFIER AND VERSION NUMBER IS DEFINED IN THE FIRST
//* RECORD AND MUST BE SPECIFIED 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 IBM 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,CATLG),
// DCB=*.STEP1.SYSUT2
//SYSIN DD DUMMY
//*
//