*-------------------------------------------------	   
* Copyright 2007 Business Objects, SA.	   
*-------------------------------------------------	   
FORM <<<FORMNAME>>>.	   
	   
	   
*-------------------------------------------------	   
* Logic block to extract data from SAP.	   
*-------------------------------------------------	   
TABLES: T011, T011T, RF011Q, RFDT.	   
	   
	   
*--------------------------	   
* Key to cluster BS in RF011Q	   
* Can be used regardless of SAP release.
*--------------------------	   
	   
DATA VERSNKEY like RFDT-SRTFD.	   
	 
* ------------------------------------------  
DATA: BEGIN OF X011Q OCCURS 100.	   
        INCLUDE STRUCTURE RF011Q.	   
DATA: END OF X011Q.	   

* ------------------------------------------     

CLEAR X011Q.  
REFRESH X011Q.	   
	   
*------------------------------------------------	   
* function to import structures out of area BS	   
* in table RFDT	   	   
*------------------------------------------------	   
* Set Parameter and feed to function	   
*------------------------------------------------	

SELECT * from T011.   
	   
VERSNKEY = T011-VERSN.	   


	   
CALL FUNCTION 'FI_IMPORT_BALANCE_SHEET_TEXT'
             EXPORTING  SPRACHE        = $PARAM1
                        VERSION        = T011-VERSN
             TABLES     X011Q          = X011Q
             EXCEPTIONS TEXT_NOT_FOUND = 04.

IF SY-SUBRC <> 0.

  $PARAM1 = T011-DSPRA.

  CALL FUNCTION 'FI_IMPORT_BALANCE_SHEET_TEXT'
             EXPORTING  SPRACHE        = T011-DSPRA
                        VERSION        = T011-VERSN
             TABLES     X011Q          = X011Q
             EXCEPTIONS TEXT_NOT_FOUND = 04.

ENDIF.	   
*------------------------------------------------	   
* Move data to output table <<<OTAB1>>> for	   
* Data Integrator	   
*------------------------------------------------	   
if sy-subrc = 0.	   
	   
<<<OTAB1>>>-VERSN = VERSNKEY.	   
<<<OTAB1>>>-SPRAS = $PARAM1.
	   
LOOP AT X011Q.	   
	   
      <<<OTAB1>>>-ERGSL = X011Q-ERGSL.	   
      <<<OTAB1>>>-TXTYP = X011Q-TXTYP.	   
      <<<OTAB1>>>-ZEILE = X011Q-ZEILE.	   
      <<<OTAB1>>>-TXT45 = X011Q-TXT45.	   
	   
      APPEND <<<OTAB1>>>.	   
      	   
ENDLOOP.	   
endif.	   
	   
ENDSELECT.	   
ENDFORM.