获取36位进制序列数

最新推荐文章于 2023-02-26 10:33:45 发布

yong325

最新推荐文章于 2023-02-26 10:33:45 发布

阅读量767

点赞数

分类专栏： SAP 文章标签： ABAP

本文链接：https://blog.csdn.net/yong325/article/details/8734898

版权

SAP 专栏收录该内容

433 篇文章 4 订阅

订阅专栏

REPORT  ZTEST131 MESSAGE-ID zmsg LINE-SIZE 136 LINE-COUNT 33
NO STANDARD PAGE HEADING.

DATA:    snnum ( 5 ) VALUE '00000',
         lnum type i,
         c1 ( 1 ),
         c2 ( 1 ),
         c3 ( 1 ),
         c4 ( 1 ),
         c5 ( 1 ),
         n1 ( 2 ) TYPE n,
         n2 ( 2 ) TYPE n,
         n3 ( 2 ) TYPE n,
         n4 ( 2 ) TYPE n,
         n5 ( 2 ) TYPE n.

do 300 times.
c1 = snnum ( 1 ).
c2 = snnum+1 ( 1 ).
c3 = snnum+2 ( 1 ).
c4 = snnum+3 ( 1 ).
c5 = snnum+4 ( 1 ).

PERFORM get_num USING c1 CHANGING n1.
PERFORM get_num USING c2 CHANGING n2.
PERFORM get_num USING c3 CHANGING n3.
PERFORM get_num USING c4 CHANGING n4.
PERFORM get_num USING c5 CHANGING n5.

n5 = n5 + 1.
IF n5 = 36.
  n5 = 0.
  n4 = n4 + 1.
   IF n4 = 36.
    n4 = 0.
    n3 = n3 + 1.
     IF n3 = 36.
      n3 = 0.
      n2 = n2 + 1.
       IF n2 = 36.
        n2 =   0.
        n1 = n1 + 1.
       ENDIF.
     ENDIF.
   ENDIF.
ENDIF.

PERFORM get_char USING n1 CHANGING c1.
PERFORM get_char USING n2 CHANGING c2.
PERFORM get_char USING n3 CHANGING c3.
PERFORM get_char USING n4 CHANGING c4.
PERFORM get_char USING n5 CHANGING c5.

CONCATENATE c1 c2 c3 c4 c5   INTO snnum.

lnum = lnum + 1.
write:snnum.

if lnum = 15.
  lnum = 0.
   WRITE /.
endif.

enddo.
*&---------------------------------------------------------------------*
*&      Form  get_num
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_C1  text
*      <--P_N1  text
*----------------------------------------------------------------------*
FORM get_num   USING    p_char
               CHANGING p_num.
   SEARCH '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' FOR p_char.
  p_num = sy -fdpos.
ENDFORM.                     " get_num
*&---------------------------------------------------------------------*
*&      Form  get_char
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_C1  text
*      <--P_N1  text
*----------------------------------------------------------------------*
FORM get_char   USING    p_num
               CHANGING p_char.
   DATA: l_string ( 36 ) VALUE '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
  p_char = l_string+p_num.
ENDFORM.                     " get_char