BDC for CO02 , How to check conditions

Question

Hi,
i m trying a BDC of CO02- Change Production Order, i have recorded the transaction by changing the date field in the first screen and then by pressing "Operation Overview" button to change the "WorkCenter".
The Workcenter screen holds the value in the table control.
After recording , when i pass value from TXT file, the BDC Program should identify the table control row which is having AFVGD-KTSCH's Value as 'SEWING', so that the value from the TXT file should replace the another field AFVGD-ARBPL based on the stdtext-'SEWING'.
can any body help me in this.

Answer 1

dear prabhu,
see the below code, suggest me where to do the checking,
see the BOLD part of the mail for more info.
pls help in this, i m new to BDC.
regs,
raja
data: str type c length 1,
var type c length 30,
cntr type i.
data: begin of record,
  AUFNR(012),
  FLG_OVIEW(001),
  GLTRP(010),
  GSTRP(010),
  ARBPL(008),
  KTSCH(020),
end of record.
DATA: itab LIKE record OCCURS 1000 WITH HEADER LINE.
PARAMETERS textfile LIKE rlgrap-filename DEFAULT
'c:\prdord.txt'.
End generated data section ***
START-OF-SELECTION.
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      filename            = textfile
      filetype            = 'DAT'
    TABLES
      data_tab            = itab
    EXCEPTIONS
      conversion_error    = 1
      file_open_error     = 2
      file_read_error     = 3
      invalid_type        = 4
      no_batch            = 5
      unknown_error       = 6
      invalid_table_width = 7
      OTHERS              = 8.
  IF sy-subrc <> 0.
    WRITE:/ 'Upload From',textfile,'to itab is not successful'.
    EXIT.
  ENDIF.
  LOOP AT itab.
IF sy-subrc <> 0. EXIT. ENDIF.
perform bdc_dynpro      using 'SAPLCOKO1' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-AUFNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'CAUFVD-AUFNR'
                              itab-AUFNR.
perform bdc_field       using 'R62CLORD-FLG_OVIEW'
                              itab-FLG_OVIEW.
perform bdc_dynpro      using 'SAPLCOKO1' '0115'.
perform bdc_field       using 'BDC_OKCODE'
                              '=TERM'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-GSTRP'.
perform bdc_field       using 'CAUFVD-GLTRP'
                              itab-GLTRP.
perform bdc_field       using 'CAUFVD-GSTRP'
                              itab-GSTRP.
perform bdc_dynpro      using 'SAPLCOKO1' '0115'.
perform bdc_field       using 'BDC_OKCODE'
                              '=VGUE'.
perform bdc_field       using 'BDC_CURSOR'
                              'CAUFVD-GAMNG'.
perform bdc_field       using 'CAUFVD-GSTRP'
                              itab-GSTRP.
perform bdc_dynpro      using 'SAPLCOVG' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'AFVGD-KTSCH'.
<b>Here is where i need to check whether the 'AFVGD-KTSCH'containing value 'SEWING' then the itab value should be placed in the below  screen-field.</b>
  perform bdc_field       using 'BDC_CURSOR'
                              'AFVGD-ARBPL(02)'.
  perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
  perform bdc_field       using 'AFVGD-ARBPL(02)'
                              itab-ARBPL.
  perform bdc_dynpro      using 'SAPLCOVG' '0100'.
  perform bdc_field       using 'BDC_OKCODE'
                              '=FREI'.
  perform bdc_field       using 'BDC_CURSOR'
                              'PSFC_DISP-AUFNR'.
perform bdc_dynpro      using 'SAPLSPO2' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=OPT1'.
perform bdc_dynpro      using 'SAPLCOVG' '0100'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
perform bdc_field       using 'BDC_CURSOR'
                              'PSFC_DISP-AUFNR'.
CALL TRANSACTION 'CO02' USING bdcdata MODE 'A'.
if sy-subrc eq 1001.
write:/ ITAB-aufnr,ITAB-arbpl, ITAB-gstrp.
write 'Not Updated'.
else.
write:/ ITAB-aufnr,ITAB-arbpl, ITAB-gstrp.
write 'Updated Successfully'.
endif.
REFRESH bdcdata.
*else.
write 'Improper Text File Format'.
*endif.
endloop.