How to count the number of lines dynamically,

Question

In the below code am trying to read the lines which are selected using a check box, also am categorizing the contents depending on the follow up material.
after displaying one category contents am displaying a line
which also counts to a line in the internal table.
My question is how to count the number of lines(ULINE) displayed dynamically.
FORM GET_LINES .
  DATA: LV_LINES TYPE I,
        LV_TIMES TYPE I,
        LV_TABIX TYPE SY-TABIX.
  DESCRIBE TABLE IT_REC LINES LV_LINES.
  DO LV_LINES TIMES.
    LV_TIMES = SY-INDEX .
    READ LINE LV_TIMES FIELD VALUE IT_REC-CHECK INTO GV_CHECK.
    IF SY-SUBRC EQ 0 AND GV_CHECK IS NOT INITIAL.
      LV_TABIX =  LV_TIMES.
      READ TABLE IT_REC INDEX LV_TABIX INTO GWA_UPDATE.
      IF SY-SUBRC EQ 0.
        APPEND GWA_UPDATE TO GT_UPDATE.
      ENDIF.
    ENDIF.
  ENDDO.
ENDFORM.                    " GET_LINES

Answer 1

In the below code am trying to read the lines which are selected using a check box, also am categorizing the contents depending on the follow up material.
after displaying one category contents am displaying a line
which also counts to a line in the internal table.
My question is how to count the number of lines(ULINE) displayed dynamically.
FORM GET_LINES .
  DATA: LV_LINES TYPE I,
        LV_TIMES TYPE I,
        LV_TABIX TYPE SY-TABIX.
  DESCRIBE TABLE IT_REC LINES LV_LINES.
  DO LV_LINES TIMES.
    LV_TIMES = SY-INDEX .
    READ LINE LV_TIMES FIELD VALUE IT_REC-CHECK INTO GV_CHECK.
    IF SY-SUBRC EQ 0 AND GV_CHECK IS NOT INITIAL.
      LV_TABIX =  LV_TIMES.
      READ TABLE IT_REC INDEX LV_TABIX INTO GWA_UPDATE.
      IF SY-SUBRC EQ 0.
        APPEND GWA_UPDATE TO GT_UPDATE.
      ENDIF.
    ENDIF.
  ENDDO.
ENDFORM.                    " GET_LINES
The display function is:
FORM DISPLAY_DATA .
  ULINE.
  WRITE :  /1 SY-VLINE, 'check',
            10 SY-VLINE, 'Plant',
           20 SY-VLINE, 'Material number',
           50 SY-VLINE, 'Follow up material',
           70 SY-VLINE, 'Safety stock',
          100 SY-VLINE, 'Partc'.
  ULINE.
  LOOP AT IT_MARC.
    MOVE: IT_MARC-WERKS TO IT_REC-WERKS,
          IT_MARC-MATNR TO IT_REC-MATNR,
          IT_MARC-NFMAT TO IT_REC-NFMAT,
          IT_MARC-EISBE TO IT_REC-EISBE,
          IT_MARC-PARTC TO IT_REC-PARTC .
    APPEND IT_REC.
    CLEAR IT_MARC.
  ENDLOOP.
  DATA: GV_TABIX TYPE SY-TABIX.
  LOOP AT IT_REC.
    GV_TABIX = SY-TABIX.
    READ TABLE GT_TOTAL WITH KEY WERKS = IT_REC-WERKS
                                 NFMAT = IT_REC-NFMAT.
    IF SY-SUBRC EQ 0.
      IT_REC-PARTC = GT_TOTAL-PARTC.
      MODIFY IT_REC INDEX GV_TABIX TRANSPORTING PARTC.
    ENDIF.
  ENDLOOP.
  LOOP AT IT_REC.
    WRITE : /1 SY-VLINE, IT_REC-CHECK AS CHECKBOX,
            10 SY-VLINE, IT_REC-WERKS,
            20 SY-VLINE, IT_REC-MATNR,
            50 SY-VLINE, IT_REC-NFMAT,
            70 SY-VLINE, IT_REC-EISBE,
           100 SY-VLINE, IT_REC-PARTC.
    AT END OF NFMAT.
      ULINE.
    ENDAT.
  ENDLOOP.
  ULINE.
ENDFORM.                    " DISPLAY_DATA
Solved