Statement is not accessible

[Former Member]

Hi all,

I'm trying to use SMARTFORMS but when I check my program I display an error when I call the first function: "Statement is not accesible". What I can do?

This is my code:

REPORT  ztest_001

.

TABLES zfi_employee1.
DATA:  ls_employee1 TYPE zfi_employee1,
       lt_employee1 LIKE zfi_employee1 OCCURS 0 WITH HEADER LINE.DATA:  fname TYPE rs38l_fnam.
*&---------------------------------------------------------------------*SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.SELECTION-SCREEN SKIP 1.PARAMETERS: p_soc LIKE zfi_employee1-sct,
            p_twkr LIKE zfi_employee1-twkr.SELECTION-SCREEN SKIP 1.SELECT-OPTIONS s_wkr FOR zfi_employee1-wkr.
SELECTION-SCREEN END OF BLOCK a1.*&---------------------------------------------------------------------*
START-OF-SELECTION.

  IF p_soc IS INITIAL AND p_twkr IS INITIAL.

    SELECT * FROM zfi_employee1 INTO TABLE lt_employee1
             WHERE wkr IN s_wkr.

  ELSEIF p_soc IS INITIAL .

    SELECT * FROM zfi_employee1 INTO TABLE lt_employee1
             WHERE twkr = p_twkr
             AND wkr IN s_wkr.
  ELSEIF p_twkr IS INITIAL.

    SELECT * FROM zfi_employee1 INTO TABLE lt_employee1
             WHERE sct = p_soc
             AND wkr IN s_wkr.
  ELSE.
    SELECT * FROM zfi_employee1 INTO TABLE lt_employee1
             WHERE sct = p_soc
             AND twkr = p_twkr
             AND wkr IN s_wkr.
  ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    formname                 = 'Z_SMART01'

*   VARIANT                  = ' '

*   DIRECT_CALL              = ' '

IMPORTING
   FM_NAME                  = fname
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.
CALL FUNCTION fname

* EXPORTING

*   ARCHIVE_INDEX              =

*   ARCHIVE_INDEX_TAB          =

*   ARCHIVE_PARAMETERS         =

*   CONTROL_PARAMETERS         =

*   MAIL_APPL_OBJ              =

*   MAIL_RECIPIENT             =

*   MAIL_SENDER                =

*   OUTPUT_OPTIONS             =

*   USER_SETTINGS              = 'X'

* IMPORTING*   DOCUMENT_OUTPUT_INFO       =

*   JOB_OUTPUT_INFO            =

*   JOB_OUTPUT_OPTIONS         =

* 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.

Thank you all.

Regards,

Andrea.

[Former Member]

The issue is solved. the problem was with form/perform.

Thank you all.

Regards,

Andrea.