|
View previous topic :: View next topic
|
| Author |
Message |
kalais
New User
Joined: 18 Apr 2006
Posts: 22
|
|
|
|
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 |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
LISTDSI.
I've given you this same answer in previous posts. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
| 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 |
|
|
|
|
