zdsattr()
.
Category: | External Files |
z/OS specifics: | info-item |
zdsattr()
based
on the index that is passed from the do
loop.
It returns that attribute to the 72-byte–byte character variable
that is declared as the function’s output variable. If the
output variable is too small, a note is issued. An ERROR message is
issued after the note.
length xattr $4096; length xdsn $4096; length xidnm $256; length xnum 8; length xattrn 8; length xattrc $72; xdsn = zdslist(‘catlg’, ‘sasdrc.sas.*’, ‘’, ‘’); xnum = zdsnum(xdsn); do i = 1 to xnum; xidnm = zdsidnm(xdsn, i); xattr = zdsattr(xidnm, ‘ALL’); xattrn = zdsxatt(xattr); do j = 1 to xattrn; xattrc=zdsyatt(xattr, j); put @1 xattrc; end; end;