WILD CARDS

DATA:   IT_RANGE TYPE RANGE OF STRING,
        WA_RANGE LIKE LINE OF IT_RANGE.


DATA:   UTN TYPE ZFMS_TTDT-INUTN,
        UTN1 TYPE C LENGTH 7,
        UTN2 TYPE C LENGTH 6. 


UTN1 = WA_GRDT-INUTN+0(7).
UTN2 = WA_GRDT-INUTN+8(6).
CONCATENATE '3' UTN2 INTO UTN.
CONCATENATE UTN1 UTN INTO UTN.


WA_RANGE-SIGN   = 'I'.
WA_RANGE-OPTION = 'CP'.
WA_RANGE-LOW  = '++++2012*'.
APPEND WA_RANGE TO IT_RANGE.
 
DELETE TTDT WHERE INUTN NOT IN IT_RANGE.
DELETE GRDT WHERE INUTN NOT IN IT_RANGE.

DELETE FROM Z_TTDT WHERE INUTN IN IT_RANGE.
DELETE FROM Z_GRDT WHERE INUTN IN IT_RANGE.