Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search 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
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
References
Gautam512

Senior Member


Joined: 05 Oct 2005
Posts: 347
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: 1959
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: 489
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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1