PowerBuilder ntr등록 안하고 Package실행하기~

 DECLARE calcu_proc1 PROCEDURE FOR
  PA_20001.sp_20001('1', '1', :ls_Now_Month, :gs_company, :gs_userid, &
       :current_dt, :gs_ip_add );

 EXECUTE calcu_proc1;
 
 

 

SELECT PA_20001.SF_sp_20001_10('1'),  PA_20001.SF_sp_20001_10('2')
   INTO :Err, :ErrMsg
   FROM dual;

 

 IF Integer(Err) <> 0 THEN
  rollback;
  MessageBox("오류", Trim(Errmsg))
  ls_check = '0'
  dw_entry.object.info_1[1] = '오류'
 ELSE
  COMMIT;
  dw_entry.object.info_1[1] = '완성'
 END IF