Código de Otros - Primer Programa ABAP

REPORT ZPRUEBA_ABAP.

* WRITE 'ESte es mi pimer programa'.

DATA: LS_USER TYPE USER01.

SELECT * FROM USR01

   INTO LS_USER.

ENDSELECT.

IF SY-SUBRC = 0.

  LOOP AT IT_PLANT.

       WRITE: SY-VLINE, LS-USER-BNAME,

              SY-VLINE, LS-USER-MANDT.

  ENDLOOP.

ENDIF.