* ======================================================================
* Stefanos Moschidis - SAP Certified Technical Consultant
* ======================================================================

* ======================================================================
* This program is an example of testing a printout built with SMARTFORMS
* ======================================================================

REPORT Z_EXAMPLE_SMARTFORMS .

* ======================================================================
* DATA DECLARATIONS SECTION
* ======================================================================
TABLES : ZCUST .

data : begin of i_zcust occurs 100 .
        include structure zcust .
data : end of i_zcust .

data : begin  of i_ztransactions occurs 100 .
        include structure ztransactions .
data : end of i_ztransactions .

data : fm_name type rs38l_fnam.
DATA : FORMNAME TYPE TDSFNAME .

* ======================================================================
* selection screen
* ======================================================================
SELECT-OPTIONS : S_KUNNR FOR ZCUST-KUNNR .

* ======================================================================
* START OF SELECTION - EVENT BLOCK
* ======================================================================
START-OF-SELECTION .
  PERFORM GET_DATA .

* ======================================================================
* END OF SELECTION - EVENT BLOCK
* ======================================================================
END-OF-SELECTION .

    PERFORM TEST_SMARTFORMS USING 'ZZEXAMPLE_SMARTFORMS' .


*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
FORM GET_DATA.
  CLEAR : I_ZCUST , I_ZCUST[] .
  SELECT * INTO CORRESPONDING FIELDS OF TABLE I_ZCUST FROM ZCUST
  WHERE KUNNR IN S_KUNNR .

  CLEAR : I_ZTRANSACTIONS , I_ZTRANSACTIONS[] .
  SELECT * INTO CORRESPONDING FIELDS OF TABLE I_ZTRANSACTIONS
  FROM ZTRANSACTIONS
  FOR ALL ENTRIES IN I_ZCUST WHERE KUNNR = I_ZCUST-KUNNR .


ENDFORM.                    " GET_DATA

*&---------------------------------------------------------------------*
*&      Form  TEST_SMARTFORMS
*&---------------------------------------------------------------------*
FORM TEST_SMARTFORMS USING MYFORMNAME .

  CLEAR FM_NAME .
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME                 = MYFORMNAME
   IMPORTING
     FM_NAME                  =  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.

CALL FUNCTION FM_NAME
  TABLES
    I_ZCUST                    = I_ZCUST
    I_ZTRANSACTIONS            = I_ZTRANSACTIONS
 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.


ENDFORM.                    " TEST_SMARTFORMS