Hello All-

There is a requirement to remove the personal information (Per1, Per2, Per3 and Per4) contained in the table.

The above four fields can be space filled to remove the current data that is in the fields.

Please can anyone suggest me the best way to perform the task.

Thanks in advance...

Best Regards,
Poryes

This message has been edited. Last edited by: Kerry,

Hi,

You can try MODIFY for this...
something like this...

MODIFY FILE FName
FIXFORM FROM HOLD
MATCH KEYFLD
ON NOMATCH REJECT
ON MATCH UPDATE FLD1 FLD2..
DATA ON HOLD
END

the hold file should contain the flds in the table ...only replace the 4 flds you want to modify with computes which have blanks...

hope this helps

thanks
Sashanka

If the table is a single segment table, then TABLE all but the Per columns out, DEFINE empty ones, and then you can recreate the FOCUS DB and load it.

You could also NEXT through the table one record at a time and compute the fields to blank and update them.

Sashanka's method or this one will work, all depends on the data, number of records, etc.

As mentioned in this forum before, there are many ways to skin a FOCUS DB.

Thanks Sashanka/Waz.

Yes, Its a single segment table.

Could you please elaborate more in detail.
Thanks in advance...

The MAINTAIN product was created to Update, Include and Delete data. In this case you could do:

MAINTAIN FILE filename
For all next KeyField into Stk
Compute i/i2=1;
Repeat Stk.FocCount
Compute Stk(i).Per1 = ' ';
Compute Stk(i).Per2 = ' ';
Compute Stk(i).Per3 = ' ';
Compute Stk(i).Per4 = ' ';
Compute i=i+1;
Endrepeat
For all Update Per1 Per2 Per3 Per4 from stk
END

That would do it.

Mark

quote:

The MAINTAIN product was created to Update, Include and Delete data.

True Mark, but folks should be aware that this requires a licence?

T

Mark,

I'm receiving the below error while using the MAINTAIN.

(FOC03601) ERROR AT OR NEAR LINE 5 IN PROCEDURE TESTFEX FOCEXEC *
(FOC03610) Per1 is not a field in (or member of) type _STK.

Below is the code I used.

MAINTAIN FILE Testfile
FOR ALL NEXT per1 per2 per3 per4 INTO STK
COMPUTE I/I2 =1;
REPEAT STK.FOCCOUNT
COMPUTE STK(I).Per1= ' ';
COMPUTE STK(I).Per2= ' ';
COMPUTE STK(I).Per3= ' ';
COMPUTE STK(I).Per4= ' ';
Compute i=i+1;
ENDREPEAT
END

This message has been edited. Last edited by: Poryes,

Is Per1 the name of the field in our Master? Make sure the field names in the code exactly match the field names in the Master. Make sure the field names in the Master are in upper case. If you are still getting an error, post the Master File Description.

Mark

as Francis says, if you have a licence for Maintain, then go for it.

Otherwise, I would suggest using MODIFY.

e.g.

MODIFY FILE {Master}
NEXT {Key(s)}
ON NEXT COMPUTE {Field}=' ';
ON NEXT UPDATE {Field}
ON NONEXT REJECT
DATA
END

Thank you Mark/Waz.

Mark, I corrected the MF descrption and working fine with out issue.

Waz, Thanks for the alternate method.

I'm started learning how to approach the problems in different methods.

Glad to help.

But trying not to sound repetitive, make sure you are licenced for Maintain. You wouldn't want IBI to do a site review and find your using something your not supposed to.