Inserting record in standard table

Question

Dear Sapians
I want to insert a record in standard table PRPS for testing one scenario. we tried to insert through abap program but we are unable to insert data in the PSPNR field.
Best regards
Sukumaran.E

Answer 1

hi,
check this code it may help u,
TABLES : AFKO,
         AFPO.
DATA : BEGIN OF GI_AFKO OCCURS 1,
       AUFNR LIKE AFKO-AUFNR,
       END OF GI_AFKO.
data gi_AFPO like ZPRODUCT occurs 0 with header line.
*DATA : BEGIN OF GI_AFPO  OCCURS 100,
      MANDT LIKE
      MATNR LIKE AFPO-MATNR,
      DWERK LIKE AFPO-DWERK,
      END OF GI_AFPO.
DATA: gv_date(11)," LIKE ekpo-aedat,
      gv_date1(11),
      year(4),
      month(2),
      day(2),
      flag(1),
      read_flag(1).
START-OF-SELECTION.
  gv_date1 = sy-datum.
  year = gv_date1+0(4).
  month = gv_date1+4(2).
  day = gv_date1+6(2).
  year = year - 3.
  CLEAR gv_date1.
  CONCATENATE year month day INTO gv_date1.
  select aufnr
         from afko
         into table gi_afko
         where ( GLTRP <= sy-datum AND gltrp >= gv_date1 ) .
  IF SY-SUBRC = 0.
    select matnr
        dwerk
        from afpo
        into CORRESPONDING FIELDS OF table gi_afpo
        for all entries in gi_afko
        where aufnr = gi_afko-aufnr.
  ENDIF.
  SORT GI_AFPO BY MATNR.
  IF NOT GI_AFPO[] IS INITIAL.
    MODIFY ZPRODUCT FROM TABLE GI_AFPO.
    IF SY-SUBRC = 0.
      MESSAGE I003 WITH 'VALUES UPDATED IN TO TABLE ZPRODUCT'.
    ELSE.
      MESSAGE I003 WITH 'VALUES NOT UPDATED IN TO TABLE ZPRODUCT'.
    ENDIF.
regards
siva