_set_irf_vars.ado

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.0  03jan2005
program define _set_irf_vars

	version 9
	
	syntax , DIALOGname(string)	  /// Name of the dialog
		   IMPULSEtarget(string)  /// Name of impulse target
		   RESPONSEtarget(string) /// Name of response target
		   BUSYflag(string)	  /// Flag created by the caller
		[  IMPULSEVALue(string)   /// Currently selected value
		   RESPONSEVALue(string)  /// Currently selected value
		   LISTcontrol(string)	  /// Name of dialog contol
		   IRFNAMEs(string)	  /// An alternative to getting the 
		   			  ///    value from the LISTcontrol
		]
	
	
	// handle possible windows 98 naming
	if "`.`dialogname'_dlg.isa'" != "class" {
		local dialogname `"`dialogname'_98"'
		if "`.`dialogname'_dlg.isa'" != "class" {
			local dialogname `"`dialogname's"'
		}
	}
	if "`.`dialogname'_dlg.isa'" != "class" {
		display "`dialogname'_dlg"  `.`dialogname'_dlg.isa'"
		display as error "Invalid dialog name specified"
		exit 198
	}	
	
	local dialog "`dialogname'_dlg"
	.`dialog'.`busyflag'.settrue	
	   
	// handle list of irf names (could be one or more)
	local irfnames : list uniq irfnames
	
	foreach irf_name of local irfnames {	   
		// get the list of vars for an irf name
	        local vars "`vars' `.`dialog'.irfList.getIrfVarsByName, name(`irf_name')'"
	}
	local vars : list uniq vars
	    
	
	.list = .dynamic_list_control.new, dialog(`dialogname') control(`impulsetarget')
	.list.setList, newlist("`vars'") value("`impulsevalue'")
	
	.list = .dynamic_list_control.new, dialog(`dialogname') control(`responsetarget')
	.list.setList, newlist("`vars'") value("`responsevalue'")	
	
	.`dialog'.`busyflag'.setfalse
end
exit