svyset.dlg

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

	}
	if has_stage14 {
		call more.tx_stage14.show
		call more.vn_str14.show
		call more.vn_su14.show
		call more.vn_fpc14.show
	}
	if !has_stage14 {
		call more.tx_stage14.hide
		call more.vn_str14.hide
		call more.vn_su14.hide
		call more.vn_fpc14.hide
	}
	if has_stage15 {
		call more.tx_stage15.show
		call more.vn_str15.show
		call more.vn_su15.show
		call more.vn_fpc15.show
	}
	if !has_stage15 {
		call more.tx_stage15.hide
		call more.vn_str15.hide
		call more.vn_su15.hide
		call more.vn_fpc15.hide
	}
	if has_stage16 {
		call more.tx_stage16.show
		call more.vn_str16.show
		call more.vn_su16.show
		call more.vn_fpc16.show
	}
	if !has_stage16 {
		call more.tx_stage16.hide
		call more.vn_str16.hide
		call more.vn_su16.hide
		call more.vn_fpc16.hide
	}
	if has_stage17 {
		call more.tx_stage17.show
		call more.vn_str17.show
		call more.vn_su17.show
		call more.vn_fpc17.show
	}
	if !has_stage17 {
		call more.tx_stage17.hide
		call more.vn_str17.hide
		call more.vn_su17.hide
		call more.vn_fpc17.hide
	}
END

DIALOG weights, label("") tabtitle("Weights")
BEGIN
  // NOTE: This EDIT control is used to activate the currently svyset weight
  // type RADIO.  It should be invisible.
  EDIT     ed_wtype  0         0         0         0,		///
  	default(char _dta[_svy_wtype])				///
	nomemory

  TEXT     tx_wgttyp _lft      _top      _cwd1     .,		///
	label("Weight type:")

  BUTTON   bu_help   _xsetbu   @         _setbuwd  .,		///
	label("Help Weights...")				///
	push(script help4wgt)

  RADIO    rb_none   _lft      _ss       _iwd      ., 		///
	first 							///
	label("None")						///
	clickon("program wgt_off")				///
	option(NONE)

  RADIO    rb_pw     _lft      _ms       _iwd      .,		///
	label("Sampling weight variable")			///
	clickon(program wgt_on)

  RADIO    rb_iw     _lft      +45       _iwd      ., 		///
	label("Importance weight variable (rare)")		///
	clickon(program wgt_on)					///
	last

  VARNAME  vn_pw     _rbsep    -25       _vnwd     .,		///
	label("Sampling weight variable")			///
	default(char _dta[_svy_wvar])				///
	nomemory						///
	option(pweight)

  VARNAME  vn_iw     @         +45       _vnwd     .,		///
	label("Importance weight variable (rare)")		///
	default(char _dta[_svy_wvar])				///
	nomemory						///
	option(iweight)

  TEXT     tx_brr    _lft      _ls       _iwd      ., 		///
	label("Balanced repeated replicate (BRR) weight variables:")

  VARLIST  vl_brr    @         _ss       @         .,		///
	label("Balanced repeated replicate weight variables")	///
	default(char _dta[_svy_brrweight])			///
	nomemory						///
	option(brrweight)

  TEXT      tx_jkr   _lft      _ls       _iwd      ., 		///
	label("Jackknife replicate weight variables:")

  VARLIST  vl_jkr    @         _ss       @         .,		///
	label("Jackknife weight variables")			///
	default(char _dta[_svy_jkrweight])			///
	nomemory						///
	option(jkrweight)

END

SCRIPT help4wgt
BEGIN
	view help svyweights##|_new
END

PROGRAM wgt_off
BEGIN
	call gaction weights.vn_pw.disable
	call gaction weights.vn_iw.disable
END

PROGRAM wgt_on
BEGIN
	call program wgt_off
	if weights.rb_pw {
		call gaction weights.vn_pw.enable
	}
	if weights.rb_iw {
		call gaction weights.vn_iw.enable
	}
END

INCLUDE svy_se

DIALOG post, label("") tabtitle("Poststratification")
BEGIN
  TEXT     tx_posts  _lft      _top      _cwd3_1   .,		///
	label("Poststrata:")

  VARNAME  vn_posts  @         _ss       _vnwd     .,		///
	label("Poststrata")					///
	option("poststrata")					///
	default(char _dta[_svy_poststrata])			///
	nomemory

  TEXT     tx_postw  _lft3_2   _top      _cwd3_1   .,		///
	label("Poststratum weights:")

  VARNAME  vn_postw  @         _ss       _vnwd     .,		///
	label("Poststratum weights")				///
	option("postweight")					///
	default(char _dta[_svy_postweight])			///
	nomemory
END

SCRIPT POSTINIT
BEGIN
	script svy_se_IS_SVYSET
END

PROGRAM stage1_output
BEGIN
	if has_stage2 {
		require main.vn_su1
	}
	if main.vn_su1 {
		put main.vn_su1
	}
	if !main.vn_su1 {
		put "_n"
	}
	if weights.rb_pw {
		require weights.vn_pw
		weight weights.vn_pw weights.vn_pw
	}
	if weights.rb_iw {
		require weights.vn_iw
		weight weights.vn_iw weights.vn_iw
	}
	beginoptions
		optionarg main.vn_str1
		optionarg main.vn_fpc1
		if post.vn_posts | post.vn_postw {
			require post.vn_posts
			require post.vn_postw
			optionarg post.vn_posts
			optionarg post.vn_postw
		}
		optionarg weights.vl_brr
		optionarg weights.vl_jkr
		put " " /program svy_se_output
	endoptions
END

PROGRAM stage2_output
BEGIN
	if has_stage2 {
		put "|| "
		if has_stage3 {
			require main.vn_su2
		}
		if main.vn_su2 {
			put main.vn_su2
		}
		if !main.vn_su2 {
			put "_n"
		}
		beginoptions
			optionarg main.vn_str2
			optionarg main.vn_fpc2
		endoptions
	}
END

PROGRAM stage3_output
BEGIN
	if has_stage3 {
		put "|| "
		if has_stage4 {
			require main.vn_su3
		}
		if main.vn_su3 {
			put main.vn_su3
		}
		if !main.vn_su3 {
			put "_n"
		}
		beginoptions
			optionarg main.vn_str3
			optionarg main.vn_fpc3
		endoptions
	}
END

PROGRAM stage4_output
BEGIN
	if has_stage4 {
		put "|| "
		if has_stage5 {
			require main.vn_su4
		}
		if main.vn_su4 {
			put main.vn_su4
		}
		if !main.vn_su4 {
			put "_n"
		}
		beginoptions
			optionarg main.vn_str4
			optionarg main.vn_fpc4
		endoptions
	}
END

PROGRAM stage5_output
BEGIN
	if has_stage5 {
		put "|| "
		if has_stage6 {
			require main.vn_su5
		}
		if main.vn_su5 {
			put main.vn_su5
		}
		if !main.vn_su5 {
			put "_n"
		}
		beginoptions
			optionarg main.vn_str5
			optionarg main.vn_fpc5
		endoptions
	}
END

PROGRAM stage6_output
BEGIN
	if has_stage6 {
		put "|| "
		if has_stage7 {
			require main.vn_su6
		}
		if main.vn_su6 {
			put main.vn_su6
		}
		if !main.vn_su6 {
			put "_n"
		}
		beginoptions
			optionarg main.vn_str6
			optionarg main.vn_fpc6
		endoptions
	}
END

PROGRAM stage7_output
BEGIN
	if has_stage7 {
		put "|| "
		if has_stage8 {
			require main.vn_su7
		}
		if main.vn_su7 {
			put main.vn_su7
		}
		if !main.vn_su7 {
			put "_n"
		}
		beginoptions
			optionarg main.vn_str7
			optionarg main.vn_fpc7
		endoptions
	}
END

PROGRAM stage8_output
BEGIN
	if has_stage8 {
		put "|| "
		if has_stage9 {
			require main.vn_su8
		}
		if main.vn_su8 {
			put main.vn_su8
		}
		if !main.vn_su8 {
			put "_n"
		}
		beginoptions
			optionarg main.vn_str8
			optionarg main.vn_fpc8
		endoptions
	}
END

PROGRAM stage9_output
BEGIN
	if has_stage9 {
		put "|| "
		if has_stage10 {
			require more.vn_su9
		}
		if more.vn_su9 {
			put more.vn_su9
		}
		if !more.vn_su9 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str9
			optionarg more.vn_fpc9
		endoptions
	}
END

PROGRAM stage10_output
BEGIN
	if has_stage10 {
		put "|| "
		if has_stage11 {
			require more.vn_su10
		}
		if more.vn_su10 {
			put more.vn_su10
		}
		if !more.vn_su10 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str10
			optionarg more.vn_fpc10
		endoptions
	}
END

PROGRAM stage11_output
BEGIN
	if has_stage11 {
		put "|| "
		if has_stage12 {
			require more.vn_su11
		}
		if more.vn_su11 {
			put more.vn_su11
		}
		if !more.vn_su11 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str11
			optionarg more.vn_fpc11
		endoptions
	}
END

PROGRAM stage12_output
BEGIN
	if has_stage12 {
		put "|| "
		if has_stage13 {
			require more.vn_su12
		}
		if more.vn_su12 {
			put more.vn_su12
		}
		if !more.vn_su12 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str12
			optionarg more.vn_fpc12
		endoptions
	}
END

PROGRAM stage13_output
BEGIN
	if has_stage13 {
		put "|| "
		if has_stage14 {
			require more.vn_su13
		}
		if more.vn_su13 {
			put more.vn_su13
		}
		if !more.vn_su13 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str13
			optionarg more.vn_fpc13
		endoptions
	}
END

PROGRAM stage14_output
BEGIN
	if has_stage14 {
		put "|| "
		if has_stage15 {
			require more.vn_su14
		}
		if more.vn_su14 {
			put more.vn_su14
		}
		if !more.vn_su14 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str14
			optionarg more.vn_fpc14
		endoptions
	}
END

PROGRAM stage15_output
BEGIN
	if has_stage15 {
		put "|| "
		if has_stage16 {
			require more.vn_su15
		}
		if more.vn_su15 {
			put more.vn_su15
		}
		if !more.vn_su15 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str15
			optionarg more.vn_fpc15
		endoptions
	}
END

PROGRAM stage16_output
BEGIN
	if has_stage16 {
		put "|| "
		if has_stage17 {
			require more.vn_su16
		}
		if more.vn_su16 {
			put more.vn_su16
		}
		if !more.vn_su16 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str16
			optionarg more.vn_fpc16
		endoptions
	}
END

PROGRAM stage17_output
BEGIN
	if has_stage17 {
		put "|| "
		if more.vn_su17 {
			put more.vn_su17
		}
		if !more.vn_su17 {
			put "_n"
		}
		beginoptions
			optionarg more.vn_str17
			optionarg more.vn_fpc17
		endoptions
	}
END

PROGRAM command
BEGIN
	put "svyset "
	put " " /program stage1_output
	put " " /program stage2_output
	put " " /program stage3_output
	put " " /program stage4_output
	put " " /program stage5_output
	put " " /program stage6_output
	put " " /program stage7_output
	put " " /program stage8_output
	put " " /program stage9_output
	put " " /program stage10_output
	put " " /program stage11_output
	put " " /program stage12_output
	put " " /program stage13_output
	put " " /program stage14_output
	put " " /program stage15_output
	put " " /program stage16_output
	put " " /program stage17_output
END