DSLIST - Data Sets Matching RADTSO.POSERR.N01 Row 1 of 2
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
RADTSO.POSERR.N01 ??????
RADTSO.POSERR.N01.G0001V00 TEST42
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
RADTSO.POSERR.N01 ??????
RADTSO.POSERR.N01.G0001V00 TEST42
REXX CODE:
/*REXX*/
SAY "SEE BELOW GEN"
DSN= "'RADTSO.POSERR.N01(0)'"
X = LISTDSI(DSN FILE)
SAY SYSDSNAME
EXIT 0
SAY "SEE BELOW GEN"
DSN= "'RADTSO.POSERR.N01(0)'"
X = LISTDSI(DSN FILE)
SAY SYSDSNAME
EXIT 0
OUTPUT:
SEE BELOW GEN
INVALID DATA SET NAME, 'RADTSO.POSERR.N01(0)'
READY
END
INVALID DATA SET NAME, 'RADTSO.POSERR.N01(0)'
READY
END