OPEN CURSOR

1- Définition

définition du curseur :

DATA: gv_cursor TYPE cursor.

ouverture du curseur:

OPEN CURSOR WITH HOLD @gv_cursor FOR

SELECT champ1, champ2,...

FROM table

WHERE Condition

Boucle sur le curseur par paquet de gc_max

DO.FETCH NEXT CURSOR gv_cursor APPENDING CORRESPONDING FIELDS OF TABLE lt_table

/ FETCH NEXT CURSOR gv_cursor INTO CORRESPONDING FIELDS OF ls_struc.

PACKAGE SIZE gc_max.

Pour sortir de la boucle. IF sy-subrc NE 0.

CLOSE CURSOR gv_cursor. EXIT. ENDIF.

Faire son traitement.

Fin de boucle.

ENDDO.

2- A quoi ça sert...

L'instruction Open SQL OPEN CURSOR ouvre un curseur de base de données pour l'ensemble de résultats de la requête principale définie après FOR et lie une variable de curseur dbcur à ce curseur de base de données. L'ensemble de résultats de la requête principale peut être lu avec l'instruction FETCH.

Généralement on crée un OPEN CURSOR pour une lecture énorme de donnée, l'idée est de faire la lecture par paquet.

un exemple...

Le code source à copier coller

exemple utilisation

TYPES: BEGIN OF ty_edidc,
         docnum TYPE edi_docnum,
         status TYPE edi_status,
         mestyp TYPE edi_mestyp,
       END OF ty_edidc.

TYPES: tt_edidc TYPE TABLE OF ty_edidc.

CONSTANTS: gc_whscon         TYPE edi_mestyp VALUE 'WHSCON',
           gc_wmmbxy         TYPE edi_mestyp VALUE 'WMMBXY',

gc_segnam_e1edl24 TYPE edi_segnam VALUE 'E1EDL24',
           gc_segnam_e1mbxyi TYPE edi_segnam VALUE'E1MBXYI',
           gc_segnam_e1edl20 TYPE edi_segnam VALUE'E1EDL20',

gc_status_error   TYPE edi_status VALUE '51',
           gc_status_wait    TYPE edi_status VALUE '64',

gc_max            TYPE i VALUE 10000.
DATA: gv_cursor    TYPE cursor,
lt_edid4  TYPE tab_edidd,
lt_edidc  TYPE TABLE OF ty_edidc.
* fill status range
  ls_status-sign = 'I'.
  ls_status-option = 'EQ'.
  ls_status-low = gc_status_error.
  APPEND ls_status TO lr_status.
  ls_status-low = gc_status_wait.
  APPEND ls_status TO lr_status.

* fill IDOC type range
  ls_mestyp-sign = 'I'.
  ls_mestyp-option = 'EQ'.
  ls_mestyp-low = gc_whscon.
  APPEND ls_mestyp TO lr_mestyp.
  ls_mestyp-low = gc_wmmbxy.
  APPEND ls_mestyp TO lr_mestyp.

* fill IDOC segment range
  ls_segnam-sign = 'I'.
  ls_segnam-option = 'EQ'.
  ls_segnam-low = gc_segnam_e1edl24.
  APPEND ls_segnam TO lr_segnam.
  ls_segnam-low = gc_segnam_e1mbxyi.
  APPEND ls_segnam TO lr_segnam.
  ls_segnam-low = gc_segnam_e1edl20.
  APPEND ls_segnam TO lr_segnam.

* read all IDOCS WHSCON and WMMBXY
* do the selection bt package because of the quantity of IDOC
  OPEN CURSOR WITH HOLD @gv_cursor FOR
    SELECT docnum, status, mestyp
      FROM edidc
     WHERE status IN @lr_status
       AND mestyp IN @lr_mestyp.
  DO.
    FETCH NEXT CURSOR gv_cursor APPENDING CORRESPONDING FIELDS OF TABLE lt_edidc PACKAGE SIZE gc_max.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.

*   read IDOC segments
    IF lt_edidc IS NOT INITIAL.
      SELECT * 
       FROM edid4
       INTO TABLE lt_edid4
       FOR ALL ENTRIES IN lt_edidc
       WHERE docnum  = lt_edidc-docnum
         AND segnam IN lr_segnam.
      IF sy-subrc EQ 0.

*       appeler un perform de traitement
        PERFORM traitement CHANGING lt_edidc
                                                lt_edid4.

ENDIF.
    ELSE.
      EXIT.
    ENDIF.

REFRESH: lt_edidc,
                 lt_edid4.
  ENDDO.

Steeven

Vous allez entrer dans un monde que vous n'auriez jamais cru possible de créer.