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

Document ID:  TEC1850985
Last Modified Date:  07/17/2017
{{active ? 'Hide' : 'Show'}} Technical Document Details

Products

  • CA Allocate DASD Space and Placement

Releases

  • CA Allocate DASD Space and Placement:Release:12.5

Components

  • CA Allocate DASD Space and Placement:ALLOC
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 enable the catalog
entry for the archived or migrated data set to be deleted 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.

Instructions:

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.

Please help us improve!

Will this information enable you to resolve your issue?

Please tell us what we can do better.

{{feedbackText.length ? feedbackText.length : '0'}}/255

{{status}}

Not what you were looking for?

Search Again >

Product Information

Support by Product >

Communities

Join a Community >

Chat with CA

Just give us some brief information and we'll connect you to the right CA ExpertCA sales representative.

Our hours of availability are 8AM - 5PM CST.

All Fields Required

connecting

We're matching your request.

Unfortunately, we can't connect you to an agent. If you are not automatically redirected please click here.

  • {{message.agentProfile.name}} will be helping you today.

    View Profile


  • Transfered to {{message.agentProfile.name}}

    {{message.agentProfile.name}} joined the conversation

    {{message.agentProfile.name}} left the conversation

  • Your chat with {{$storage.chatSession.messages[$index - 1].agentProfile.name}} has ended.
    Thank you for your interest in CA.


    Rate Your Chat Experience.

    {{chat.statusMsg}}

agent is typing