宏(maro)

DEFINE create_string.

* 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'.

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

                  c_low+2(2) into c_low.

      if not c_high is initial.

        concatenate c_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

 

define add_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