TI command fails with 'CMGA003 VDEFINE OR VGET FALED FOR ZDLDSN ZDLVOL FAILED' in ISPF CLEANUP Environment.

Document ID : KB000026076
Last Modified Date : 14/02/2018
Show Technical Document Details

Problem:

TI command fails with 'CMGA003 VDEFINE OR VGET FAILED FOR ZDLDSN ZDLVOL FAILED' in ISPF CLEANUP Environment. ISPF CLEANUP is official IBM-Tool in ISPF for enhanced Dataset information.

Environment:  

CA 1 12.6 and 14.0,  IBM-Tool in ISPF for enhanced Data set information.

Cause: 

ZDLDSN and ZDLVOLS variables do not exist in this environment.

Resolution/Workaround:

Use the following modified TI REXX procedure, which creates these required variables from DSNAME and VOLUME variables.

/* REXX  */                                                                    
ADDRESS ISPEXEC                                                                
"LIBDEF ISPMLIB DATASET ID('CA1.CAIISPM')"                             
"LIBDEF ISPPLIB DATASET ID('CA1.CAIISPP')"                             
"VGET (DSNAME)"                                                                
"VGET (VOLUME)"                                                                
ZDLDSN = DSNAME                                                                
ZDLDSN = STRIP(ZDLDSN,,'''')                                                   
ZDLVOL = VOLUME                                                                
ADDRESS ISPEXEC                                                                
"VPUT (ZDLDSN)"                                                                
"VPUT (ZDLVOL)"                                                                
ADDRESS TSO                                                                    
"CALL 'CA1.CAILIB(CTSTI)'"                                              
EXIT