problems in creating si.env

Hello folks,

one strange behavior is observed while creating netlist cdl file...when am creating si. Env file. am running the script through GUI after run completes.. SIM cell name is coming Null.

after that , when am closing my gui...CIW struck for few seconds and si.env file gets updated..and this time... simLibName comes NULL.

below code am using.

lib_view_Label=hiCreateLabel(
?name 'lib_view_Label
?labelText "Library Name*"
?justification 'left
)
lib_view_Entry=hiCreateStringField(
?name 'lib_view_Entry
?enabled nil
?callback "runCDLout(hiGetCurrentForm())"
)

cellLabel=hiCreateLabel(
?name 'cellLabel ?labelText "Cell Name*"
?justification 'left
)
Topcell=hiCreateStringField(
?name 'Topcell
?value ""
)

browse=hiCreateButton(
?name 'browse
?buttonText "Browse..."
?callback "(ddsSyncWithForm (hiGetCurrentForm) 'browse 'lib_view_Entry 'Topcell )"

procedure(runCDLout(form)
printf("%s %s" form->lib_view_Entry->value form->Topcell->value)
prog(
(op id )
;;create si.env file
op = outfile("./si.env" "w");
fprintf(op sprintf(nil "simLibName = \"%s\" \nsimCellName = \"%s\" \n" form->lib_view_Entry->value form->Topcell->value))
fprintf(op "simViewName = \"schematic\" \n")
fprintf(op "simSimulator = \"auCdl\" \n")
fprintf(op "simNotIncremental = nil\n")
fprintf(op "simReNetlistAll = 't\n")
fprintf(op "simViewList = '(\"auCdl\" \"schematic\" \"symbol\")\n")
fprintf(op "simStopList = '(\"auCdl\")\n")
fprintf(op "hnlNetlistFileName = \"%s.cdl\"\n" form->Topcell->value)
fprintf(op "resistorModel = \"\"\n")
fprintf(op "shortRES = 2000.0\n")
fprintf(op "preserveRES = 't\n")
fprintf(op "checkRESVAL = 't\n")
fprintf(op "checkRESSIZE = 'nil\n")
fprintf(op "preserveCAP = 't\n")
fprintf(op "checkCAPVAL = 't\n")
fprintf(op "checkCAPAREA = 'nil\n")
fprintf(op "preserveDIO = 't\n")
fprintf(op "checkDIOAREA = 't\n")
fprintf(op "checkDIOPERI = 't\n")
fprintf(op "checkCAPPERI = 'nil\n")
fprintf(op "simPrintInhConnAttributes = 'nil\n")
fprintf(op "checkScale = \"micron\"\n")
fprintf(op "checkLDD = 'nil\n")
fprintf(op "pinMAP = 't\n")
fprintf(op "preserveBangInNetlist = 'nil\n")
fprintf(op "shrinkFACTOR = 0.0\n")
fprintf(op "globalPowerSig = \"\"\n")
fprintf(op "globalGndSig = \"\"\n")
fprintf(op "displayPININFO = 't\n")
fprintf(op "preserveALL = 't\n")
fprintf(op "setEQUIV = \"\"\n")
fprintf(op "incFILE = \"\"\n")
fprintf(op "auCdlDefNetlistProc = ansCdlSubcktCall")
fprintf(op "incFILE=\"\" \n")
fprintf(op "setEQUIV=\"\" \n")

close(op)

id = ipcBeginProcess("si -batch -command netlist");
ipcWait(id);
;system("si -batch -command netlist > si.log");
);end prog
)

Please Guide what the error and how i can correct it.

Thanks in advance!