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