помощь совсем начинающему.

Galka

а-а-а

Цитата:

COMMIT WORK also ... Closes all open database cursors (OPEN CURSOR) on all database connections

но

Цитата:

If a particular cursor needs to be open across commits, you can use the WITH HOLD option to preserve the cursor position.

You should execute the commits using Native SQL as follows:

IF SY-DBSYS = 'DB2'.
EXEC SQL.
COMMIT WORK
ENDEXEC.
ENDIF.

Во всяком случае, стандартный пример работает

Code:

OPEN CURSOR WITH HOLD c1 FOR SELECT carrid connid FROM spfli WHERE  carrid = 'LH'.
DO.
  IF flag1 NE 'X'.
    FETCH NEXT CURSOR c1 INTO CORRESPONDING FIELDS OF wa1.
    IF sy-subrc <> 0.
      CLOSE CURSOR c1.
      flag1 = 'X'.
    ELSE.
      WRITE: / wa1-carrid, wa1-connid.
    ENDIF.
  ENDIF.
  IF flag1 = 'X'.
    EXIT.
  ENDIF.

  IF sy-dbsys = 'DB2'.
    EXEC SQL.
      COMMIT WORK
    ENDEXEC.
  ENDIF.

ENDDO.

EGF

Galka написала:

...но, вероятно, ограничено базисниками.

Совершенно точно ограничено. Есть такой параметр в системе. Поговорите с базисниками на эту тему - пусть установят размер, какой нужно.

DKiyanov

Цитата:

EXEC SQL.
COMMIT WORK
ENDEXEC.

ФМ DB_Commit. -- просто чтоб красивше было
А проверять вид базы данных на мой взгляд дело излишнее

DKiyanov

Интересные вещи про open cursor нашол оказывается можно делать так

FETCH NEXT CURSOR cur1 INTO TABLE xsauf PACKAGE SIZE package_size.

package_size - кол-во записей по крайней мере в 4.0b эта фишка не документирована

Uukrul

DKiyanov написал:

Интересные вещи про open cursor нашол оказывается можно делать так

FETCH NEXT CURSOR cur1 INTO TABLE xsauf PACKAGE SIZE package_size.

package_size - кол-во записей по крайней мере в 4.0b эта фишка не документирована

А если бы ты поиском воспользовался то, то узнал бы так же что эту вещь можно применять и в конструкциях:

select *
INTO TABLE xsauf PACKAGE SIZE xxx from tttt.

endselect .

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

помощь совсем начинающему.

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