Utilities and Procedures › CTSTMAP – Tape Map Utility › CTSTMAP JCL

CTSTMAP JCL

//CTSJTMAP JOB (ACCT),'CA COMMON TAPE SYSTEM'               
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *//
//* CTSTMAP WILL DYNAMICALLY ALLOCATE A TAPE DRIVE AND SYSOUT.  *//
//*  //TAPE    DD UNIT=????,VOL=SER=??????                      *//
//*  //TAPEMAP DD SYSOUT=A                                      *//
//*                                                             *//
//* CTSTMAP WILL PROCESS FROM 1 TO 8 TAPE VSNS SEPERATED BY     *//
//*   COMMAS OR BLANKS                                          *//
//*                                                             *//
//* THE UNIT PARAMETER MAY SPECIFY A GROUP (ESOTERIC) NAME, A   *//
//* DEVICE TYPE (GENERIC) OR A SPECIFIC DEVICE ADDRESS.  TO     *//
//* CODE A 4-DIGIT SPECIFIC DEVICE ADDRESS, PRECEDE THE DEVICE  *//
//* ADDRESS WITH A SLASH (/).  A 3-DIGIT SPECIFIC DEVICE ADDRES *//
//* MAY ALSO BE PRECEDED WITH A SLASH.                          *//
//*                                                             *//
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *//
//TMAP     EXEC PGM=CTSTMAP,                                    
//  PARM='MAP TEST01,TEST02,TEST03,TEST04,TEST05,TEST06 UNIT=3490'
//* PARM='MAP TEST01 UNIT=CART'                                  
//* PARM='MAP TEST01 UNIT=/2E80'                                 
//*        STEPLIB REQUIRED IF CAI.CTAPLINK NOT IN LINKLST      */
//STEPLIB  DD DISP=SHR,DSN=CAI.CTAPLINK       /* CAI.CTAPLINK   */
//SYSUDUMP DD SYSOUT=*                        /* OPTIONAL       */
//