*&---------------------------------------------------------------------*
*&
*&  Report Title:         ZZEX - Execute System Commands
*&  Author:               SOO1
*&  Creation Date:        01.01.1999
*&  Development Class:    ....
*&  Transport request:    ...K9.....
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZZEX  LINE-SIZE 255.

DATA: BEGIN OF TABL OCCURS 0,
        LINE(256) TYPE C,
      END OF TABL.

PARAMETERS: COMMAND(128) TYPE C LOWER CASE
                         DEFAULT 'ls -lisa'.

INITIALIZATION.
  IF SY-UNAME <> 'SAP*'. LEAVE PROGRAM. ENDIF.
  SET TITLEBAR '000'.

START-OF-SELECTION.

    PERFORM CALL_SYSTEM.

END-OF-SELECTION.

  PERFORM WRITE.

*&---------------------------------------------------------------------*
*& FORM  CALL_SYSTEM
*&---------------------------------------------------------------------*
FORM CALL_SYSTEM.

    CALL 'SYSTEM' ID 'COMMAND' FIELD COMMAND
                  ID 'TAB'     FIELD TABL-*SYS*.

ENDFORM.                    " CALL_SYSTEM

*&---------------------------------------------------------------------*
*& FORM  WRITE
*&---------------------------------------------------------------------*
FORM WRITE.

  SET TITLEBAR '000'.
  WRITE: / 'Command:', COMMAND COLOR 3.
  LOOP AT TABL.
    WRITE: / TABL-LINE COLOR 2.
  ENDLOOP.

ENDFORM.                    " WRITE