|
View previous topic :: View next topic
|
| Author |
Message |
Vinay N.G
New User
Joined: 15 Sep 2008
Posts: 36
Location: Bangalore
|
|
|
|
Hi,
1) Please let me know if we can delete any VSAM or Flat file using the same command in REXX.
2) Is it possible for a REXX program to differentiate the input files
between VSAM and a flat file. If so how to find out whether the input file is a VSAM file or flat file(PS). |
|
| Back to top |
|
 |
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley
|
|
|
|
Use the LISTDSI built-in function to check the DSORG. Read Rexx Reference manual for more information.
And to delete a dataset, use the delete command
| Code: |
| Address TSO 'DELETE ...' |
I am not sure what you mean by 'using the same command in REXX.' |
|
| Back to top |
|
|
Vinay N.G
New User
Joined: 15 Sep 2008
Posts: 36
Location: Bangalore
|
|
|
|
Is it possible to track whether the delete is successful or not.. If so how to track it.
What if dataset is not present and we are trying to delete it.
I mean, in JCL if it happens like that, then we will set maxcc=0 right , in the same way can we don anything here in REXX so that it doesnt throw any error message if it tries to delete the dataset which is not catalouged. |
|
| Back to top |
|
|
acs_amit
New User
Joined: 30 Apr 2009
Posts: 14
Location: Noida
|
|
|
|
Suppose your dataset is:
DSN.A = 'A.B.C'
/*then to delete the dataset.. use*/
Address TSO
"delete '"||DSN.A||"'"
/*Now to check whether delete is successful use SYSDSN command..foe ex..*/
if sysdsn("'"||DSN.A||"'") = 'OK' THEN
SAY 'PROBLEM WITH DELETING THE DATASET'
Else
SAY 'DATASET HAS BEEN DELETED'
/* search for SYSDSN command in manuals.. */
I hope this will solve your query... |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
I believe that will not work if the dataset does not exist at the beginning. . . The delete will fail. . . |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley
|
|
|
|
use SYSDSN first to make sure it exits.
After DELETE, check the return code. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
| acs_amit wrote: |
Suppose your dataset is:
DSN.A = 'A.B.C'
/*then to delete the dataset.. use*/
Address TSO
"delete '"||DSN.A||"'"
/*Now to check whether delete is successful use SYSDSN command..foe ex..*/
if sysdsn("'"||DSN.A||"'") = 'OK' THEN
SAY 'PROBLEM WITH DELETING THE DATASET'
Else
SAY 'DATASET HAS BEEN DELETED'
/* search for SYSDSN command in manuals.. */
I hope this will solve your query... |
I use a different logic (one that hopefully works):
| Code: |
DSN.A = "'A.B.C'"
/* If the file is here, remove it */
/* If the delete fails, the program is ended */
If SYSDSN(DSN.A) = 'OK' Then
Address TSO "DELETE "DSN.A |
Isn't it easier?
The error can be trapped to allow housekeeping and a proper message.
| Code: |
SIGNAL ON ERROR
DSN.A = "'A.B.C'"
/* If the file is here, remove it */
/* If the delete fails, send appropriate message */
If SYSDSN(DSN.A) = 'OK' Then Do
Address TSO "DELETE "DSN.A
Say 'File 'DSN.A' has been deleted'
End
ERROR:
Say 'The return code from the command on line 'Sigl' is 'RC
Say 'Command is: 'SourceLine(Sigl)
|
|
|
| Back to top |
|
|
|
|
