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.

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 .