Using the JCL example, assemble and link-edit VAULTDEF and METHOD macros.
* $$ JOB JNM=EPVAULT,CLASS=A,DISP=D
* $$ LST CLASS=A,DEST=(*,USERID)
// JOB EPVAULT
*
* ----------------------------------------------------------+
* FOLLOWING IS A SHELL FOR THE VAULTDEF AND METHOD MACROS. !
* MODIFY IT TO SUIT YOUR INSTALLATION REQUIREMENTS AND |
* THEN RUN THE JOB TO ASSEMBLE AND CATALOG IT TO THE EPIC|
* INSTALL LIBRARY. |
* |
* CONSULT THE SYSTEM PROGRAMMER'S GUIDE FOR EXPLANATIONS OF|
* ALL VAULTDEF AND METHOD MACRO PARAMETERS. |
* |
* PARAMETERS SURROUNDED BY ASTERISKS NEED TO BE |
* REPLACED |
* ----------------------------------------------------------+
*
// LIBDEF PHASE,CATALOG=*LIB.SUBLIB* CA EPIC for z/VSE INSTALL LIBRARY
// LIBDEF *,SEARCH=*LIB.SUBLIB* CA EPIC for z/VSE INSTALL LIBRARY
*
* ----------------------------------------------------------+
* LIBRARIES ABOVE ARE THE CA EPIC for z/VSE INSTALL LIBRARIES |
* ----------------------------------------------------------+
// PAUSE
*
// OPTION CATAL
// EXEC ASSEMBLY
********************************************************************
* VAULT 1 HAS 200 SLOTS NUMBERED 1 TO 200. DATASETS CATALOGED WITH*
*METHOD 1 WILL KEEP VERSIONS 1 AND 3 IN VAULT 1, VERSION 4 IN VAULT*
* 3 AND VERSION 2 IN THE MAIN TAPE LIBRARY. *
* ====> ERASE THIS COMMENT BOX BEFORE ASSEMBLY <===== *
********************************************************************
VAULTDEF 'VAULT 1',1,200
VAULTDEF 'VAULT 2',1,500
VAULTDEF 'VAULT 3',50,50
METHOD 1,0,1,2
METHOD 2,1,2,3,0
METHOD 3,0,0,3,1,0
END
/*
// EXEC LNKEDT
/*
/&
* $$ EOJ
| Copyright © 2010 CA. All rights reserved. | Email CA Technologies about this topic |