Помогите с Native SQL

extreme

Не работает данный SQL. В чем может быть проблема???

Code:

EXEC SQL.
OPEN CURSOR C FOR
     select a1~NOM_CH_F, a1~summa
     from ( select  NOM_CH_F,sum(SUM_BUY) summa
            from T_BUF
            group by NOM_CH_F) a1
     where a1~summa =0 .
ENDEXEC.
DO.
EXEC SQL.
   FETCH NEXT CURSOR C  INTO WA.
ENDEXEC.
   IF SY-SUBRC <>  0.
      EXEC SQL.
      CLOSE  C
      ENDEXEC.
      EXIT.
   ENDIF.

ошибка: ORA-00900

Alex80

extreme написал(а):

Не работает данный SQL. В чем может быть проблема???

Code:

EXEC SQL.
OPEN CURSOR C FOR
     select a1~NOM_CH_F, a1~summa
     from ( select  NOM_CH_F,sum(SUM_BUY) summa
            from T_BUF
            group by NOM_CH_F) a1
     where a1~summa =0 .
ENDEXEC.
DO.
EXEC SQL.
   FETCH NEXT CURSOR C  INTO WA.
ENDEXEC.
   IF SY-SUBRC <>  0.
      EXEC SQL.
      CLOSE  C
      ENDEXEC.
      EXIT.
   ENDIF.

ошибка: ORA-00900

Code:

EXEC SQL.
  OPEN CURSOR C FOR
  select a1~NOM_CH_F, a1~summa
  from ( select NOM_CH_F,sum(SUM_BUY) summa
  from T_BUF
  group by NOM_CH_F) a1
  where a1~summa =0 .
ENDEXEC.
DO.
  EXEC SQL.
    FETCH NEXT CURSOR C INTO WA.
    IF sy-subrc <> 0.
      CLOSE C.
      EXIT.
    ENDIF.
  ENDEXEC.
ENDDO.

?

extreme

Code:

OPEN CURSOR C FOR
  select a1~NOM_CH_F, a1~summa
  from ( select NOM_CH_F,sum(SUM_BUY) summa
  from T_BUF
  group by NOM_CH_F) a1
  where a1~summa =0 .
ENDEXEC.
DO.
  EXEC SQL.
    FETCH NEXT CURSOR C INTO WA.
    IF sy-subrc <> 0.
      CLOSE C.
      EXIT.
    ENDIF.
  ENDEXEC.
ENDDO.

-----------
не работает.  :(

extreme

Сделал вот так.. как написано в доке.... тоже не работает, но уже другая ошибка...ORA-00933

Code:

DATA:   D1    LIKE ZZZ_BOOK_BUY_H-NOM_CH_F,
   D2    LIKE ZZZ_BOOK_BUY_H-SUM_BUY.
******------------------------------------------------------*********
EXEC SQL.
OPEN  C FOR
     SELECT A1-NOM_CH_F, A1-SUMMA
     FROM ( SELECT  NOM_CH_F,SUM(SUM_BUY) AS SUMMA
            from ZZZ_BOOK
            GROUP BY NOM_CH_F) AS A1
     WHERE A1-SUMMA =0
ENDEXEC.
DO.
EXEC SQL.
   FETCH NEXT C INTO :D1, :D2
   IF SY-SUBRC <>  0.
      CLOSE  C
      EXIT.
   ENDIF.
ENDEXEC.
ENDDO.

EvgenySA

Коллега, на каком языке Вы пишете

Между EXEC SQL и ENDEXEC должен идти PL/SQL.
А оформление курсоров в хелпе описано.

extreme

тема закрыта. сделал.
-------------------------

Code:

EXEC SQL.
OPEN   C FOR
     SELECT A1.NOM_CH_F, A1.SUMMA
     FROM ( SELECT  NOM_CH_F,SUM(SUM_BUY) SUMMA
            FROM W_NUL
            GROUP BY NOM_CH_F) A1
     WHERE A1.SUMMA =0
ENDEXEC.
DO.
EXEC SQL.
   FETCH NEXT  C INTO :W1
ENDEXEC.
   IF SY-SUBRC <>  0.
      EXEC SQL.
      CLOSE  C
      ENDEXEC.
      EXIT.
   ENDIF.

MOVE-CORRESPONDING W1 TO T_BUF.
APPEND T_BUF.
ENDDO.
LOOP AT T_BUF.
WRITE : / T_BUF-NOM_CH_F, T_BUF-SUM_BUY.
ENDLOOP.

DKiyanov

И вобще Native SQL странная штука

Вот такой код работает:

Code:

DEFINE fetch_tab.
  do.
    exec sql.
      fetch next dbcur into :&1
    endexec.

    if sy-subrc <> 0. exit. endif.

    append &1.
  enddo.

  exec sql.
    close dbcur
  endexec.
END-OF-DEFINITION.

а вот тоже самое в виде form не работает

Code:

form fetch_tab tables tab.
  do.
    exec sql.
      fetch next dbcur into :tab
    endexec.

    if sy-subrc <> 0. exit. endif.

    append tab.
  enddo.

  exec sql.
    close dbcur
  endexec.
endform.

почему то заполняется (не понять чем) только первое поле таблицы

sy-uname

DKiyanov написал:

И вобще Native SQL странная штука

...
а вот тоже самое в виде form не работает

Code:

form fetch_tab tables tab.
  do.
    exec sql.
      fetch next dbcur into :tab
    endexec.

    if sy-subrc <> 0. exit. endif.

    append tab.
  enddo.

  exec sql.
    close dbcur
  endexec.
endform.

почему то заполняется (не понять чем) только первое поле таблицы

native sql умеет работать только с глобальными переменными, так что внутри при использовании perform проверяйте на сторонние эффекты и т.п. ситуации с переменными

Правила форума

Помогите с Native SQL

Кто сейчас на конференции