*&---------------------------------------------------------------------*
*& Report ZLMN_DEN_SMARTFORMS
*&
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZLMN_DEN_SMARTFORMS.
DATA: GT_SPFLI TYPE STANDARD TABLE OF SPFLI,
GV_DEGISKEN TYPE C LENGTH 20,
GS_STRUCTURE TYPE SBOOK.
DATA: GV_FM_NAME TYPE RS38L_FNAM,
GS_SSFCTRLOP TYPE SSFCTRLOP,
GS_SSFCOMPOP TYPE SSFCOMPOP.
SELECT * FROM SPFLI UP TO 100 ROWS
INTO CORRESPONDING FIELDS OF TABLE GT_SPFLI.
GV_DEGISKEN = 'Aktarılan metin : '.
GS_STRUCTURE-CARRID = 'LH'.
GS_STRUCTURE-CONNID = '400'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' " Smartform fm adını öğreniyoruz..
EXPORTING
FORMNAME = 'ZLMN_DEN_SMARTFORMS'
IMPORTING
FM_NAME = GV_FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
GS_SSFCOMPOP-TDDEST = 'LOCL'.
GS_SSFCOMPOP-TDLIFETIME = 8.
CALL FUNCTION GV_FM_NAME " Smartformu çağırıyoruz..
EXPORTING
CONTROL_PARAMETERS = GS_SSFCTRLOP
OUTPUT_OPTIONS = GS_SSFCOMPOP
USER_SETTINGS = SPACE
DEGISKEN = GV_DEGISKEN
STRUCTURE = GS_STRUCTURE
TABLES
TB_SPFLI = GT_SPFLI
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF SY-SUBRC <> 0.
* hata..
ENDIF.
***********************************************************
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com
SAP ve ABAP konusunda tüm sorun ve sorularınızı gönderebilirsiniz.
Social Plugin