array 用法、name_in、find_item用法

declare
    v_conditions  varchar2(2000);
    v_con  varchar2(10) :=':control.';
    v_block varchar2(30) :='WSHR_VIEW_EMP_BASEQUERY.';
    v_temp varchar2(50):=null;
    v_temp1 Item;  --item 類型
      
    type pos_x_array is table of varchar2(200) --or number 類型
    index by binary_integer;
        
    posx pos_x_array;
begin     
    :parameter.V_POSX:=0;
            
    posx(1):='EMP_NAME_ENG';
    posx(2):='EMP_ID';
    posx(3):='EMP_NAME_CHN';
    posx(4):='DEPT_ID';
    posx(5):='SEX';
    posx(6):='EMP_HDR_DATE';
    posx(7):='PROBATION';
    posx(8):='CON_ID';
    posx(9):='CON_START_DATE';
    posx(10):='ID_NO';
    posx(11):='JOB_ID';
    posx(12):='GEN_LEVEL';
    posx(13):='STAFF';
    posx(14):='ISSUE_DATE';
    posx(15):='ISSUE_DEPT';
    posx(16):='EFFECTIVE_DATE';
    posx(17):='EMP_HDR_FLAG';
    posx(18):='BRITH_DATE';
    posx(19):='PROVINCE';                
            
         for i in 1..posx.count loop
                 v_temp:=v_con||posx(i);
           if name_in(v_temp)    ='Y' then    --name_in : 取字符串類型block colum 的值 ':control.emd_name'的值
                  v_temp1:=find_item(v_block||posx(i)); --find_item : 取字符串類型block colum的names
                  set_item_property(v_temp1,X_POS,:parameter.V_POSX);            
                 :parameter.V_POSX:=:parameter.V_POSX+1;
                -- FND_message.debug(':parameter.V_POSX='||:parameter.V_POSX);                       
          end if;
         end loop;
end;