Joined: 18 Jun 2009 Posts: 407 Location: Nashville, TN
Since you have not mentioned any specific requirements I hope deleting records one by one should be okay - using the CICS READNEXT UPDATE and CICS DELETE commands....
I know this aint a good solution... ... and most probably you would be looking for a single command to do it.
I am also not aware if we can do it in a single command. Hopefully some one might provide the solution..
As of now since you dont have a common part in any of the keys, I suggest you could add a new one byte field as the first field in the key for both the files and based on this field probably you could do the deletion.
Joined: 27 Oct 2009 Posts: 2446 Location: Netherlands, Amstelveen
Define the KSDS as REUSABLE do a "fopen" with "wb(+)"
Open for writing. If the cluster is defined as reusable, the existing contents of the cluster are destroyed. If the cluster is defined as not reusable (clusters with paths are, by definition, not reusable), fopen() fails. However, if the cluster has been defined but not loaded, this mode can be used to do the initial load of both reusable and non reusable clusters.