ABAP 调用GS01/GS02/GS03集合数据

DATA:ls_setid      TYPE sethier-setid,
       lt_int_vlaues TYPE STANDARD TABLE OF rgsbv.
  DATA:lr_saknr      TYPE RANGE OF saknr WITH HEADER LINE.
      CALL FUNCTION 'G_SET_GET_ID_FROM_NAME'
        EXPORTING
          shortname = 'Z0002'       "Set Name   GS01
        IMPORTING
          new_setid = ls_setid
        EXCEPTIONS
          OTHERS    = 1.

      CALL FUNCTION 'G_SET_FETCH'
        EXPORTING
          setnr           = ls_setid
        TABLES
          set_lines_basic = lt_int_vlaues
        EXCEPTIONS
          OTHERS          = 1.

      LOOP AT lt_int_vlaues INTO DATA(ls_int_vlaues).
        IF ls_int_vlaues-from IS NOT INITIAL AND ls_int_vlaues-to IS NOT INITIAL.
          CLEAR:lr_saknr.
          lr_saknr-sign   = 'I'.
          lr_saknr-option = 'BT'.
          lr_saknr-low    = ls_int_vlaues-from.
          lr_saknr-high   = ls_int_vlaues-to.
          APPEND lr_saknr.
        ELSEIF ls_int_vlaues-from IS NOT INITIAL .
          CLEAR:lr_saknr.
          lr_saknr-sign   = 'I'.
          lr_saknr-option = 'EQ'.
          lr_saknr-low    = ls_int_vlaues-from.
          APPEND lr_saknr.
        ENDIF.

      ENDLOOP.

      IF <fs_upload>-saknr NOT IN lr_saknr.
        IF <fs_upload>-zmessage IS INITIAL.
          <fs_upload>-zmessage = '合并科目不在科目集Z0002中，请检查科目是否填写错误！'(016).
        ELSE.
          <fs_upload>-zmessage = <fs_upload>-zmessage && '合并科目不在科目集Z0002中，请检查科目是否填写错误！'(012).
        ENDIF.
      ENDIF.