Dear Greg,

Suprtool will take care of this nicely:

:run suprtool.pub.robelle
>input somefile
>numrecs 0
>output ksamfile,erase
>exit

Hope this helps.

Sincerely,

Neil Armstrong
Programmer, R & D Robelle Consulting Ltd.



-----Original Message-----
From: Stigers, Greg ~ AND <[log in to unmask]>
To: [log in to unmask] <[log in to unmask]>
Date: Thursday, January 22, 1998 8:30 AM
Subject: Emptying an NM KSAM file


>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.
>