How to Delete Archived or Migrated data sets without Recall/Restore

Products

• Allocate DASD Space and Placement

Issue/Introduction

ASR logic in the PREALLOC Environment allows for the detection and elimination
of potential 'NOT CATLGD 2' conditions that may occur for new, non-VSAM, non-GDG,
permanent data set allocations. These conditions may occur if there is an existing
catalog entry for the data set containing the CA Disk archived pseudo volume or
the DFSMShsm migrated pseudo volume.
 
DELNOS (Delete Noscratch) support is available in PREALLOC that will delete the catalog
entry for the archived or migrated data set without triggering either Auto Restore or RECALL
of the archived or migrated data set.
 
For data sets that have been archived by CA Disk, only the catalog entry will be deleted. 
The DSNINDEX record will be deleted in subsequent IXMAINT processing.
 
For data sets that have been migrated by DFSMShsm, an HDELETE request will be issued that
will delete the migrated data set as well as the catalog entry.

Environment

Release: ESBALQ99000-12.5-CA-Allocate-DASD Space and Placement-with Quota Manager-Extende
Component:

Resolution

The following ASR segments, for CA Disk or/and DFSMShsm, would be placed
in the PREALLOC Environment. 
 
One Vkgparm must be added to the VKGPARMS member for CA Disk or/and DFSMShsm.
 
The variables listed, &N8 and &N9 are examples only. 
Specify a variable number that is not already in use in your ASRs. 
The variable &DNOSRC can be specified ONLY once in an ASR segment.
 
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
/* ---------------------------------------------------------------- */
/*       PREALLOC  ENVIRONMENT  FOR CA DISK                         */
/* ---------------------------------------------------------------- */
IF &VAMENVIR = 'PREALLOC'  THEN                                      
 DO                                                                  
  IF &DISPN  = 'CATLG'  AND  &ARCIVED  = 'Y'  THEN   /* FOR CA-DISK */
   DO                                                                
     WRITE 'DSN = &DSN IS ARCHIVED - ATTEMPTING DELNOS'              
     SET &DELNOS = 'Y'                                               
     SET &N8     = &DNOSRC                                           
     IF  &N8     =  0  THEN                                          
      DO                                                             
       WRITE 'DELNOS OF &DSN WAS SUCCESSFUL'                         
      END                                                            
     IF  &N8     > 0  THEN                                           
      DO                                                             
       WRITE 'DELNOS OF &DSN WAS NOT SUCCESSFUL RC = &N8'            
      END                                                            
   END                                                               
  EXIT CODE(0)                                                       
 END                                                                 
/* ---------------------------------------------------------------- */

Specify value for Vkgparm: 
PLSARCVL (ARCIVE)        * THE DEFAULT PSEUDO-VOL FOR CA DISK
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
/* ---------------------------------------------------------------- */
/*       PREALLOC ENVIRONMENT FOR HSM                               */
/* ---------------------------------------------------------------- */
IF &VAMENVIR = 'PREALLOC'  THEN                                      
 DO                                                                  
/* ---------------------------------------------------------------- */
  IF &DISPN  = 'CATLG'  AND  &MIGRATED = 'Y'  THEN   /* FOR HSM     */
   DO                                                                
     WRITE 'DSN = &DSN IS MIGRATED - ATTEMPTING HDELETE'             
     SET &DELNOS = 'Y'                                               
     SET &N9     = &DNOSRC                                           
     IF  &N9     =  0  THEN                                          
      DO                                                             
       WRITE 'DELNOS OF &DSN IS SUCCESSFUL'                          
      END                                                            
     IF  &N9     > 0  THEN                                           
      DO                                                             
       WRITE 'DELNOS OF &DSN WAS NOT SUCCESSFUL RC = &N9'            
       EXIT CODE(8)                                                  
      END                                                            
   END                                                               
  EXIT CODE(0)                                                       
 END                                                                 
/* ---------------------------------------------------------------- */

Specify value for this Vkgparm which has no default: 
PLSHSMVL (      )        * SPECIFY THE PSEUDO-VOL FOR DFSMSHSM
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Additional Information

Please contact CA Technical Support if you have any questions.