/* REXX */
/* */
/* ISSUE THE 'LISTDSD' RACF COMMAND TO LIST THE CORRECT RACF */
/* DATASET PROFILE THAT PROTECTS THE SUPPLIED DATASET NAME. */
/* */
/* CAN BE ISSUED FROM ISPF OPTION 3.4 NEXT TO THE DATASET NAME */
/* OR FROM ANY ISPF COMMAND LINE PROMPT. */
/* */
/* OPTIONAL PARAMETERS MAY BE SPECIFIED. EX: LR / DSN */
/* */
/* CLEAR */
PARSE ARG $DSN PARM .
IF $DSN = '' THEN DO
SAY "SYNTAX IS: LR 'DATASET.NAME'"
SAY
SAY 'EXITING...'
EXIT
END
SAY COPIES('*',70)
Z=OUTTRAP(LINE.)
"LISTDSD DATASET("$DSN") AUTHUSER"
$RC = RC
Z=OUTTRAP(OFF)
IF $RC <> 0 THEN DO
/***** GENERIC PROFILE *******/
SAY CENTER('GENERIC RACF DATASET PROFILE PROTECTING DATASET:',72)
SAY CENTER($DSN,72)
SAY CENTER(COPIES('*',70),72)
SAY
"LISTDSD DATASET("$DSN") GENERIC AUTHUSER"
END
ELSE DO
/***** DISCRETE PROFILE *******/
SAY CENTER('DISCRETE RACF DATASET PROFILE PROTECTING DATASET:',72)
SAY CENTER($DSN,72)
SAY CENTER(COPIES('*',70),72)
SAY
"LISTDSD DATASET("$DSN") AUTHUSER"
END
SAY ' '
EXIT