ABAP小学乘法表

DATA:
      GCF_1(2)        TYPE n ,
      GCF_2(2)        TYPE n,
      GCF_N(2)        TYPE n ,
      GCF_Z(10)       TYPE C VALUE '小学乘法表',
      GCF_L           TYPE I ,
      GCF_INDEX       TYPE I.

  WRITE 60 GCF_Z CENTERED.
  WRITE: /.
  GCF_2 = 1.
  DO 9 TIMES.
        NEW-LINE.
    GCF_1 = 1.
    GCF_L = 16 * SY-INDEX.
    WRITE AT 0(GCF_L) SY-ULINE.
    NEW-LINE.
    CLEAR GCF_INDEX.
    DO GCF_2 TIMES.
      GCF_N = GCF_1 * GCF_2.
      GCF_L = GCF_INDEX * 16.
      GCF_INDEX = GCF_INDEX + 1.
      WRITE  AT GCF_L SY-VLINE.
      WRITE: GCF_1,'*',GCF_2,'=',GCF_N, ' '.
      GCF_1 = GCF_1 + 1.
    ENDDO.
    GCF_2 = GCF_2 + 1.
    GCF_L = GCF_L + 16.
    WRITE  AT GCF_L SY-VLINE.
    NEW-LINE.
  ENDDO.

  WRITE AT 0(GCF_L) SY-ULINE.