Utilities and Procedures › CATVMFX - Build a New VMF with EXTEND › Procedure JCL

Procedure JCL

//****************************************************************
//*             ****  PROCNAME=CATVMFX ****                      *
//****************************************************************
//**     PROCEDURE TO DYNAMICALLY EXTEND THE VMF                 *
//****************************************************************
//*                                                               
//CATVMFX  PROC A='*',                                            
//             LOAD='CAI.CTAPLINK',                               
//             PARMS='CAI.CTAPOPTN(CTOVMFX)',                     
//             DO='TEST'                                          
//*                                                               
//****************************************************************
//**           EXECUTE DYNAMIC VMF EXTEND                        *
//****************************************************************
//EXTEND   EXEC PGM=TLMSVMFX,PARM='&DO'                            
//*                                                                
//STEPLIB  DD  DSN=&LOAD,DISP=SHR                                  
//*                                                                
//CAIMSG   DD  SYSOUT=&A                                           
//*                                                                
//CAIPARM  DD  DSN=&PARMS,DISP=SHR                                 
//*                                                                
//SYSPRINT DD  DCB=BLKSIZE=133,SYSOUT=&A                           
//*                                                                
//SYSUDUMP DD  SYSOUT=&A                                           
//*