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
 
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: 4650
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: 1252
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
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am

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