Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
REXX to check whether the dataset is migrated or not

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
Author Message
vimalonline
Warnings : 1
New User


Joined: 08 Apr 2006
Posts: 13
Location: In front of my PC
PostPosted: Wed May 24, 2006 8:06 pm    Post subject: REXX to check whether the dataset is migrated or not
 Reply with quote
Code:
 /* REXX */                                                       
 ADDRESS ISPEXEC                                                 
 DSNLEV = 'my.dsn'                   
 "LMDINIT LISTID("LSTID") LEVEL("DSNLEV")"                       
 "LMDLIST LISTID("LSTID") OPTION(LIST) DATASET(DSVAR) STATS(YES)"
 SAY 'ZDLMIGR' ZDLMIGR                                           
 EXIT                                                           



This Rexx checks for only one dataset.Similiarly How to check for the multiple datasets??
Back to top
View user's profile Send private message
References
PeD

Senior Member


Joined: 26 Nov 2005
Posts: 313
Location: Belgium
PostPosted: Sun May 28, 2006 12:37 am    Post subject:
Reply with quote
something like

Code:
X = OUTTRAP("LCAT.")
ADRESS TSO "LISTCAT LVL('HLQ.ABC.DEF') ALL"
DO ICAT = 1 TO LCAT.O
    pseudo : check  : If Index(LCAT.ICAT,'VOLSER--') > 0  Then
    pseudo : check word MIGRAT
END

   
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1