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
 
REXX to check whether the dataset is migrated or not

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

New User


Joined: 08 Apr 2006
Posts: 14
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

PeD

Active User


Joined: 26 Nov 2005
Posts: 456
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
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 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
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm

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