Help require in ABAP programing.

Question

Good Afternoon all ,
Target : To fill the value in ZPLN_DLTM which is attribute of 0MAT_PLANT
The logic for updating the field is as follows:
  We want this Planned Delivery time to be based off of an InfoRecord (ZGOPRO71 and the new ZGOPRO59).  If there is no InfoRecord found then we will use 0PLND_DELRY on 0MAT_PLANT (PLIFZ).
     SELECT INFO_REC, PURCH_ORG, INFO_TYPE the first row you find From the active table of ODS ZGOPRO71
     WHERE material and plant = the material and plant on the record from R/3
     AND PURCH_ORG between 0000 and 9999.
Now take the INFNR (InfoRecord) found and select from the new ZGOPRO59 ODS.
     SELECT SINGLE DURSHP_PL (planned delivery time) FROM active table of ZGOPRO59
     WHERE INFO_REC, PURCH_ORG, INFO_TYPE match from the above SELECT
     AND PLANT = plant on the record from R/3.
     Lastly the RESULT should equal the DURSHP_PL from the above SELECT +
          GR_PR_TIME.
If you cannot find a record from either of the two SELECT statements, then set the RESULT to PLND_DELRY.
***************This program i have written in an INCLUDE***********
TABLES:/bic/AZGOPRO5900,
        /bic/AZGOPRO7100.
DATA: wa_datapak_line  type TRANSFER_STRUCTURE.
****Internal table for ZGOPRO71******
DATA: Begin of i_zgopro7100 occurs 0,
              Material       type /bic/azgopro7100-material,
              Plant          type /bic/azgopro7100-plant,
              INFO_REC       type /bic/azgopro7100-INFO_REC,
              INFO_TYPE      type /bic/azgopro7100-INFO_TYPE,
              PURCH_ORG      type /bic/azgopro7100-PURCH_ORG,
      End of i_zgopro7100.
****Internal table for ZGOPRO59******
DATA: Begin of i_zgopro5900 occurs 0,
               Material       type /bic/azgopro5900-Material,
               Plant          type /bic/azgopro5900-Plant,
               INFO_REC       type /bic/azgopro5900-INFO_REC,
               DURSHP_PL      type /bic/azgopro5900-DURSHP_PL,
               INFO_TYPE      type /bic/azgopro5900-INFO_TYPE,
               PURCH_ORG      type /bic/azgopro5900-PURCH_ORG,
      End of i_zgopro5900.
******For Loading Data into Internal table i_zgopro7100 ******
Refresh: i_zgopro7100.
Select  Material Plant INFO_REC INFO_TYPE PURCH_ORG from /bic/azgopro7100
     INTO TABLE  i_zgopro7100
     FOR ALL ENTRIES IN datapak
          WHERE  Material = datapak-mat_plant
          AND    Plant = datapak-plant
           AND  PURCH_ORG BETWEEN 0000 AND 9999.
Sort i_zgopro7100 by plant.
For Loading Data into Internal table i_zgopro5900 ******
Refresh: i_zgopro5900.
Select  Material Plant INFO_REC DURSHP_PL INFO_TYPE PURCH_ORG from /bic/azgopro5900
     INTO TABLE i_zgopro5900
     FOR ALL ENTRIES IN datapak
      WHERE Material = datapak-mat_plant.
Sort i_zgopro5900 by plant.
loop at datapak into wa_datapak_line.
  ztabix = sy-tabix.
READ TABLE  i_zgopro7100
  WITH KEY Material = wa_datapak_line-mat_plant
              Plant = wa_datapak_line-plant
                          BINARY SEARCH.
  if sy-subrc = 0.
    READ TABLE i_zgopro5900
    WITH KEY INFO_REC = i_zgopro7100-INFO_REC
                           Material = i_zgopro7100-Material
                           INFO_TYPE = i_zgopro7100-INFO_TYPE
                           PURCH_ORG = i_zgopro7100-PURCH_ORG
                           Plant = wa_datapak_line-plant.
    if sy-subrc = 0.
      wa_datapak_line-/bic/ZPLN_DLTM = i_zgopro5900-DURSHP_PL + wa_datapak_line-gr_pr_time.
    Else.
      wa_datapak_line-/bic/ZPLN_DLTM = wa_datapak_line-plnd_delry.
    Endif.
  Else.
    wa_datapak_line-/bic/ZPLN_DLTM = wa_datapak_line-plnd_delry.
  Endif.
modify datapak from wa_datapak_line index ztabix.
endloop.
*********My question****************
The sy-subrc returned value 4 even though row is found
the data is not updated in the field ZPLN_DLTM it copies valu from PLND_DELRY by default even though it satisfies the conditions but if u load for specific plant and material values get loaded in the field with proper calculation.
For the right answer points will be rewarded.

Answer 1

Hi Vaishali,
In following code fragment ,
Select Material Plant INFO_REC INFO_TYPE PURCH_ORG from /bic/azgopro7100
INTO TABLE i_zgopro7100
FOR ALL ENTRIES IN datapak
WHERE Material = datapak-mat_plant
AND Plant = datapak-plant
AND PURCH_ORG BETWEEN 0000 AND 9999.
Sort i_zgopro7100 by plant.
try with following changes
1. Comment 
AND PURCH_ORG BETWEEN 0000 AND 9999.
2. Instead of
Sort i_zgopro7100 by plant.
   Write
Sort i_zgopro7100 by material plant.
In following code fragment
loop at datapak into wa_datapak_line.
ztabix = sy-tabix.
READ TABLE i_zgopro7100
WITH KEY Material = wa_datapak_line-mat_plant
Plant = wa_datapak_line-plant
BINARY SEARCH.
if sy-subrc = 0.
READ TABLE i_zgopro5900
1. After statement
ztabix = sy-tabix.
  Insert
   Clear i_zgopro7100.
    Clear i_zgopro5900.
And let us know the output .
Hope that helps.
Regards
Mr Kapadia
Assigning points is the way to say thanks in SDN.