Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: HOW TO DEARCIVE LIST OF ARCHIVED PDS AT A TIME USING TSO
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: 309
Location: Vizag / US

PostPosted: Wed Feb 08, 2006 4:56 pm    Post subject: Re: HOW TO DEARCIVE LIST OF ARCHIVED PDS AT A TIME USING TS
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    Post subject: HOW TO DEARCHIVE LIST OF ARCHIVED PDS AT A TIME USING TSO
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: 2360
Location: Israel

PostPosted: Tue Feb 21, 2006 3:11 pm    Post subject:
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: 464

PostPosted: Tue Feb 21, 2006 3:44 pm    Post subject: Re: HOW TO DEARCIVE LIST OF ARCHIVED PDS AT A TIME USING TS
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts How to get current date -1 and curren... murali.andaluri DFSORT/ICETOOL 3 Wed Mar 08, 2017 2:09 pm
No new posts CICS transaction slow response time vasanthz All Other Mainframe Topics 3 Thu Jan 19, 2017 1:31 am
No new posts DD DUMMY & CPU TIME Nileshkul Testing & Performance analysis 16 Mon Dec 19, 2016 11:35 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us