SAP ABAP - Sample Program To Fetch Company Code Of All The Vendors.
This sample program can be used to fetch company codes of all the vendors . REPORT ztest_comp_code_of_vendor. DATA:BEGIN OF fieldnames OCCURS 0, field(75), END OF fieldnames. DATA: BEGIN OF it_final OCCURS 0, altkn TYPE altkn, lifnr TYPE lifnr, bukrs TYPE bukrs, name1 TYPE name1_gp, name2 TYPE name2_gp, END OF it_final. DATA: BEGIN OF it_lfa1 OCCURS 0, lifnr TYPE lifnr, name1 TYPE name1_gp, name2 TYPE name2_gp, END OF it_lfa1. DATA: BEGIN OF it_lfb1 OCCURS 0, lifnr TYPE lifnr, bukrs TYPE bukrs, altkn TYPE altkn, END OF it_lfb1. DATA:file TYPE string. DATA: vendor TYPE lifnr. SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. PARAMETER : pfname LIKE rlgrap-filename OBLIGATORY. SELECTION-SCREEN : END OF BLOCK b1. AT SELECTION-SCREEN ON VALUE-REQUEST FOR pfname. CALL FUNCTION 'KD_GET_FILENAME_ON_F4' EXPORTING static = 'X' CHANGING file_name = pfname. START-OF-SELECTION. SELECT lifnr name1 name2 INTO TABLE it_...