ntr등록 안하고 프로시저 실행 시킬때_제대로 작동 안할때

완료 메세지만 뜨고 실제로 프로그램 동작 안했을 경우

grant all on PA_PROFIT_DATA_CREATE to public 으로 권한을 준다(실행권한만 따로 줘도 된다)

crate public synonym PA_PROFIT_DATA_CREATE  for swg.PA_PROFIT_DATA_CREATE 도 같이 준다(요건 SYSTEM계정으로 실행)




[[파워빌더 소스]]
String Err
String Errmsg = space(100)  

DECLARE calc1_proc PROCEDURE FOR
        PA_PROFIT_DATA_CREATE.SP_PROFIT_01(:gs_company, :ls_yymm, :gs_userid) ;    
EXECUTE calc1_proc;

// err code와 err msg select
SELECT to_number(PA_PROFIT_DATA_CREATE.SF_PROFIT_DATA('1')), PA_PROFIT_DATA_CREATE.SF_PROFIT_DATA('2')
  INTO :ld_Return, :ls_msg
  FROM DUAL ;

IF ld_Return <> 0 THEN
 ROLLBACK;
 MessageBox("실행오류", Trim(ls_msg))
 RETURN 
ELSE
 COMMIT;
END IF