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 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
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am

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