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 retrieve datasets With HIGH level qualifer using rexx

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
reachcyrus

New User


Joined: 13 Jul 2007
Posts: 24
Location: chennai

PostPosted: Wed Aug 15, 2007 3:30 pm    Post subject: How to retrieve datasets With HIGH level qualifer using rexx
Reply with quote

Can anyone one suggest me an idea as how to retrieve datasets With HIGH level qualifer using rexx tso command.

i need a rexx tool for hrecalling datasets which are migrated and which has a high level qualifier as 'NAZXXX'
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Aug 15, 2007 4:21 pm    Post subject:
Reply with quote

If you don't mind using ISPF, you can try the following REXX:
Code:
/*------------------------------- REXX ------------------------------- 
 * PROGRAM   : HRECALLA                                                 
 * FUNCTION  : HRECALL TO ALL MIGRATED DATASETS                         
 * AUTHOR    : OFER                                                     
 * DATE      : 28/05/03                                                 
 * HOW TO USE:                                                         
 *           :                                                         
 *------------------------------------------------------------------*/ 
                                                                       
DSVAR = " "                                                             
HLQ   = "NAZXXX.*"                                                     
ADDRESS ISPEXEC "LMDINIT LISTID(TEMPLIST) LEVEL(&HLQ)"                 
                                                                       
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                                                                   
  ELSE                                                                 
    SAY DSVAR 'IS NOT MIGRATED'                                         
END                                                                     
                                                                       
ADDRESS ISPEXEC "LMDLIST LISTID(&TEMPLIST) OPTION(FREE)"               
ADDRESS ISPEXEC "LMDFREE LISTID(&TEMPLIST)"                             
                                                                       
EXIT                                                                   


O.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Aug 16, 2007 1:50 pm    Post subject:
Reply with quote

Hi,

I think, this
Code:
IF RC ¬= 0 THEN LEAVE                                                 

should be replaced with
Code:
IF RC != 0 THEN LEAVE                                                 

Former is not working for me while later is. I doubt it ( ¬ & ! ) can be site specific. Please suggest.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Aug 16, 2007 4:39 pm    Post subject:
Reply with quote

anuj_model wrote:
Hi
I think, this
Code:
IF RC ¬= 0 THEN LEAVE                                                 

should be replaced with
Code:
IF RC != 0 THEN LEAVE                                                 

Former is not working for me while later is. I doubt it ( ¬ & ! ) can be site specific. Please suggest.


The displayable character for value X'4F' does vary between the vertical bar and the exclamation mark depending on which character set is in use.

In the UK the vertical bar is displayed for X'4F' but over here in Brussels, the exclamation mark is displayed instead.

So YES it can be site specific icon_confused.gif
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts ESQA overflow - high ECSA utilization vasanthz All Other Mainframe Topics 1 Thu Dec 29, 2016 7:06 am
No new posts REXX DB2: Dynamic allocation of DB2.D... BHAS CLIST & REXX 3 Mon Dec 19, 2016 8:26 pm
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts DUMP DATASETS VS TRACE DATASETS! lind sh CICS 4 Tue Dec 06, 2016 11:31 pm


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