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
 

 

Getting the dataset name from a DD name - REXX

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

New User


Joined: 18 Apr 2006
Posts: 22

PostPosted: Tue Jun 20, 2006 6:06 pm    Post subject: Getting the dataset name from a DD name - REXX
Reply with quote

Hi,


How can i get a dataset name from a DD name in REXX program.

The DD name is defined in a PROC which executes the REXX program.

What REXX command/function can be used for this purpose?
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Jun 20, 2006 6:22 pm    Post subject: Re: Getting the dataset name from a DD name - REXX
Reply with quote

LISTDSI.

I've given you this same answer in previous posts.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Wed Jun 21, 2006 7:07 pm    Post subject:
Reply with quote

Code:
DDNAME = 'myddname'
Ret = LISTDSI(DDNAME' FILE')

If Ret <> 0 Then Do
    SAY 'REASON....:'SYSREASON
    SAY 'MSGLVL1...:'SYSMSGLVL1
    SAY 'MSGLVL2...:'SYSMSGLVL2     
End; Else Do
    SAY 'DSNAME....:'SYSDSNAME     
    SAY 'VOLUME....:'SYSVOLUME     
    SAY 'UNIT......:'SYSUNIT       
    SAY 'DSORG.....:'SYSDSORG       
    SAY 'RECFM.....:'SYSRECFM       
    SAY 'LRECL.....:'SYSLRECL       
    SAY 'BLKSIZE...:'SYSBLKSIZE     
    SAY 'KEYLEN....:'SYSKEYLEN     
    SAY 'ALLOC.....:'SYSALLOC       
    SAY 'USED......:'SYSUSED       
    SAY 'USEDPAGES.:'SYSUSEDPAGES   
    SAY 'PRIMARY...:'SYSPRIMARY     
    SAY 'SECONDS...:'SYSSECONDS     
    SAY 'UNITS.....:'SYSUNITS       
    SAY 'EXTENTS...:'SYSEXTENTS     
    SAY 'CREATE....:'SYSCREATE     
    SAY 'REFDATE...:'SYSREFDATE     
    SAY 'EXDATE....:'SYSEXDATE
    SAY 'PASSWORD..:'SYSPASSWORD
    SAY 'RACFA.....:'SYSRACFA   
    SAY 'UPDATED...:'SYSUPDATED
    SAY 'TRKSCYL...:'SYSTRKSCYL
    SAY 'BLKSTRK...:'SYSBLKSTRK
    SAY 'ADIRBLK...:'SYSADIRBLK
    SAY 'UDIRBLK...:'SYSUDIRBLK
    SAY 'MEMBERS...:'SYSMEMBERS
    SAY 'DSSMS.....:'SYSDSSMS   
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
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
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
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


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