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

* ======================================================================
* This Program is an Example of the Business Document Service
* It can be used once for the creation of a class of Documents.
* Afterwards the transaction OAOR (Business Document Navigation)
* can be used to fill the class with more documents
* ----------------------------------------------------------------------
* Note : Objects Classes are viewed with transaction SBDSV1
* ----------------------------------------------------------------------
REPORT Z_EXAMPLE_BUSINESS_DOC_SERVICE .

* ======================================================================
* DATA DECLARATIONS
* ======================================================================
data : o_document  type ref to cl_bds_document_set ,
       I_FILES     Type SBDST_FILES     WITH HEADER LINE ,
       I_SIGNATURE Type SBDST_SIGNATURE WITH HEADER LINE .

* ======================================================================
START-OF-SELECTION .
* ======================================================================

  CREATE OBJECT O_DOCUMENT .

  PERFORM CREATE_A_DOCUMENT_FM_FILES
  USING 'C:\Stefanos\TEST'
        'Smart_Forms_SAP_Library.DOC'
        '1' .

*&---------------------------------------------------------------------*
*&      Form  CREATE_A_DOCUMENT_FM_FILES
*&---------------------------------------------------------------------*
FORM CREATE_A_DOCUMENT_FM_FILES USING    P_MYDIR
                                         P_MYFILENAME
                                         P_MYSIGNATURECOUNT.
  CLEAR : I_FILES   , I_SIGNATURE   ,
            I_FILES[] , I_SIGNATURE[] .

  I_FILES-DIRECTORY = P_MYDIR      .  
  I_FILES-FILENAME =  P_MYFILENAME .  
  APPEND I_FILES .

  I_SIGNATURE-DOC_COUNT = P_MYSIGNATURECOUNT .
  APPEND I_SIGNATURE .

  CALL METHOD O_DOCUMENT->CREATE_WITH_FILES
  EXPORTING CLASSNAME = 'ZTESTCLASS3'          " always capitals
            CLASSTYPE = 'OT'                   " always capitals
  CHANGING  FILES     = I_FILES[]
            SIGNATURE = I_SIGNATURE[] .

ENDFORM.                    " CREATE_A_DOCUMENT_FM_FILES