Elephant11

파워빌더에서 프로시져 등록하지 않고 바로 호출하기.










Oracle
______________________________________________________________________________
ls_sql ='EXECUTE SP_aaa(?,?,?,?,?,?)'
DECLARE splcall1 DYNAMIC PROCEDURE FOR SQLSA;
PREPARE SQLSA FROM :ls_sql USING sqlca;
EXECUTE DYNAMIC splcall1 USING :ls_a, :ls_b, :ls_c, :ls_d, :ls_e, :ls_f;
FETCH splcall1 INTO :ll_g, :ls_h;
-------------------------------------------------------------------------------


DB2
______________________________________________________________________________
ls_sql =" CALL CLVDTALB.SVIR02C0(?,?,?)"
DECLARE splcall1 DYNAMIC PROCEDURE FOR SQLSA;
PREPARE SQLSA FROM :ls_sql USING sqlca;
EXECUTE DYNAMIC splcall1 USING :ls_sdt_fr, :gs_emp_no, :ls_temp;
______________________________________________________________________________

JOIN TLVDTALB.PF_EMPLOYEE B ON ( :arg_knm = '%' AND A.F26CNO = B.EMP_CODE
OR (:arg_knm <> '%' AND A.F26CNO = B.EMP_CODE AND B.EMP_NAME LIKE
'%'||VALUE(:arg_knm,'%')||'%')

%를 패러미터로 넘길경우 에러가 발생할 수 있다.
그러면 변수를 VALUE(변수)로 감싸주면 해결이 된다.

integer li_Line, li_Rtn, li_Index
string ls_File, ls_Line

ls_File = "C:\Test.txt"
li_Line = FileOpen(ls_File, LineMode!) 

li_Index = 0 
do while li_Index > -1

     li_Rtn = FileRead(li_Line, ls_Line)  //FileReadEx

     choose case li_Rtn 
          case is > 0 
          li_Index ++ 
          MessageBox('Msg', ls_Line)
     case 0, -100
          li_Index = -1 
     case -1 
          li_index = -1
     end choose 
loop 

FileClose(li_Line)
MessageBox('Msg', 'End!!')