SAP TECHCODE

REPORT   ZPALINDROME . DATA :       num  TYPE  i  value  121 ,       rev  TYPE  i  value  0 ,       numcopy  TYPE  i  value  0 ,       digit  TYPE  i .       numcopy  =  num . WHILE  numcopy >  0 .   digit  =  numcopy  mod  10 .   numcopy  =  numcopy /  10 .   rev  =  rev *  10  + digit .    ENDWHILE .    if  num  =  rev .      WRITE  'num is palindrome' .      else .      WRITE  ' num is not a palindrome' .      ENDIF .

REPORT   ZPATTERN3 . DATA :        I  TYPE  i ,       j  TYPE  i ,       k  TYPE  i ,       l  TYPE  i .        i  =  1 . do  5  times .    do  i  times .      WRITE  at  j ( 1 )  sy - index .     j  =  j +  1 .      ENDDO .      WRITE  / .      i  =  i  +  1 .     j  =  1 .      ENDDO .      i  =  4 .     j  =  5 .     l  =  5 .      do  4  times .        do  i ...

REPORT   ZPATTERN2 . DATA :       POS  TYPE  I  VALUE  4 ,       J  TYPE  I  VALUE  4 .        do  4  times . do  j  TIMES .    WRITE  at  pos ( 1 )  sy - index .   pos  =  pos  -  1 .    ENDDO .   pos  =  4 .   j  =  j  -  1 .    WRITE  / .    enddo .

REPORT   ZPATTERN1 . DATA :       POS  TYPE  I  VALUE  4 ,       J  TYPE  I  VALUE  1 ,        i  TYPE  i .        do  4  times . do  j  TIMES .    WRITE  at  pos ( 1 )  sy - index .   pos  =  pos  -  1 .    ENDDO .   pos  =  4 .   j  =  j +  1 .    WRITE  / .    enddo .

REPORT   ZMTABLE . DATA :       W_A  TYpe  i  value  2 ,       w_b  TYPE  i ,       w_c  TYPE  i . do  10  times .   w_b  =  w_b +  1 .   w_c  =  w_a * w_b .    WRITE  : / w_A ,  '*' ,  w_b ,  '=' ,  w_c .    ENDDO .

REPORT   ZFIBONACCI . DATA :       w_a  type  i  value  0 ,       w_b  type  i  value  1 ,       w_c  type  i . do  10  times .   w_c  =  w_a + w_b .   w_a  =  w_b .   w_b  =  w_c .    WRITE  w_c .    ENDDO .

REPORT   ZNUMBERPATTERN . do  10  times . do  sy - index  times .    write  sy - index .    ENDDO .    WRITE  / .    enddo .