*&---------------------------------------------------------------------*
*& Report ZNOTE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZNOTE.
*----------------------------------------------------------------------*
* SELECTION-SCREEN DECLARATIONS
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) TXT001.
PARAMETERS:P_NOTE LIKE PAT08-VALUE OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
*---------------------------------------------------------------------*
* INITIALIZATION *
*---------------------------------------------------------------------*
INITIALIZATION.
PERFORM INIT.
************************************************************************
* START OF SELECTION
************************************************************************
START-OF-SELECTION.
PERFORM DISP_OSS_NOTE.
*&---------------------------------------------------------------------*
*& Form INIT
*&---------------------------------------------------------------------*
* Initialize text elements
*----------------------------------------------------------------------*
FORM INIT.
TXT001 = 'OSS Note'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form DISP_OSS_NOTE
*&---------------------------------------------------------------------*
* Display OSS Note
*----------------------------------------------------------------------*
FORM DISP_OSS_NOTE.
CALL FUNCTION 'OCS_CALL_BROWSER_WITH_NOTE'
EXPORTING
IV_NOTE = P_NOTE
EXCEPTIONS
CALL_FAILED = 1
OTHERS = 2.
ENDFORM.