ABAP CODE FOR PALINDROME

-
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.

Popular posts from this blog

Working with batch Classification Change Function Module

-
Here I want to change the batch classification details through FUNCTION MODULE. Function Module Name : VB_CHANGE_BATCH. Example Code: DATA : YMCHA          TYPE  MCHA ,      CHAR_OF_BATCH  TYPE  TABLE  OF  CLBATCH ,      WA_OF_BATCH    TYPE  CLBATCH ,      CHANGED_BATCH  TYPE  TABLE  OF  MCHA ,      ZIMSEG         TYPE  TABLE  OF  IMSEG ,       RETURN         TYPE  TABLE  OF  BAPIRET2 . SELECT  SINGLE  MATNR ,               WERKS ,               CHARG  FROM  MSEG                INTO  @DATA ( WA_MSEG )                WHERE  MBLNR  =  '2020024858' . "give any other material document                                         "number in MSEG table which contain Batch IF  WA_MSEG  IS  NOT  INITIAL .   YMCHA - MATNR  =  WA_MSEG - MATNR .           "here i am passing material   YMCHA - WERKS  =  WA_MSEG - WERKS .           "plant   YMCHA - CHARG  =  WA_MSEG - CHARG .           "batch    CLEAR  WA_MSEG .   WA_OF_BATCH - ATNAM  =  'FB' .            
Read more

ABAP CODE FOR FIBONACCI SERIES

-
Image
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 .
Read more

WORKING WITH BOM EXPLOSION FUNCTION MODULE(CS_BOM_EXPL_MAT_V2)

-
Here You will get the BOM(Bill of Material) details using Function Module. Function Module Name :  CS_BOM_EXPL_MAT_V2 Example: CALL  FUNCTION  'CS_BOM_EXPL_MAT_V2'        EXPORTING         AUSKZ                  =  'X'         CAPID                  =  'PP01'         DATUV                  =   SY - DATUM    "DATE         EHNDL                  =  '1'         EMENG                  = IM _ YIELD     "Pass Quantity         MKTLS                  =  'X'         MMORY                  =  '1'         MTNRV                  =  IM_MATERIAL  "Pass Material         STPST                  =  0         SVWVO                  =  'X'         WERKS                  = IM _ PLANT     "Pass Plant         VRSVO                  =  'X'        TABLES         STB                    =  EX_STB         MATCAT                 =  EX_MATCAT        EXCEPTIONS         ALT_NOT_FOUND          =  1         CALL_INVALID          
Read more