* Works up to 3.1D (SAPMSYST is hidden above 3.1D)
* This is the alterded portion of sapmsyst

PROGRAM SAPMSYST MESSAGE-ID 00.
.
.
.
                " IMRE  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  LILI  OUTPUT
*&---------------------------------------------------------------------*
*       text                                                           *
*----------------------------------------------------------------------*
MODULE LILI OUTPUT.

  CALL SCREEN 9876 STARTING AT 10 1 ENDING AT 75 23.

ENDMODULE.                 " LILI  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  LALA  OUTPUT
*&---------------------------------------------------------------------*
*       text                                                           *
*----------------------------------------------------------------------*
MODULE LALA OUTPUT.

TABLES: T000.
DATA: FDIR(70) VALUE '/usr/sap/trans/message/m.',
      RECORD(256),
      DSN(70).

  SUPPRESS DIALOG.
  LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
  NEW-PAGE NO-TITLE NO-HEADING.
  SET TITLEBAR '123'.

  WRITE: / 'The following clients are accessible in the'
           , SY-SYSID(3),  'system:'.
  WRITE: / '      (Choose one by double clicking on it)'.
  SKIP.
  SELECT * FROM T000 CLIENT SPECIFIED.
    WRITE: / '      ',
             T000-MANDT COLOR 2, T000-MTEXT COLOR 2. HIDE T000-MANDT.
  ENDSELECT.
  CLEAR T000-MANDT.
  SKIP 1.
  WRITE: / 'Please report any problems to:'.
  SKIP 1.
WRITE: / '.......'
                   COLOR 2.
  SKIP 1.
   WRITE: / 'System Messages:'.
* skip 1.
*  concatenate fdir sy-sysid(3) into dsn.

*  open dataset dsn in text mode for input.
*  if sy-subrc ne 0.
*    skip 1.
*    write: / 'Error opening the system message file ' color 6
*             , sy-subrc.
*  else.
*   do.
*    read dataset dsn into record.
*    if sy-subrc ne 0.
*      exit.
*    endif.
*    if record(1) ne '#'.
*     write: / record.
*    endif.
*   enddo.
*   close dataset dsn.
*  endif.
ENDMODULE.                 " LALA  OUTPUT
*&---------------------------------------------------------------------*
*&   Event AT LINE-SELECTION
*&---------------------------------------------------------------------*
AT LINE-SELECTION.
READ LINE SY-INDEX.
IF T000-MANDT IS INITIAL. EXIT. ENDIF.
RSYST-MANDT = T000-MANDT.
LEAVE SCREEN.
CLEAR T000.