Wednesday 20 March 2024

SAP Program to innerjoin MKPF and MSEG

 REPORT ZSM_MBLR.

TABLESMKPFMSEG.

PARAMETERSmblnr TYPE mkpf-mblnr,
            mjahr TYPE mkpf-mjahr.

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

DATAit TYPE TABLE OF str.

SELECT m1~mblnrm1~mjahrm1~vgartm1~blartm2~matnrm2~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-mblnrstr-mjahrstr-vgart,
         str-blartstr-matnrstr-werks.
ENDLOOP.










Friday 15 March 2024

Program in sap abap to only show 1000s records

 REPORT zvp_test80.


DATAit TYPE STANDARD TABLE OF likp,
      wa TYPE likp.

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


TABLESzvp_location.

PARAMETERSp_locatn TYPE zvp_location-location.

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








                   



Saturday 9 March 2024

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.


Wednesday 6 March 2024

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.

Friday 23 February 2024

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

 PROGRAM : 


REPORT zsm_internal3.

TYPESBEGIN OF str,
         id      TYPE string,
         name    TYPE string,
         address TYPE string,
       END OF str.

DATAit 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-idwa-namewa-address.
  ENDAT.

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

  WRITE:/ wa-idwa-namewa-address.

  AT LAST.
    WRITE:'Last Entry'.
    WRITE:/ wa-idwa-namewa-address.
  ENDAT.

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



OUTPUT :