Hi
Hope the below code can give you some idea.
parameters: p_month like T009B-POPER, p_year like T009B-BDATJ. constants: c_periv like T009B-PERIV value 'F1'. data: l_begin like sy-datum, l_end like sy-datum. CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' EXPORTING I_GJAHR = p_year * I_MONMIT = 00 I_PERIV = c_periv I_POPER = p_month IMPORTING E_DATE = l_begin EXCEPTIONS INPUT_FALSE = 1 T009_NOTFOUND = 2 T009B_NOTFOUND = 3 OTHERS = 4 . IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET' EXPORTING I_GJAHR = p_year * I_MONMIT = 00 I_PERIV = c_periv I_POPER = p_month IMPORTING E_DATE = l_end EXCEPTIONS INPUT_FALSE = 1 T009_NOTFOUND = 2 T009B_NOTFOUND = 3 OTHERS = 4 . IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. types: begin of t_vbak, vbeln like vbak-vbeln, auart like vbak-auart, vkorg like vbak-vkorg, vtweg like vbak-vtweg, spart like vbak-spart, erdat like vbak-erdat, end of t_vbak. data: it_vbak type standard table of t_vbak, wa_vbak type t_vbak. select vbeln auart vkorg vtweg spart erdat into table it_vbak from vbak where erdat ge l_begin and erdat le l_end.
Kind Regards
Eswar
Add a comment