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

How to retrieve datasets With HIGH level qualifer using rexx


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
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
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: 2358
Location: Israel

PostPosted: Wed Aug 15, 2007 4:21 pm
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

Superior Member


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

PostPosted: Thu Aug 16, 2007 1:50 pm
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: 8797
Location: Welsh Wales

PostPosted: Thu Aug 16, 2007 4:39 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top