1 Eylül 2013 Pazar

Basit ABAP Program

*  ZWIZCORE_TRN tablo olarak tanımlandı.
* Alanları : ZSTUDENT_ID,
  *               ZSTUDENT_NAME
    *             ZCOURSE_ID,
      *          ZCOURSE_NAME

REPORT  ZREPORT_NES.
TABLES: ZWIZCORE_TRN.

DATA: ZSTUDENT_ID TYPE INT1 . *

SELECT-OPTIONS VR_ST_ID FOR ZSTUDENT_ID .

PARAMETERS:   ST_ID TYPE ZWIZCORE_TRN-ZSTUDENT_ID,
                              ST_NAME TYPE ZWIZCORE_TRN-ZSTUDENT_NAME.

DATA: WA_SCARR_1 TYPE ZWIZCORE_TRN,
              IT_SCARR_1 TYPE STANDARD TABLE OF ZWIZCORE_TRN  WITH HEADER LINE.

WRITE 'STARTING SELECTION :'.
CLEAR IT_SCARR_1.
  SELECT  * FROM ZWIZCORE_TRN INTO  TABLE IT_SCARR_1.

*  COLLECT WA_SCARR_1 INTO IT_SCARR_1.
LOOP AT IT_SCARR_1 .
WRITE:/ IT_SCARR_1-ZSTUDENT_ID, IT_SCARR_1-ZSTUDENT_NAME , IT_SCARR_1-ZCOURSE_ID.
ENDLOOP.

* ENDSELECT.

Hiç yorum yok:

Yorum Gönder