ABAP ISBN验证代码

最新推荐文章于 2017-10-17 14:09:00 发布

技术价值体现之道践行者

最新推荐文章于 2017-10-17 14:09:00 发布

阅读量791

点赞数

CC 4.0 BY-SA版权

分类专栏： SAP ABAP一般文章标签： sap

本文链接：https://blog.youkuaiyun.com/wren2004/article/details/5539227

SAP ABAP一般专栏收录该内容

185 篇文章

订阅专栏

本文介绍了一种基于SAP官方示例的ISBN号码验证算法。该算法通过一系列字符串操作和数学运算，验证输入的ISBN-10是否有效。文章详细展示了如何去除ISBN中的特殊字符，并通过循环计算ISBN的有效性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

摘自SAP官方示例 , 可能会有用到吧, 转贴于此

   DATA SUBRC TYPE SY-SUBRC.
  DATA L_ISBN LIKE ISBN.
  DATA NUM TYPE I.
  DATA MULT TYPE I.
  DATA CHECKSUM TYPE I.
  DATA CHECK TYPE I.
  DATA LENGTH TYPE I.

  L_ISBN = ISBN.
  SUBRC = 0.

  WHILE SUBRC = 0.
    REPLACE '-' WITH ' ' INTO L_ISBN.
    SUBRC = SY-SUBRC.
  ENDWHILE.

  CONDENSE L_ISBN NO-GAPS.

  LENGTH = STRLEN( L_ISBN ).

  IF LENGTH <> 10.
    FLAG = 0.
    RETURN.
  ENDIF.

  DO 10 TIMES.

    MULT = 11 - SY-INDEX.

    IF L_ISBN(1) = 'X'.
      NUM = 10.
    ELSE.
      NUM = L_ISBN(1).
    ENDIF.

    CHECKSUM = CHECKSUM + MULT * NUM.

    SHIFT L_ISBN.

  ENDDO.

  CHECK = CHECKSUM / 11 * 11.

  IF CHECK = CHECKSUM.
    FLAG = '1'.     " 正确
  ELSE.
    FLAG = '0'.
  ENDIF.