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.
Suva Programming
Blog about C++ and other programming source code.
Wednesday 20 March 2024
SAP Program to innerjoin MKPF and MSEG
Friday 15 March 2024
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.
Saturday 9 March 2024
SAP Program to find the largest number between three numbers
Wednesday 6 March 2024
Simple SAP Program to add two numbers
Friday 23 February 2024
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 :