宏(maro)

DEFINEcreate_string.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

* loop for inclusions

loop at s_&1.

offset = strlen( &1_string_&2 ).

c_low = s_&1-low.

c_high = s_&1-high.

shift c_low left deleting leading '0'.

shift c_high left deleting leading '0'.

shift c_low left deleting leading space.

shift c_high left deleting leading space.

if '&1' = 'date'.

concatenatec_low+4(2) '/' c_low+6(2) '/'

c_low+2(2) into c_low.

if not c_high is initial.

concatenatec_high+4(2) '/' c_high+6(2) '/'

c_high+2(2) into c_high.

endif.

endif.

case s_&1-option.

when 'EQ'.

check s_&1-sign = '&2'.

add_comma &1 &2.

&1_string_&2+offset = c_low.

when 'NE'.

check s_&1-sign = '&3'.

add_comma &1 &2.

&1_string_&2+offset = c_low.

when 'GT'.

check s_&1-sign = '&2'.

add_comma &1 &2.

&1_string_&2+offset = 'Greater than'.

offset = offset + 13.

&1_string_&2+offset = c_low.

when 'LE'.

check s_&1-sign = '&2'.

add_comma &1 &2.

&1_string_&2+offset = 'Less than or equal to'.

offset = offset + 22.

&1_string_&2+offset = c_low.

when 'LT'.

check s_&1-sign = '&2'.

add_comma &1 &2.

&1_string_&2+offset = 'Less than'.

offset = offset + 10.

&1_string_&2+offset = c_low.

when 'BT'.

check s_&1-sign = '&2'.

add_comma &1 &2.

concatenate&1_string_&2 c_low '-' c_high

into &1_string_&2 separated by space.

when 'NB'.

check s_&1-sign = '&3'.

add_comma &1 &2.

concatenate&1_string_&2 c_low '-' c_high

into &1_string_&2 separated by space.

endcase.

endloop.

END-OF-DEFINITION. " create_string

defineadd_comma.

* add comma for selection criteria output string

if offset > 0.

&1_string_&2+offset(1) = ','.

offset = offset + 2.

endif.

END-of-definition. " add_comma