|
View previous topic :: View next topic
|
| Author |
Message |
veena_nagesh2002
Warnings : 1
Active User
Joined: 07 May 2005
Posts: 110
Location: hyderabad
|
|
|
|
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 |
|
 |
Gautam512
Active User
Joined: 05 Oct 2005
Posts: 308
Location: Vizag / US
|
|
|
|
| Can u explain abt ur problem in detail |
|
| Back to top |
|
|
veena_nagesh2002
Warnings : 1
Active User
Joined: 07 May 2005
Posts: 110
Location: hyderabad
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
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 |
|
|
Rupesh.Kothari
Member of the Month
Joined: 27 Apr 2005
Posts: 463
|
|
|
|
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 |
|
|
|
|
