ABAP Scenarios

REPORT  Y_MODIFY_DB_TABLE. DATA : wa_yjdemo type yjdemo. wa_yjdemo-yactive = 'C'. wa_yjdemo-ymatnr = '000000000000001900'. MODIFY YJDEMO FROM wa_yjdemo. If sy-subrc = 0.   Write 'Table modified'. Else.   Write 'Table not modified'. Endif.

  DATA : wa_temp LIKE record_tab, *        wa_shlp type SHLP_DESCR,          it_temp LIKE TABLE OF record_tab. *SHLP_TAB   DATA: it_shlp type SHLP_DESCR-interface,         wa_shlp LIKE LINE OF it_shlp ,            ls_selopt TYPE ddshselopt.  "loc str for shlp-selopt RANGES: lr_mfrpn FOR mara-mfrpn.  "Ranges for customer number *Build range for customer number  LOOP AT shlp-selopt INTO ls_selopt WHERE shlpfield = 'MFRPN'.  lr_mfrpn-sign = ls_selopt-sign.  lr_mfrpn-option = ls_selopt-option.  lr_mfrpn-low = ls_selopt-low.  lr_mfrpn-high = ls_selopt-high.  APPEND lr_mfrpn.  CLEAR: lr_mfrpn.  ENDLOOP.   LOOP AT record_tab INTO wa_temp. "  SHLP_TAB[1]-INTERFACE    READ TABLE it_shlp into wa_shlp WITH KEY value = wa_temp-string+18.    ...