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

Products

• CA 1 Flexible Storage
• TLMS Tape Management

Issue/Introduction

 

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

Release: TLMS..00200-11.5-TLMS-TAPE MANAGEMENT
Component:

Cause

ZDLDSN and ZDLVOLS variables do not exist in this environment.

Resolution

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