DECLARE

PARAMID PARAMLIST;

BEGIN

PARAMID :=CREATE_PARAMETER_LIST(‘TEMP’);

ADD_PARAMETER(PARAMID,’PARAMFORM’,TEXT_PARAMETER,’NO’);

ADD_PARAMETER(PARAMID,'p_doc_type',TEXT_PARAMETER,:BCD_ICT_TOUR_VW_07_2019_HO.inv_doc_type);
ADD_PARAMETER(PARAMID,'p_doc_no',TEXT_PARAMETER,:BCD_ICT_TOUR_VW_07_2019_HO.INVOICE);
ADD_PARAMETER(PARAMID,'p_to_docno',TEXT_PARAMETER,:BCD_ICT_TOUR_VW_07_2019_HO.INVOICE);
ADD_PARAMETER(PARAMID,'p_fdate',TEXT_PARAMETER,to_date('01/01/2000','DD/MON/YYYY'));
ADD_PARAMETER(PARAMID,'p_tdate',TEXT_PARAMETER,to_date('31/12/2050','DD/MON/YYYY'));

message(:BCD_ICT_TOUR_VW_07_2019_HO.inv_doc_type);
message(:BCD_ICT_TOUR_VW_07_2019_HO.invoice);
message(to_date('01/01/2000','DD/MON/YYYY'));


ADD_PARAMETER(PARAMID,’DESTYPE’,TEXT_PARAMETER,’SCREEN’); 

RUN_PRODUCT(REPORTS,’z:\fmxs\high07.rep’,SYNCHRONOUS,RUNTIME,FILESYSTEM,PARAMID); 

IF NOT(ID_NULL(PARAMID)) THEN

DESTROY_PARAMETER_LIST(PARAMID);

END IF;

END;



DECLARE

PARAMIDinv PARAMLIST;

BEGIN

PARAMIDinv :=CREATE_PARAMETER_LIST('TEMPinvcall');

ADD_PARAMETER(PARAMIDinv,'PARAMFORM',TEXT_PARAMETER,'NO');

ADD_PARAMETER(PARAMIDinv,'p_doc_type',TEXT_PARAMETER,:BCD_ICT_TOUR_VW_07_2019_HO.inv_doc_type);
ADD_PARAMETER(PARAMIDinv,'p_doc_no',TEXT_PARAMETER,:BCD_ICT_TOUR_VW_07_2019_HO.INVOICE);
ADD_PARAMETER(PARAMIDinv,'p_to_docno',TEXT_PARAMETER,:BCD_ICT_TOUR_VW_07_2019_HO.INVOICE);
ADD_PARAMETER(PARAMIDinv,'p_fdate',TEXT_PARAMETER,to_date('01/01/2000','DD/MON/YYYY'));
ADD_PARAMETER(PARAMIDinv,'p_tdate',TEXT_PARAMETER,to_date('31/12/2050','DD/MON/YYYY'));

ADD_PARAMETER(PARAMIDinv,'DESTYPE',TEXT_PARAMETER,'SCREEN'); 

RUN_PRODUCT(REPORTS,'z:\fmxs\high07.rep',SYNCHRONOUS,RUNTIME,FILESYSTEM,PARAMIDinv); 

--IF NOT(ID_NULL(PARAMIDinv)) THEN

DESTROY_PARAMETER_LIST(PARAMIDinv);

--END IF;

END;