PRE-QUERY (Block level - Parameter code to accommodate WHEN-BUTTON-PRESSED;

begin
if :global.first_time = 1 then
set_block_property('RR_EMPLOYER_CC_VW1',ORDER_BY,'COMPANY_NAME asc');
else
IF :PARAMETER.BLOCK_ORDER_BY = 'DESC' THEN
:PARAMETER.BLOCK_ORDER_BY := 'ASC';
ELSIF :PARAMETER.BLOCK_ORDER_BY = 'ASC' THEN
:PARAMETER.BLOCK_ORDER_BY := 'DESC';
ELSE
--:PARAMETER.FIELD_ORDER_BY := 'JOB_ORDER_ID';
:PARAMETER.BLOCK_ORDER_BY := 'DESC';
END IF;
set_block_property('RR_EMPLOYER_CC_VW1',ORDER_BY,:PARAMETER.FIELD_ORDER_BY||' '||
:PARAMETER.BLOCK_ORDER_BY);
end if;
end;

WBP
COMPANY_NAME


begin
COPY('COMPANY_NAME','PARAMETER.FIELD_ORDER_BY');
:global.first_time := 0;
go_block('RR_EMPLOYER_CC_VW1');
EXECUTE_QUERY;
end;



RR_SEQ_ID
begin
COPY('substr(rrid, 11, 4)','PARAMETER.FIELD_ORDER_BY');--SUJIT (CSR 9897, WR 6388 IR 4644)
:global.first_time := 0;
go_block('RR_EMPLOYER_CC_VW1');
EXECUTE_QUERY;
end;