Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Rexx to differentiate migrated datasets

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

New User


Joined: 29 Jun 2005
Posts: 89

PostPosted: Thu Mar 28, 2013 3:36 pm    Post subject: Rexx to differentiate migrated datasets
Reply with quote

Hi ,

I have written sample rexx code to check whether the given dataset is migrated or not , but i want to differentiate between 'PDS' & 'PS'.
When i test the code for any dataset whether it is "PS" & "PDS" or "TAPE file" , SYSDSORG parameter doesn't populate wih any values .
Is there any way to identify the DSORG for a migrated datasets.

(i,e) need to add to check one more variable along with ZDLMIGR ?

Code:

  DS='AA.BB.CC'                                                         
  "ISPEXEC LMDINIT LISTID(IDV) LEVEL(&DS)"                             
                                                                       
"ISPEXEC LMDLIST LISTID("IDV") OPTION(LIST) DATASET(DSVAR) STATS(YES)" 
                                                                       
   IF RC = 0   &  ZDLMIGR =  ' ' THEN                                   
     DO                                                                 
       SAY 'NO MIGRATED DATASETS EXIST TRY OTHER OPTIONS'               
     END                                                               
                                                                       
   IF RC = 0  &  ZDLMIGR = 'YES' THEN DO                               
           SAY "ITS MIGRATED DATASET"                                   
     END                                                               
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 Mar 28, 2013 4:08 pm    Post subject:
Reply with quote

DCOLLECT M records should tell you.
Back to top
View user's profile Send private message
balaji81_k

New User


Joined: 29 Jun 2005
Posts: 89

PostPosted: Sat Mar 30, 2013 11:26 am    Post subject: Hi
Reply with quote

Hi,

Can you please explain with any rexx code sample. Iam also referring manual for the same.

Thanks
Balaji K
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Sat Mar 30, 2013 12:30 pm    Post subject: Reply to: Rexx to differentiate migrated datasets
Reply with quote

loog at www.cbttape.org for a nice example on how to process DCOLLECT data with rexx,
( file 206 )

or start from here
http://www-01.ibm.com/support/docview.wss?uid=isg3T7000097
for examples of how to process the same using DFSORT
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
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
This topic is locked: you cannot edit posts or make replies. SDSF multiple spool datasets extracte... PJAlarcon CLIST & REXX 1 Fri Apr 21, 2017 10:50 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Edit large number of datasets (QSAM) zh_lad TSO/ISPF 3 Tue Apr 04, 2017 6:08 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us