CSPro Users Forum

Hi,

I found that it is not possible to store any information after the 16th digits into parameter in pff file.

xparamet[17:1] = edit( "9", Change ); {if this is a revisit}

did i do anything wrong?

best regards

Jing



functions related:

{Initial lines for PFF files, since all applications are of data entry type the first lines are the same for most of them}
function InitPFF()
setfile( PIFfile, concat( strip(DirEntry), "\", strip(EntryEnt), ".pff" ) );
FileDelete( PIFfile );
FileWrite( PIFfile, "[Run Information]" );
FileWrite( PIFfile, "Version=CSPro 6.1" );
FileWrite( PIFfile, "AppType=Entry" );
FileWrite( PIFfile, " " );
FileWrite( PIFfile, "[DataEntryInit]" );
FileWrite( PIFfile, "Fullscreen=Yes" );
FileWrite( PIFfile, "NoFileOpen=Yes" );
FileWrite( PIFfile, "Interactive=Both,Lock" );
FileWrite( PIFfile, concat( "OperatorID=", ThisDeviceCode ));
end;

{Generates a PFF file for data entry}
function GenPFF ( QuesType, SavPart, ReVisit, Change )
GenDataFName(QuesType);
InitPFF();
if chkDFexist(QuesType) = 0 then
//xAddMode = 1;
FileWrite( PIFfile, concat( "StartMode=ADD;", strip(xCase) ));
elseif chkDFexist(QuesType) = 1 then
if chkCase(QuesType) = 0 then
//xAddMode = 1;
FileWrite( PIFfile, concat( "StartMode=ADD;", strip(xCase) ));
elseif chkCase(QuesType) = 1 then
if PartialSav(QuesType) = 1 then
//xAddMode = 1;
FileWrite( PIFfile, concat( "StartMode=ADD;", strip(xCase) ));
elseif PartialSav(QuesType) in 2,0 then
//xAddMode = 0;
FileWrite( PIFfile, concat( "StartMode=MODIFY;", strip(xCase) ));
endif;
endif;
endif;
{if xAddMode = 1 then
FileWrite( PIFfile, concat( "StartMode=ADD;", strip(xCase) ));
elseif xAddMode = 0 then
FileWrite( PIFfile, concat( "StartMode=MODIFY;", strip(xCase) ));
{if SavPart = 1 then
FileWrite( PIFfile, concat( "StartMode=ADD;", strip(xCase) ));
elseif SavPart in 2,0 then
FileWrite( PIFfile, concat( "StartMode=MODIFY;", strip(xCase) ));
endif;}
endif;}
FileWrite( PIFfile, "Lock=Verify,Stats" );
FileWrite( PIFfile, " " );
FileWrite( PIFfile, "[Files]" );
FileWrite( PIFfile, concat( "Application=", strip(DirEntry), "\", strip(EntryEnt), ".ent" ));
FileWrite( PIFfile, concat( "InputData=", DataFname ));
FileWrite( PIFfile, concat( "Listing=", ListFname ) );
FileWrite( PIFfile, " " );
if ExtDict1 <> "" then
FileWrite( PIFfile, "[ExternalFiles]" );
FileWrite( PIFfile, concat( strip(ExtDict1), "=", strip(DirWrkprj), "\", strip(ExtPath1) ));
if ExtDict2 <> "" then
FileWrite( PIFfile, concat( strip(ExtDict2), "=", strip(DirWrkprj), "\", strip(ExtPath2) ));
if ExtDict3 <> "" then
FileWrite( PIFfile, concat( strip(ExtDict3), "=", strip(DirWrkprj), "\", strip(ExtPath3) ));
endif;
endif;
endif;
{Customize parameters for different types of data entry modes}

xparamet[1:1] = DataFcodes[QuesType:1]; {H/I data entry}
xparamet[2:3] = strip(ThisDeviceCode); {This device code}
xparamet[5:3] = strip(xCluster); {Cluster ID}
xparamet[8:5] = strip(xHousehold); {Household ID}
xparamet[13:2] = strip(xRSI); {RSI roster ID}
xparamet[15:1] = edit( "9", SavPart ); {case saved partially}
xparamet[16:1] = edit( "9", ReVisit ); {to run modify mode}
xparamet[17:1] = edit( "9", Change ); {if this is a revisit}
FileWrite( PIFfile, " " );
FileWrite( PIFfile, "[Parameters]" );
FileWrite( PIFfile, concat( "Parameter=", xparamet ));
close( PIFfile );
end;

hi,

problem solved, stupid error made.

Thanks!!

best

Jing