Veri cekme ve zli tablo olusturup veri girme

*&---------------------------------------------------------------------*

*& Report  ZERN_TAW12_WRITE                                            *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  ZERN_TAW12_WRITE  NO STANDARD PAGE HEADING .

* KULANILACAK TABLOLAR

TABLES : SBOOK   ,

         SFLIGHT ,

         SSCRFIELDS,

         SCARR .

*         ZNUFUS.

* 1. EKRANDA YAZILACAK DEGERLER

DATA : BEGIN OF KTAB OCCURS 0       ,

       A(1)                         , " Checkbox

       CARRNAME LIKE SCARR-CARRNAME ,

       CARRID LIKE SCARR-CARRID     ,

       CONNID   LIKE SPFLI-CONNID   ,

       CITYFROM LIKE SPFLI-CITYFROM ,

       CITYTO   LIKE SPFLI-CITYTO   ,

         END OF KTAB.

ucak kayıt rezervasyonu zor

report ZERN_TAW12_WRITE.

* KULANILACAK TABLOLAR
TABLES : sbook   ,
         sflight ,
         scarr   .

* 1. EKRANDA YAZILACAK DEGERLER
DATA : BEGIN OF ktab OCCURS 0       ,
       a(1)                         , " Checkbox
       carrname LIKE scarr-carrname ,
       carrid LIKE scarr-carrid     ,
       connid   LIKE spfli-connid   ,
       cityfrom LIKE spfli-cityfrom ,
       cityto   LIKE spfli-cityto   ,
         END OF ktab.

SPfli ve sflight tablosundan veri okumak ve isleme

DATA ITAB LIKE SPFLI OCCURS 0 WITH HEADER LINE.
DATA CTAB LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.

PARAMETERS: P_CARRID LIKE SPFLI-CARRID.

START-OF-SELECTION.
  PERFORM GET_DATA.


AT LINE-SELECTION.
  PERFORM WRITE.

Sirket verisi girip collect yapan program

REPORT  ZERN_TAW12_WRITE  NO STANDARD PAGE HEADING .
TABLES SSCRFIELDS.

* Þirket Verilerinin Tutulduðu Tablo
DATA : BEGIN OF gt_stab OCCURS 0 ,
     SAD(25),
     PAD(25),
     MAAS TYPE  I,
END OF gt_stab,

* CTAB TABLOSUNDA BENZER FIELD ICERIKLERI TOPLANACAK
CTAB LIKE gt_stab OCCURS 0 WITH HEADER LINE .

SELECTION-SCREEN BEGIN OF BLOCK B1
                 WITH FRAME TITLE TEXT-002.
PARAMETERS : SIR  TYPE TEXT20 ,
             AD   TYPE TEXT20 ,
             MAAS TYPE I      .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN PUSHBUTTON 26(20) TEXT-003 USER-COMMAND EKL.
SELECTION-SCREEN END   OF BLOCK B1 .

Seçim ekranı yaratma Buton koyma

REPORT  ZERN_TAW12_WRITE  NO STANDARD PAGE HEADING .

DATA : BEGIN OF YTAB OCCURS 0,

          AD(20),
          SOYAD(20),
          SIRKET(20),
       END OF YTAB.

TABLES SSCRFIELDS.

SELECTION-SCREEN BEGIN OF BLOCK B1
                 WITH FRAME TITLE TEXT-002.