LOOPING THRU LINE ITEM

Question

HI IAM TRYING TO VALIDATE  FIRST CHECKING WHTETHER THE BILLING PLAN IS AT THE HEADER LEVEL OR AT THE ITEM LEVEL.
HOW CAN I LOOP THRU ALL THE ITEMS IF THE BILLING PLAN IS AT THE ITEM LAVEL I NEED TO LOOP THRU ALLL THE ITEMS!!SOME OF THEM MAY HAVE BILLING PLAN AT THE ITEM LEVEL AND SOME AT THE HEADER LEVEL.
PLSS TELL ME HOW TO DO IT FOR THE ITEM LEVEL.
POINTS PROMISED!!

Answer 1

i have done the code this way will it work???
TYPES: BEGIN OF gst_fpla,
        fplnr TYPE fpla-fplnr,
        vbeln TYPE fpla-vbeln,
        rfpln TYPE fpla-rfpln,
        END OF gst_fpla.
  TYPES: BEGIN OF gst_fplt,
        fplnr TYPE fplt-fplnr,
        fproz TYPE fplt-fproz,
        fareg TYPE fplt-fareg,
        END OF gst_fplt.
TYPES: BEGIN OF gst_fplt1,
       fplnr type fplt-fplnr,
       end of gst_fplt1.
  DATA: gi_fpla TYPE STANDARD TABLE OF gst_fpla.
  DATA: gi_fplt TYPE STANDARD TABLE OF gst_fplt.
  DATA: gw_fpla TYPE gst_fpla.
  DATA: VAR1(1) TYPE C.
  DATA: VAR2(9) TYPE C.
  DATA: GW_XFPLA LIKE XFPLA.
  DATA: gw_fplt TYPE gst_fplt.
  TYPES: BEGIN OF GST_RFPLN,
          RFPLN TYPE FPLA-RFPLN,
        END OF GST_RFPLN.
DATA: GI_RFPLN TYPE STANDARD TABLE OF GST_RFPLN.
DATA: GW_RFPLN TYPE GST_RFPLN.
data: gi_fplt1 type standard table of gst_fplt1.
data: gw_fplt1 type gst_fplt1.
  IF ( sy-tcode = 'VA01' OR sy-tcode = 'VA02' OR sy-tcode = 'VA21' OR  sy-tcode = 'VA22' ) AND ( vbak-auart = 'ZQT' OR vbak-auart = 'ZNS' ).
IF RV45A-KFREL = 'X'.
  IF XFPLA[] IS NOT INITIAL.
  LOOP AT XFPLA INTO GW_XFPLA.
  GW_RFPLN-RFPLN = GW_XFPLA-RFPLN.
  APPEND GW_RFPLN TO GI_RFPLN.
  ENDLOOP.
SPLIT GW_XFPLA-RFPLN AT '$' INTO VAR1 VAR2.
DATA: BEGIN OF MRFPLN,
          rfpln1 type c length 1 value '0' ,
          rfpln2 type c length 9 value '',
          end of MRFPLN.
      MRFPLN-rfpln2 = VAR2.
DATA: RFPLN TYPE STRING.
  RFPLN = MRFPLN.
CONDENSE RFPLN.
  SELECT fplnr vbeln rfpln FROM FPLA INTO TABLE gi_fpla  FOR ALL  ENTRIES IN GI_RFPLN WHERE fplnr = GI_RFPLN-RFPLN.
ENDIF.
  loop at gi_fpla into gw_fpla.
  if gw_fpla-vbeln = '' and gw_fpla-rfpln = ''.
  READ TABLE xfpla WITH KEY rfpln = gw_fpla-fplnr.
  if sy-subrc NE 0.
  MESSAGE  W047(YD01).
  write:'invalid reference number'.
  else.
  gw_fplt1-fplnr = gw_fpla-fplnr.
  append gw_fplt1 to gi_fplt1.
    ENDIF.
    ENDIF.
    ENDLOOP.
  ENDIF.
  SELECT fplnr fproz fareg from fplt into  TABLE GI_FPLT for all entries in gi_fplt1 where fplnr = gi_fplt1-fplnr.
  LOOP AT GI_FPLT INTO GW_FPLT.
  READ TABLE XFPLT WITH KEY FAREG = gw_fplt-fareg.
  if sy-subrc NE 0.
  WRITE:'BILLING RULE IS INVALID'.
  ELSE.
WRITE:'CORRECT BILLING RULE'.
  READ TABLE XFPLT WITH KEY FPROZ = gw_fplt-fproz.
  if sy-subrc ne 0.
  write: 'billing percentage is invalid'.
  else.
  write: 'valid billing percentage'.
  endif.
  ENDIF.
  ENDLOOP.
ELSE.                                                "ELSE FOR RV45A
CLEAR: GI_FPLA.
CLEAR: GI_FPLT.
CLEAR: GI_RFPLN.
CLEAR: GI_FPLT1.
REFRESH: GI_FPLA.
REFRESH: GI_FPLT.
REFRESH: GI_RFPLN.
REFRESH: GI_FPLT1.
do the validations for item level.
  ENDIF.                                                "for  rv45a-if.
  ENDIF.