[SYS21] Re: [SYS21] Company Deletion

[Gary.Brown@xxxxxxxxxxxxxxxxxxxx]

I have found the best way to 'getting rid of' a company is to write a CL as
follows.

Create a disc file of all files in the libruary using DSPOBJD

Use the RCVF command to read a record from this file, if the object attribute =
PF then

Use the CPYF command to copy all records from the file to a tempory file but
exclude the company you are wanting to delete (using the IF function on the CPYF
command)

CLRPFM the file

Copy the temp file back to live file using CPYF

Loop back and read the next record.

Email me off list if you would like a copy of the CL.

Regards,
Gary.