вторник, 29 апреля 2014 г.

RANGE

DATAr_calday TYPE RANGE OF /BI0/OICALDAY.


IF r_calday IS INITIAL OR CALDAY NOT IN r_calday.
 
 SELECT CALDAY /BIC/NCACC /BIC/NCSRCSYS /BIC/NCBISELEM
   
 FROM /BIC/ANORKORST00
   
 APPENDING TABLE Table_biselemrst
   
 WHERE CALDAY = CALDAY AND /BIC/NCACC = NCACC.

  wa_calday-
SIGN   = 'I' .
  wa_calday-OPTION =
 'EQ' .
  wa_calday-LOW    = CALDAY.
 
 APPEND wa_calday TO r_calday.
ENDIF.

___________________________________________________________

Ещё немного RANGE:

types:
      begin of lty_rec,
        l_rec(30)       type c,
        end of lty_rec.

data:
      lr_rec        type range of lty_rec,
      lt_rec        like table of lr_rec,
      wa_rec        like line of lr_rec.

___________________________________________________________

Заполняем range по-модному:

      lt_mm1004_range VALUE #FOR entry IN gt_mm1004
          VALUE #BASE CORRESPONDING #entry )
            sign    'I'
            option  'EQ' )
           ).

Комментариев нет:

Отправить комментарий