PATTERN3

-
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 times.
        WRITE at j(1) l.
        j = j - 1.
        l = l - 1.
        ENDDO.
        WRITE /.

        i = i - 1.
        j = 5.
        l = 5.
        ENDDO.

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