Sun Biao wrote:
!Very thanks.
!I tried and the syntax $fh = mvsopen("//'KT0574.PR.CNTL(ALIAS)'","r");
!works.
!Unfortunately the dsname_level does not work.
!Sun
Yes - sorry about that. I had recommended:
"'//KT0574.PR.CNTL(ALIAS)'", when in fact as you
point out, what is needed is:
"//'KT0574.PR.CNTL(ALIAS)'".
dsname_level() does not work now and would require some
extra inline assembler to be made to work as near
as I recall. In the meantime you should be
able to obtain a TSO LISTCAT output using:
@listcat = `tso listcat`;
as mentioned in the documentation for the module.
Peter Prymmer
