ABAP 双loop循环 do循环九九乘法表

 LOOP AT tabwerks.

    CLEAR: tmp,
    lt_receivers.
    REFRESH tmp.
    REFRESH lt_receivers.

    "将同一个审批人的记录，写在一个邮件里面
    LOOP AT tab1 WHERE werks = tabwerks-werks AND txt04 = tabwerks-txt04.

      MOVE-CORRESPONDING tab1 TO tmp.
      APPEND tmp.
    ENDLOOP.

    SORT tmp BY werks ASCENDING.
    wa_receiver-line = tabwerks-email.           "email来自tabwerks
    APPEND wa_receiver TO lt_receivers."

    PERFORM daymail USING lt_receivers.


  ENDLOOP.

DATA:A TYPE N,
      B TYPE N,
      X TYPE P,
      X1 TYPE CHAR2.

      DO 9 TIMES.
        A  = A + 1.
        B = 0.
        DO A TIMES.
        B = B + 1 .
        X = A  * B.
        X1 = X.
        WRITE : A,'*',B,'=',X1.

        ENDDO.
        WRITE: /.
        ENDDO.


" 横着来

"DATA:gf_i    TYPE n VALUE 1,
"     gf_j    TYPE n VALUE 1,
"     gf_k(2) TYPE n.
"DO 9 TIMES.
"  gf_j = 1.
"  DO gf_i TIMES.
"    gf_k = gf_i * gf_j.
"    WRITE:gf_j NO-GAP,'*' NO-GAP,gf_i NO-GAP,'=' NO-GAP,gf_k.
"    IF gf_i = gf_j.
"      WRITE: /.
"      EXIT.
"    ELSE.
"      gf_j = gf_j + 1.
"    ENDIF.
"  ENDDO.
"  gf_i = gf_i + 1.
"ENDDO.



" 横着来
*
*DATA: l_index TYPE i,
*      l_times TYPE i VALUE 1,
*      l_value TYPE i.
*
*  DO 9 TIMES.
*     l_times = 1.
*    l_index = sy-index.
*    WHILE l_times <= l_index.
*      l_value = l_times * l_index.
*      WRITE: (1) l_times,'*',(1) l_index,'=',(2) l_value.
*      WRITE: sy-vline."垂直线
*      l_times = l_times + 1.
*    ENDWHILE.
**    l_times = 1.   "初始化
*
*    WRITE: sy-uline."水平线
*  ENDDO.