Do 20 times varying

Question

hi all,
can anyone plz tell me the use of Varying? tell me with example. actually i m using statement like below but i m getting only 0 values.--
DATA: BEGIN OF WAGETYPES,
      LGA LIKE P0008-LGA01,
      BET LIKE P0008-BET01,
  END OF WAGETYPES.
DO 20 TIMES VARYING WAGETYPES
              FROM P0008-LGA01
              NEXT P0008-LGA02.
    IF WAGETYPES-LGA IS INITIAL.
      EXIT.
    endif.
DO 15 TIMES VARYING WAGETYPES
              FROM P0589-LGA01
              NEXT P0589-LGA02.
    IF WAGETYPES-LGA IS INITIAL.
      EXIT.
    endif.
problem is that i m not getting any value in output only showing 0 value. can anyone please solve this issue?
regards Nitin.

Answer 1

Hi Saurabh,
  Check this sample code
REPORT z_sdn.
PARAMETERS:
  p_pernr TYPE pa0000-pernr,
  p_dat TYPE t548t-datar.
DATA:
  BEGIN OF fs_pa0000,
    pernr TYPE pa0000-pernr,
  END OF fs_pa0000,
  w_dtype TYPE pa0041-dar01,
  w_dat TYPE pa0041-dat01.
DATA: fs_548 TYPE t548t.
DATA: t_548 LIKE
      TABLE OF
            fs_548.
DATA:
  t_pa0000 LIKE
     TABLE OF
           fs_pa0000.
DATA:
  fs_p41 TYPE p0041.
DATA:
  t_p41 TYPE
  TABLE OF
        p0041.
START-OF-SELECTION.
  PERFORM get_pernr.
  PERFORM get_data.
  PERFORM disp_data.
*&      Form  get_pernr
*       text
*  -->  p1        text
*  <--  p2        text
FORM get_pernr .
  SELECT pernr
    FROM pa0000
    INTO TABLE t_pa0000
   WHERE pernr EQ p_pernr
     AND begda LT sy-datum
     AND endda GT sy-datum.
ENDFORM.                    " get_pernr
*&      Form  get_data
*       text
*  -->  p1        text
*  <--  p2        text
FORM get_data .
  LOOP AT t_pa0000 INTO fs_pa0000.
    CALL FUNCTION 'HR_READ_INFOTYPE'
      EXPORTING
        pernr                 = fs_pa0000-pernr
        infty                 = '0041'
      TABLES
        infty_tab             = t_p41
     EXCEPTIONS
       infty_not_found       = 1
       OTHERS                = 2
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " get_data
*&      Form  disp_data
*       text
*  -->  p1        text
*  <--  p2        text
FORM disp_data .
   READ TABLE t_p41 INTO fs_p41 INDEX 1.
   DO 12 TIMES VARYING w_dtype FROM fs_p41-dar01 NEXT fs_p41-dar02
      VARYING w_dat FROM fs_p41-dat01 NEXT fs_p41-dat02.
     IF p_dat EQ w_dtype.
       SELECT *
         FROM t548t
         INTO TABLE t_548
        WHERE datar = w_dtype
          AND sprsl = 'EN'.
       READ TABLE t_548 INTO fs_548 INDEX 1.
         WRITE: /2  'Personnel Number'(002),
                 15 'Begin Date'(003),
                 28 'End Date'(004),
                 40 'Date Type'(005),
                 53 'Date'(006),
                 65 'Date Text'(007).
         WRITE: / fs_p41-pernr UNDER text-002,
                  fs_p41-begda UNDER text-003,
                  fs_p41-endda UNDER text-004,
                  w_dtype      UNDER text-005,
                  w_dat        UNDER text-006,
                  fs_548-dtext UNDER text-007.
       EXIT.
     ENDIF.
   ENDDO.
ENDFORM.                    " disp_data
Regards
Abhijeet