PATTERN1

REPORT  ZPATTERN1.

DATA:
      POS TYPE I VALUE 4,
      J TYPE I VALUE 1,
      i TYPE i.

      do 4 times.
do j TIMES.
  WRITE at pos(1) sy-index.
  pos = pos - 1.
  ENDDO.
  pos = 4.
  j = j + 1.
  WRITE /.
  enddo.