I have tried to delete a PS file in REXX program using the TSO commad.
After the dataset is deleted, Im getting a message "ENTRY (A) dataset DELETED "
Below is piece of code.
DSET1= "[i]dataset[/i]"
IF "OK" == SYSDSN("'"DSET1"'") THEN
DO
ADDRESS TSO "DELETE '"DSET1"'"
IF RC ¬= 0 THEN
DO
SAY "CLOSE THE DATASET :" DSET1
EXIT
END
END
ELSE DO
END
IF "OK" == SYSDSN("'"DSET1"'") THEN
DO
ADDRESS TSO "DELETE '"DSET1"'"
IF RC ¬= 0 THEN
DO
SAY "CLOSE THE DATASET :" DSET1
EXIT
END
END
ELSE DO
END
Could any one help me in this Issue.Thanks in Advance.