2007年牛人牛语录

公司元旦庆祝搞博彩活动，要求从80个数中任意抽出10个数博彩，写了个ABAP写程序来实现这个功能，但愿能中奖，呵呵：

REPORT ZLV2 LINE-SIZE 500.
PARAMETERS: P_I1 TYPE I,
            P_I2 TYPE I.
DATA: LV_TIMES TYPE I,
      LV_NUM   TYPE I.
DATA: BEGIN OF IT_NUM OCCURS 0,
        NUM TYPE I,
      END OF IT_NUM..
DO.
  IF P_I1 > 80.
    DO.
      P_I1 = P_I1 - 80.
      IF P_I1 < 80.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.
  IF P_I1 <= 80.
    READ TABLE IT_NUM WITH KEY NUM = P_I1 TRANSPORTING NO FIELDS.
    IF SY-SUBRC <> 0.
      LV_NUM = LV_NUM + 1.
      IT_NUM-NUM = P_I1.
      APPEND IT_NUM.
      WRITE P_I1.
    ENDIF.
  ENDIF.
  IF LV_NUM = 10.
    CLEAR IT_NUM[].
    LV_TIMES = LV_TIMES + 1.
    NEW-LINE.
    CLEAR LV_NUM.
  ENDIF.
  P_I1 = P_I1 + P_I2.
  P_I2 = P_I2 + 1.
  IF LV_TIMES > 6.
    EXIT.
  ENDIF.
ENDDO.