SAP Program to implement innerjoin between VBAK and VBAP standard table

 REPORT ZSM_INNERJOIN5.

TYPES: BEGIN OF str,
  vbeln TYPE vbeln,
  erdat type erdat,
  erzet type erzet,
  ernam TYPE ernam,
  matnr TYPE matnr,
  matwa TYPE matwa,
  pmatn TYPE pmatn,
end of str.

data: it TYPE STANDARD TABLE OF str,
      wa type str.

select vbak~vbeln
       vbak~erdat
       vbak~erzet
       vbak~ernam

       vbap~matnr
       vbap~matwa
       vbap~pmatn

  FROM vbak INNER JOIN vbap ON vbak~vbeln = vbap~vbeln INTO TABLE it.

  if sy-subrc = 0.
    LOOP at it into wa.
      write:/ wa-vbeln, wa-erdat, wa-erzet, wa-ernam, wa-matnr, wa-matwa, wa-pmatn.
      ENDLOOP.
    ENDIF.

SAP Program to innerjoin MKPF and MSEG

 REPORT ZSM_MBLR.

TABLES: MKPF, MSEG.

PARAMETERS: mblnr TYPE mkpf-mblnr,
            mjahr TYPE mkpf-mjahr.

TYPES: BEGIN OF str,
         mblnr TYPE mkpf-mblnr,
         mjahr TYPE mkpf-mjahr,
         vgart  TYPE mkpf-vgart,
         blart  TYPE mkpf-blart,
         matnr  TYPE mseg-matnr,
         werks  TYPE mseg-werks,
       END OF str.

DATA: it TYPE TABLE OF str.

SELECT m1~mblnr, m1~mjahr, m1~vgart, m1~blart, m2~matnr, m2~werks
  INTO CORRESPONDING FIELDS OF TABLE @it
  FROM mkpf AS m1
  INNER JOIN mseg AS m2 ON m1~mblnr = m2~mblnr AND m1~mjahr = m2~mjahr
  WHERE m1~mblnr = @mblnr
    AND m1~mjahr = @mjahr.

LOOP AT it INTO DATA(str).
  WRITE: / str-mblnr, str-mjahr, str-vgart,
         str-blart, str-matnr, str-werks.
ENDLOOP.

Program in sap abap to only show 1000s records

 REPORT zvp_test80.

DATA: it TYPE STANDARD TABLE OF likp,
      wa TYPE likp.

PARAMETERS: p_vkorg TYPE vkorg DEFAULT '1000'.

SELECT * FROM likp INTO TABLE it WHERE vkorg = p_vkorg.

WRITE: 'Delivery', 'Delivery Type', 'Sales Org'.
ULINE.

LOOP AT it INTO wa.
  WRITE:/ wa-vbeln, ' ', wa-lfart, '     ', wa-vkorg.
ENDLOOP.

Program in SAP ABAP that when we run that code the location record gets deleted in the custom table zvp_location

 REPORT ZSM_LOCATION.

TABLES: zvp_location.

PARAMETERS: p_locatn TYPE zvp_location-location.

DATA: lv_deleted TYPE i.

START-OF-SELECTION.
  DELETE FROM zvp_location WHERE location = p_locatn.
  lv_deleted = sy-dbcnt.

  IF sy-subrc = 0.
    COMMIT WORK.
    WRITE: / 'Location record deleted successfully.'.
    WRITE: / lv_deleted, 'record(s) deleted.'.
  ELSE.
    WRITE: / 'Error occurred while deleting location record.'.
  ENDIF.

                   

SAP Program to find the largest number between three numbers

REPORT largest_number_program.

DATA: num1 TYPE i,

      num2 TYPE i,

      num3 TYPE i,

      largest_number TYPE i.

PARAMETERS: p_num1 TYPE i,

            p_num2 TYPE i,

            p_num3 TYPE i.

INCLUDE largest_number_subroutine.

START-OF-SELECTION.

  PERFORM find_largest_number.

FORM find_largest_number.

  IF p_num1 >= p_num2 AND p_num1 >= p_num3.

    largest_number = p_num1.

  ELSEIF p_num2 >= p_num1 AND p_num2 >= p_num3.

    largest_number = p_num2.

  ELSE.

    largest_number = p_num3.

  ENDIF.

  WRITE: / 'The largest number is', largest_number.

ENDFORM.

Simple SAP Program to add two numbers

REPORT Z_ADD_TWO_NUMBERS.

PARAMETERS: p_num1 TYPE i,

            p_num2 TYPE i.

DATA: lv_result TYPE i.

lv_result = p_num1 + p_num2.

WRITE: / 'The sum of', p_num1, 'and', p_num2, 'is', lv_result.

SAP Program to use all four control break statement in a program

 PROGRAM : 

REPORT zsm_internal3.

TYPES: BEGIN OF str,
         id      TYPE string,
         name    TYPE string,
         address TYPE string,
       END OF str.

DATA: it TYPE STANDARD TABLE OF str,
      wa TYPE str.

wa-id = '1'.
wa-name = 'AAA'.
wa-address = 'Panchpota'.
APPEND wa TO it.


wa-id = '2'.
wa-name = 'BBB'.
wa-address = 'Balia'.
APPEND wa TO it.


wa-id = '3'.
wa-name = 'CCC'.
wa-address = 'Shitolamandir'.
APPEND wa TO it.


wa-id = '4'.
wa-name = 'DDD'.
wa-address = 'Garia Bazar'.
APPEND wa TO it.


wa-id = '5'.
wa-name = 'EEE'.
wa-address = 'Nabagram'.
APPEND wa TO it.


wa-id = '6'.
wa-name = 'FFF'.
wa-address = 'Narendrapur'.
APPEND wa TO it.


wa-id = '7'.
wa-name = 'GGG'.
wa-address = 'Pratapgarh'.
APPEND wa TO it.


wa-id = '8'.
wa-name = 'HHH'.
wa-address = 'Mahamayatala'.
APPEND wa TO it.


wa-id = '9'.
wa-name = 'III'.
wa-address = 'Garia Metro'.
APPEND wa TO it.


wa-id = '10'.
wa-name = 'JJJ'.
wa-address = 'Mouchak'.
APPEND wa TO it.

SORT it BY id.

LOOP AT it INTO wa.

  AT FIRST.
    WRITE:/ 'First Entry'.
    WRITE:/ wa-id, wa-name, wa-address.
  ENDAT.

  AT NEW id.
    WRITE:/ 'New Entry'.
  ENDAT.

  WRITE:/ wa-id, wa-name, wa-address.

  AT LAST.
    WRITE:/ 'Last Entry'.
    WRITE:/ wa-id, wa-name, wa-address.
  ENDAT.

  AT END OF id.
    WRITE:/ 'End of'.
  ENDAT.
ENDLOOP.

OUTPUT :