This SAMPLIB JCL writes the two required files on the import list volume using a private volume and import list format 01.

//CBRSPPIM  JOB 1,'IMPORT',MSGLEVEL=(1,1)
//*********************************************************************
/*
//*  $SEG(CBRSPPIM) COMP(SAM) PROD(OAM):
//*
//*  SAMPLE JOB THAT USES A PRIVATE VOLUME TO WRITE THE
//*  IMPORT LIST VOLUME AND INITIATE THE IMPORT OPERATION.
//*
//*  BEFORE RUNNING THIS JOB, YOU MUST ALTER THE JCL.
//*  THIS JCL IS AN EXAMPLE.  THE VOLUME SERIAL NUMBERS AND
//*  DATA SET 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 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 LOGICAL VOLUMES
//* TO BE IMPORTED.
//*-------------------------------------------------------------------
//* 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
//* 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=*
//SYSUT1   DD *
IMPORT LIST 01
STKD01,LOGCL1
STKD02,LOGCL2
STKD03
/* 
//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 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,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 
//* 
//