function fnOCDATA()
{
	fnClear();
	document.getElementById("dspl01").style.display="block";
	document.getElementById("dspl01").innerHTML="OCDATA";
	document.getElementById("dspl03").style.display="block";
	fnOCDATAScript();
}
function fnOCDATAScript()
{
	var strTempSet="";
	var strTempGet="";	
	var strOcDataName=document.getElementById("ocDataName").value;
	strScript="OCDATA_CoCreate(Name:'"+strOcDataName+"' Type:'"+document.getElementById("ocDataType").value+"'";
	if(document.getElementById("ocDataKeyLeng").value!=0)
	{
		strScript += " KeyLeng:"+document.getElementById("ocDataKeyLeng").value;
		strTempSet += "OCDATA_ItemAdd(Key:TX???);<br />";
		strTempGet += "TX???=OcData_ItemKey();<br />";
	}
	var nums=document.getElementById("ocDataNums").value;
	if(nums!=0)
	{
		strScript += " Nums:"+document.getElementById("ocDataNums").value;
		for(i=1;i<=nums;i++)
		{
			strTempSet += "OcData_DeSet(DeNum:"+i+" Value:WK???);<br />";
			strTempGet += "WK???=OcData_NumDe(DeNum:"+i+");<br />";
		}
	}
	var TX10s=document.getElementById("ocData10s").value;
	if(TX10s!=0)
	{
		strScript += " TX10s:"+document.getElementById("ocData10s").value;
		for(i=0;i<TX10s;i++)
		{
			strTempSet += "OcData_DeSet(DeNum:"+(i+500)+" Value:TX???);<br />";
			strTempGet += "TX???=OcData_De(DeNum:"+(i+500)+");<br />";
		}
	}
	var TX40s=document.getElementById("ocData40s").value;
	if(TX40s!=0)
	{
		strScript += " TX40s:"+document.getElementById("ocData40s").value;
		for(i=0;i<TX40s;i++)
		{
			strTempSet += "OcData_DeSet(DeNum:"+(i+600)+" Value:TX???);<br />";
			strTempGet += "TX???=OcData_De(DeNum:"+(i+600)+");<br />";
		}
	}
	var TX200s=document.getElementById("ocData200s").value;
	if(document.getElementById("ocData200s").value!=0)
	{
		strScript += " TX200s:"+document.getElementById("ocData200s").value;
		for(i=0;i<TX200s;i++)
		{
			strTempSet += "OcData_DeSet(DeNum:"+(i+700)+" Value:TX???);<br />";
			strTempGet += "TX???=OcData_De(DeNum:"+(i+700)+");<br />";
		}
	}
	strScript += ");<br />";
	if(strTempSet!="")
	{
		strTempSet += "OcData_ItemUpdate();<br /><br />";
		strTempSet += "OCDATA_ItemView(Name:'"+strOcDataName+"');<br />";
		strTempSet += "LOOP WHILE OcData_ItemNext(Name:'"+strOcDataName+"');<br />";
		strTempSet += strTempGet;
		strTempSet += "ENDLOOP;<br /><br />"
	}
	
	strScript += strTempSet;

	strScript += "OCDATA_CoDestroy(NAME:'"+strOcDataName+"');";
	document.getElementById("CodeScript").innerHTML=strScript;
}