Browse OSS Note

This program helps to browse OSS Note from SAP without loggging into browser.

*&---------------------------------------------------------------------*
*& Report  Zbrowse_OSS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Zbrowse_OSS NO STANDARD PAGE HEADING.


******************************************************************************
*  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 .

******************************************************************************
* INITILIZATION
******************************************************************************

INITIALIZATION.

  PERFORM INIT.
******************************************************************************
*     START-OF-SELECTION
*******************************************************************************
START-OF-SELECTION.

  PERFORM DISP_OSS_NOTE.

*&---------------------------------------------------------------------*
*&      Form  INIT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM INIT.
  TXT001 = 'OSS NOTE'.
ENDFORM.                    "INIT

*&---------------------------------------------------------------------*
*&      Form  DISP_OSS_NOTE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM DISP_OSS_NOTE.

  CALL FUNCTION 'OCS_CALL_BROWSER_WITH_NOTE'
    EXPORTING
      IV_NOTE     = P_NOTE
    EXCEPTIONS
      CALL_FAILED = 1
      OTHERS      = 2.
  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.                    "DISP_OSS_NOTE