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 .