FireBird Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
파이어버드 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
IBPhoenix
FireBird Main site
볼랜드포럼 광고 모집

FireBird Q&A
[1063] 인터베이스 프로시저 좀 봐주세요.
왕초보 [] 1569 읽음    2004-05-18 17:56
델5에 인터베이스 6.01 서버를 사용하고 설치후 다른작업(함수 추가 등)은 한것이 없습니다.
Ibconsole에서 Interactive SQL에서 다음프로시저를 만들었는데요.
오류가 있다고 하는데 도저히 모르겠습니다.

CREATE PROCEDURE Acc0004_Save
(
  jp010 char(10)
, jp020 integer
, jp030 char(3)
, jp040 integer
, jp050 char(1)
, jp060 char(5)
, jp070 varchar(6)
, jp080 varchar(40)
, jp090 numeric(18, 3)
, jp100 varchar(30)
, jp110 char(1)
, jp120 varchar(30)
, jp130 varchar(30)
, jp140 char(1)
, jp150 integer
, jp160 varchar(100)
)
AS
  declare variable Max_Num integer;  <--- 요기서 오류
*****************************************************
Dynamic SQL Error
SQL error code = -104
Unexpected end of command
이고요
*****************************************************
BEGIN

  select jp020 from acc0004 where jp010 = :jp010 and jp020 = :jp020 into :Max_Num;
  if ( Max_Num is not null) then
      delete from acc0004 where jp010 = :jp010 and jp020 = :jp020;


  select max(jp020) from acc0004 where jp010 = :jp010 into :Max_Num;
  if (Max_Num is null) then
    Max_Num = 1;
  else
    Max_Num = Max_Num + 1;
  end

  insert into acc0004 (jp010, jp020, jp030, jp040, jp050, jp060, jp070, jp080, jp090, jp100, jp110, jp120, jp130, jp140, jp150, jp160)
  values (:jp010, :Max_Num, :jp030, :jp040, :jp050, :jp060, :jp070, :jp080, :jp090, :jp100, :jp110, :jp120, :jp130, :jp140, :jp150, :jp160);

  SUSPEND;
END

프로시저에 이상이 있는것 같은데 도저히 몰겠습니다.
설명 좀 부탁드리겠습니다...

+ -

관련 글 리스트
1063 인터베이스 프로시저 좀 봐주세요. 왕초보 1569 2004/05/18
1065     Re:인터베이스 프로시저 좀 봐주세요. 박지훈.임프 1622 2004/05/18
1066         Re:Re:인터베이스 프로시저 좀 봐주세요. 왕초보 1343 2004/05/19
1067             Re:Re:Re:인터베이스 프로시저 좀 봐주세요. 박지훈.임프 1365 2004/05/19
1069                 넘넘 감사합니다... 왕초보 1502 2004/05/19
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.