Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Comparision with current time arunsoods DFSORT/ICETOOL 5 Thu Nov 09, 2017 10:37 am
This topic is locked: you cannot edit posts or make replies. Comparing current time with the time ... arunsoods SYNCSORT 1 Mon Oct 30, 2017 4:07 pm
This topic is locked: you cannot edit posts or make replies. Incrementing current time field by 30... arunsoods DFSORT/ICETOOL 11 Thu Oct 26, 2017 3:22 pm
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
No new posts VSAM RLS Wait time blayek JCL & VSAM 2 Mon Oct 02, 2017 9:05 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us