Hi Anindya,
Its possible very easily, please refer the code below:-
TYPES : BEGIN OF ty_zpmpartloc,
mandt TYPE mandt,
part_class TYPE zpmpartloc-part_class,
werks TYPE zpmpartloc-werks,
lgort TYPE zpmpartloc-lgort,
ekgrp TYPE zpmpartloc-ekgrp,
prctr TYPE zpmpartloc-prctr,
mtvfp TYPE zpmpartloc-mtvfp,
END OF ty_zpmpartloc,
BEGIN OF ty_zpmpartcls,
mandt TYPE mandt,
parts TYPE zpmpartcls-parts,
part_class TYPE zpmpartcls-part_class,
END OF ty_zpmpartcls.
DATA: it_zpmpartcls TYPE TABLE OF ty_zpmpartcls,
it_zpmpartloc TYPE TABLE OF ty_zpmpartloc,
cursor1 TYPE cursor,
cursor2 TYPE cursor.
DATA : wa_zpmpartcls TYPE zpmpartcls,
wa_zpmpartloc TYPE zpmpartloc.
PARAMETER : p_mandt TYPE mandt.
START-OF-SELECTION.
OPEN CURSOR cursor1 for
SELECT mandt parts part_class FROM zpmpartcls CLIENT SPECIFIED
WHERE mandt = p_mandt.
IF sy-subrc EQ 0.
DO.
FETCH NEXT CURSOR cursor1 into wa_zpmpartcls.
IF sy-subrc <> 0.
CLOSE CURSOR cursor1.
EXIT.
ENDIF.
wa_zpmpartcls-mandt = sy-mandt.
APPEND wa_zpmpartcls to it_zpmpartcls.
ENDDO.
ELSE.
ENDIF.
OPEN CURSOR cursor2 for
SELECT mandt PART_CLASS WERKS LGORT EKGRP PRCTR MTVFP
FROM zpmpartloc CLIENT SPECIFIED
WHERE mandt = p_mandt.
IF sy-subrc EQ 0.
DO.
FETCH NEXT CURSOR cursor2 into wa_zpmpartloc.
IF sy-subrc <> 0.
CLOSE CURSOR cursor2.
EXIT.
ENDIF.
wa_zpmpartloc-mandt = sy-mandt.
APPEND wa_zpmpartloc to it_zpmpartloc.
ENDDO.
ENDIF.
END-OF-SELECTION.
MODIFY zpmpartcls FROM TABLE it_zpmpartcls.
MODIFY zpmpartloc FROM TABLE it_zpmpartloc.
COMMIT WORK.
Cheers...
Dhirendra
Bluesky
