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.