Explique moi ce programme en ABAP

[eddassiabdelhak]

DATA: BEGIN OF LINE,
COL1 TYPE I,
COL2 TYPE I,
END OF LINE.

DATA ITAB LIKE LINE OCCURS 10.

DO 2 TIMES.
LINE-COL1 = SY-INDEX.
LINE-COL2 = SY-INDEX ** 2.
APPEND LINE TO ITAB.
ENDDO.

LINE-COL1 = 11. LINE-COL2 = 22.

INSERT LINE INTO ITAB INDEX 2.

INSERT INITIAL LINE INTO ITAB INDEX 1.

LOOP AT ITAB INTO LINE.
WRITE: / SY-TABIX, LINE-COL1, LINE-COL2.
ENDLOOP.

***********************************************
Aussi c'est quoi DATA ITAB LIKE LINE OCCURS 10. j'ai pas vraiment saisie l'utilité de OCCURS 10

[Sh@m@n]

Bonjour,

1) DATA ITAB LIKE LINE OCCURS 10.
=> c'est la déclaration de la table interne ITAB, avec la structure de LINE. Et OCCURS 10, c'est pour dire que la table aura 10 lignes (aucune utilité particulière ici).

2) Sinon, le code, c'est un algo simple qui charge des données dans la table interne ITAB, et les affiche ensuite.


Ca t'ira?