I encountered a problem when I tried to prevent cases deletion in csdb.
I've checked the examples in this forum. So far, all examples are for two or more level applications.
Could I use the Lock = Delete for my one level application?
Here is my script:
Code: Select all
PROC GLOBAL
file PFFName;
function StartWork()
setfile(PFFName, "dummy\test_char.pff", create);
filedelete(PFFName);
filewrite(PFFName, "[Run Information]");
filewrite(PFFName,"Version = CSPro 7.1");
filewrite(PFFName,"AppType = Entry");
//filewrite(PFFName,"Description = My Survey");
filewrite(PFFName,"");
filewrite(PFFName,"[DataEntryInit]");
filewrite(PFFName,"Lock = Delete,Stats");
filewrite(PFFName,"Interactive = Ask");
filewrite(PFFName,"");
filewrite(PFFName,"[Files]");
filewrite(PFFName,"Application = .\test_char.ent");
filewrite(PFFName,"InputData = .\test_char.csdb");
filewrite(PFFName,"");
close(PFFName);
execpff("dummy\test_char.pff");
stop(1);
end;
PROC TEST_CHAR_FF
preproc
StartWork();
Kindly please help me.
Thank you before and after.
Regards,
lusia