View previous topic :: View next topic
|
Author |
Message |
reachcyrus
New User
Joined: 13 Jul 2007 Posts: 24 Location: chennai
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
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 |
|
Back to top |
|
|
|