IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

HOW TO DEARCIVE LIST OF ARCHIVED PDS AT A TIME USING TSO


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
veena_nagesh2002
Warnings : 1

Active User


Joined: 07 May 2005
Posts: 110
Location: hyderabad

PostPosted: Wed Feb 08, 2006 3:28 pm
Reply with quote

EX : 1 ;


H49$. *.*

EX : 2 : LIKE THIS

H49$.DSCCNF35.LIST ARCIVE
H49$.DSCCVMAC.LIST ARCIVE
H49$.DSCCVPRO.LIST ARCIVE
H49$.DSCCV110.LIST ARCIVE
H49$.DSCCV120.LIST ARCIVE
H49$.DSCCV140.LIST ARCIVE
H49$.DSCCV300.LIST ARCIVE
H49$.DSCCV320.LIST ARCIVE
Back to top
View user's profile Send private message
Gautam512

Active User


Joined: 05 Oct 2005
Posts: 308
Location: Vizag / US

PostPosted: Wed Feb 08, 2006 4:56 pm
Reply with quote

Can u explain abt ur problem in detail
Back to top
View user's profile Send private message
veena_nagesh2002
Warnings : 1

Active User


Joined: 07 May 2005
Posts: 110
Location: hyderabad

PostPosted: Tue Feb 21, 2006 2:30 pm
Reply with quote

IT MEANS I WANT TO DEARCHIVE AT A TIME BY USING TSO COMMAND

INSTOOD OF USING HRECALL OPTION BEFORE EVERY FILE NAME IN THE BROWSE MENU
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Tue Feb 21, 2006 3:11 pm
Reply with quote

Here is my way to invoke mass HRECALL:
Code:

/*------------------------------- REXX -------------------------------
 * PROGRAM   : HRECALLA                                               
 * FUNCTION  : HRECALL TO ALL MIGRATED DATASETS                       
 * AUTHOR    : OFER                                                   
 * DATE      : 28/05/03                                               
 * HOW TO USE:                                                         
 *           :                                                         
 *------------------------------------------------------------------*/
                                                                       
HLQ.1  = 'TC.TRPS.*'                                                   
HLQ.2  = 'TC.PCVS.*'                                                   
HLQ.3  = 'TC.POVS.*'                                                   
HLQ.4  = 'TC.PBVS.*'                                                   
HLQ.5  = 'TC.PRVS.*'                                                   
HLQ.6  = 'TC.LAVS.*'                                                   
HLQ.7  = 'TC.HCVS.*'                                                   
HLQ.8  = 'TC.APVS.*'                                                   
HLQ.9  = 'TC.AXVS.*'                                                   
HLQ.10 = 'TC.FCVS.*'                                                   
HLQ.11 = 'TC.FGVS.*'                                                   
HLQ.12 = 'TC.FUVS.*'                                                   
HLQ.13 = 'TC.IFVS.*'                                                   
HLQ.14 = 'TC.MFVS.*'                                                   
HLQ.15 = 'TC.NGVS.*'                                                   
HLQ.16 = 'TC.NPVS.*'                                                   
HLQ.17 = 'TC.NVVS.*'                                                   
HLQ.18 = 'TC.PIVS.*'                                                   
HLQ.19 = 'TC.PLVS.*'                                                   
                                                                       
DO I = 1 TO 19                                                         
  DSVAR = ' '                                                         
  ADDRESS ISPEXEC "LMDINIT LISTID(TEMPLIST) LEVEL("HLQ.I")"           
                                                                       
  DO FOREVER                                                           
    ADDRESS ISPEXEC                                                   
    "LMDLIST LISTID(&TEMPLIST) OPTION(LIST) DATASET(DSVAR) STATS(YES)"
    IF RC ?= 0 THEN LEAVE                                             
    IF ZDLMIGR = 'YES' THEN DO                                         
      SAY 'RECALLING 'DSVAR                                             
      X = OUTTRAP('DUMMY.')                                             
      ADDRESS TSO "HRECALL '"DSVAR"' NOWAIT"                           
      X = OUTTRAP('OFF')                                               
    END                                            /* IF MIGR = YES */ 
    ELSE                                                               
      SAY DSVAR 'IS NOT MIGRATED'                                       
  END                                              /* DO LIST       */ 
                                                                       
  ADDRESS ISPEXEC "LMDLIST LISTID(&TEMPLIST) OPTION(FREE)"             
  ADDRESS ISPEXEC "LMDFREE LISTID(&TEMPLIST)"                           
                                                                       
END                                                /* DO HLQ.I      */ 
                                                                       
EXIT                                                                   
                                                                       


O.
Back to top
View user's profile Send private message
Rupesh.Kothari

Member of the Month


Joined: 27 Apr 2005
Posts: 463

PostPosted: Tue Feb 21, 2006 3:44 pm
Reply with quote

Hi,

Quote:
IT MEANS I WANT TO DEARCHIVE AT A TIME BY USING TSO COMMAND


If you have list then you can prepare a job which recall all the migrated dataset but in that case alos you need to use Hrecall command.

Hope this helps
Regards
Rupesh
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts To get the the current time DFSORT/ICETOOL 13
No new posts RC query -Time column CA Products 3
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts C Compile time time stamps Java & MQSeries 10
No new posts Parallelization in CICS to reduce res... CICS 4
Search our Forums:

Back to Top