ABAP Program Question

Question

Hi.
I have made a small program to read material nr. and extrapolate data from MARA-MSTAE into T141-MMSTA when certain conditions are met.
My problem is that I am not able to see material nr., it starts off with material '1000' but then the material field is no longer populated.
This is the code:
REPORT  ZRYMTEST.
Tables: MARC, MARA, t141, rmmg1.
Data: xmmsta like t141-mmsta,
      xmstae like mara-mstae,
      xmatnr like mara-matnr.
  Select matnr from mara into xmatnr where matnr NE ' '.
      Select mstae from mara into xmstae.
          If xmstae EQ '98' or xmstae EQ '99'.
            Move xmstae to xmmsta.
           Elseif xmstae NE '98' or xmstae ne '99'.
            xmmsta = 'NA'.
          endif.
        clear xmatnr.
        clear xmstae.
        clear xmmsta.
   Endselect.
  Endselect.
I am sure that my code for getting material nr. is incorrect but I have not been able to fix it.
Hope you can help.
Sincerely,
Ryan

Answer 1

Your first SELECT loop selects all materials from MARA that aren't blank, into xmatnr.
Your second SELECT loop then runs through ALL MARA records getting the value of mstae.
As it stands your program does nothing but loop through MARA many times, setting variables then repeatedly clearing them.
I'm rather at a loss as to what you expect it to do.
TABLES: marc, mara, t141, rmmg1.
DATA: xmmsta LIKE t141-mmsta,
      xmstae LIKE mara-mstae,
      xmatnr LIKE mara-matnr.
SELECT matnr FROM mara INTO xmatnr WHERE matnr NE ' '. " Start loop through all materials that aren't blank
  SELECT mstae FROM mara INTO xmstae. " Loop through all materials, getting xmstae
* Set xmmsta according to xmstae
    IF xmstae EQ '98' OR xmstae EQ '99'.
      MOVE xmstae TO xmmsta.
    ELSEIF xmstae NE '98' OR xmstae NE '99'.
      xmmsta = 'NA'.
    ENDIF.
* Now clear everything
    CLEAR xmatnr.
    CLEAR xmstae.
    CLEAR xmmsta.
  ENDSELECT. " Continue loop through all materials
ENDSELECT. " Continue loop through all materials that aren't blank
Maybe this gives you an idea
SELECT matnr mstae FROM mara INTO (xmatnr, xmstae) WHERE matnr NE ' '.
  IF xmstae EQ '98' OR xmstae EQ '99'.
    MOVE xmstae TO xmmsta.
  ELSEIF xmstae NE '98' OR xmstae NE '99'.
    xmmsta = 'NA'.
  ENDIF.
* Now do something with xmatnr, xmstae and xmmsta.
  CLEAR xmatnr.
  CLEAR xmstae.
  CLEAR xmmsta.
ENDSELECT.
matt