Stigers, Greg ~ AND wrote:

> I have an NM KSAM file that contains records, and I now want it to be
> empty. I know that I could write a COBOL program to OPEN it OUTPUT, and
> voila! I would now have an empty file. I could also purge or rename it,
> and rebuild it, but sure as I do that, someone will need to change a key
> or a field, and then the BUILD would have to be maintained. I would
> prefer to find another, sure way to do this that is less prone to human
> error. I don't see where SuprTool can do this for me, nor did I see
> anything searching MPEX. The best way I came up with was to rename the
> original, then FCopy it to the original name, and use FCOPY
> FROM=OLDFILE;TO=(NEWFILE);NEW;SUBSET="",1,EXCLUDE
> to "clone" this file. I * think * that has the disadvantage of reading
> all of the records in the source file to exclude them. I would like a
> better approach, if there is one.


I realize this is probally late, but I am just now reading last weeks
e-mail. I have to stop
taking all those vacations!! :-)

Try
FCOPY FROM=(ksamfile);TO=(ksamfile,ksamkeyfile);SUBSET=1,0;NEW

The command will copy the structure to a new empty file, including the key
file.

Rick 'whew!! only 277 more messages to go' Clark
P/A for WW&R
Cleveland, Ohio