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 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

Active User


Joined: 29 Jun 2005
Posts: 118

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: 8704
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

Active User


Joined: 29 Jun 2005
Posts: 118

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

Senior Member


Joined: 14 Mar 2007
Posts: 10494
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
No new posts Can we call QMF proc from REXX ? batu544 CLIST & REXX 6 Fri Aug 03, 2018 11:03 am
No new posts REXX CGI - Hello World vasanthz All Other Mainframe Topics 4 Fri Jul 13, 2018 3:53 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am
No new posts Trap the jcl error message or maxcc i... ankita agarwal CLIST & REXX 5 Fri May 18, 2018 2:08 pm
No new posts Rexx command to open an another text ... Bharath Vikraman PC Guides & IT News 7 Sat May 12, 2018 4:34 pm

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