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.





SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN PUSHBUTTON /1(20) TEXT-001 USER-COMMAND GOS.
SELECTION-SCREEN PUSHBUTTON 26(20) TEXT-003 USER-COMMAND EKL.
SELECTION-SCREEN END   OF BLOCK B1.

PARAMETERS: ADI TYPE TEXT20,
            SOYADI TYPE TEXT20,
            SIRKAD TYPE TEXT20.

INITIALIZATION.


AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM EQ 'EKL'.
    PERFORM EKLE USING ADI SOYADI SIRKAD.
  ELSEIF SSCRFIELDS-UCOMM EQ 'GOS'.
    PERFORM GOSTER USING ADI SOYADI SIRKAD.
  ENDIF.

END-OF-SELECTION.

  BREAK-POINT.
*---------------------------------------------------------------------*
*       FORM goster                                                   *
*---------------------------------------------------------------------*

FORM GOSTER USING  H J K .
  WRITE: / H, J ,K.
  SET PF-STATUS 'DE'.
  leave to list-processing.
ENDFORM.                    "goster


*&--------------------------------------------------------------------*
*&      Form  ekle
*&--------------------------------------------------------------------*

FORM EKLE USING    H J K.
  MOVE: ADI TO YTAB-AD,
        SOYADI TO YTAB-SOYAD,
        SIRKAD TO YTAB-SIRKET.
  APPEND YTAB.
ENDFORM.                    "ekle


Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com
SAP ve ABAP ile ilgili tüm sorularınızı gönderebilirsiniz.