We use the command "SB" (safe browse) in front of file to check if we have access or not for production files.
I am using the same command in REXX for one of my tools.
/*REXX*/
SAY 'ENTER DSN FILE'
PARSE DSN
X=OUTTRAP("LIST.")
ADDRESS TSO
"SB ||DSN"
X=OUTTRAP("OFF")
DO I=1 TO LIST.0
SAY LIST.I
END
SAY 'ENTER DSN FILE'
PARSE DSN
X=OUTTRAP("LIST.")
ADDRESS TSO
"SB ||DSN"
X=OUTTRAP("OFF")
DO I=1 TO LIST.0
SAY LIST.I
END
Here I am not able to capture the output of the command.
The same command when execute in ISPF screen ie in front of file. We get the message like "READ ACCESS" or "ACCESS DENIED" .
Can you please let me know whats the issue?
Or let me know anyother way to know if the user has access....I havethe LD DS ("DSN") GEN command..But executing ths command against a dataste that we dont have access is issue!!!