SapScript, Formularaufruf aus einen Funtionsbaustein heraus

Code: Alles auswählen.

FUNCTION YMGA_GA_DRUCK.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_DRUCKDATEN) LIKE  YMGAS_QMSATZ_ERW STRUCTURE
*"        YMGAS_QMSATZ_ERW
*"  EXPORTING
*"     VALUE(E_SUBRC) TYPE  INT1
*"     VALUE(E_MSG) TYPE  STRING
*"----------------------------------------------------------------------


data: i_itcpo like itcpo,
      test(100) TYPE C.


  i_itcpo-TDIMMED = ' '.         " keine sofortige Ausgabe, oder 'X'


  call function 'OPEN_FORM'
       EXPORTING
            form    = 'ZQM_GARANTIE'
            DIALOG  = 'X'
            options = i_itcpo.




  call function 'WRITE_FORM'
         EXPORTING
              element = 'POSITION'.





  CALL FUNCTION 'CLOSE_FORM'
.
  IF SY-SUBRC <> 0.
  ENDIF.

  E_SUBRC = SY-SUBRC.
  E_MSG   = SPACE.

ENDFUNCTION.