$PBExportHeader$f_retrieve_dw.srf
global type f_retrieve_dw from function_object
end type

forward prototypes
global function integer f_retrieve_dw (datawindow arg_dw, s_rpt_print_msg arg_print_msg)
end prototypes

global function integer f_retrieve_dw (datawindow arg_dw, s_rpt_print_msg arg_print_msg);//dw_retrieve
Int i = 0

CHOOSE CASE arg_print_msg.retr_pram_falg
	CASE -1
		arg_dw.Retrieve()
	CASE 0 //SHARE DATAWINDOW
		DATAWINDOW LS_DW
		LS_DW = arg_print_msg.SHARE_DW
		LS_DW.ShareData(arg_dw)
	CASE 1 //ONE STRING PRAM
		arg_dw.Retrieve(arg_print_msg.retr_pramstr)
	CASE 2 //ONE NUMBER PRAM
		arg_dw.Retrieve(arg_print_msg.retr_pramnmb)
		//retrieveid = arg_print_msg.retr_pramnmb
	CASE 3 //ONE DATE PRAM
		arg_dw.Retrieve(arg_print_msg.retr_pramfd)
	CASE 4 //TWO DATE PRAM
		arg_dw.Retrieve(arg_print_msg.retr_pramfd,arg_print_msg.retr_pramed)
	CASE 5 //TWO NUMBER PRAM
		arg_dw.Retrieve(arg_print_msg.retr_pramnmb,arg_print_msg.b_long)
	CASE 6 //TWO DATETIME PRAM
		arg_dw.Retrieve(arg_print_msg.retr_pramfdt,arg_print_msg.retr_pramedt)
	CASE 11 //scid string
		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramstr)
	CASE 12 //scid long
		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramnmb)
	CASE 13 //scid long and TWO NUMBER PRAM
		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramnmb,arg_print_msg.b_long)
	CASE 14 //ONE NUMBER PRAM and ONE STRING PRAM
		arg_dw.Retrieve(arg_print_msg.retr_pramnmb,arg_print_msg.retr_pramstr)
	CASE 15 //scid long and TWO NUMBER PRAM and null_row
		i = 1
		DO WHILE arg_print_msg.printrow * i < arg_print_msg.rowcnt
			i++
		LOOP
		arg_print_msg.nullrow = arg_print_msg.printrow * i - arg_print_msg.rowcnt
		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramnmb,arg_print_msg.printrow,arg_print_msg.nullrow)
	CASE ELSE
		arg_dw.Retrieve()
END CHOOSE
IF arg_print_msg.retr_pram_falg <> 0 THEN
	arg_dw.SetFilter(arg_print_msg.FILTER_STRING)
	arg_dw.Filter()
END IF

RETURN 0
end function