REPORT Z1.

DATA: SETID TYPE SETID ,
      SETMAST LIKE RGSBV OCCURS 0 WITH HEADER LINE.


PARAMETERS: GRNAME(20) OBLIGATORY.

CLEAR: SETID, SETMAST.
REFRESH: SETMAST.
SETID = '0103'.
SETID+4(30) = GRNAME.

CALL FUNCTION 'K_GROUP_CREATE'
  EXPORTING
    SETID              = SETID
    VIA_POPUP          = SPACE
    SHOW_CHANGED_GROUP = SPACE
  TABLES
    SETMASTERS         = SETMAST
  EXCEPTIONS
    OTHERS             = 99.

IF SY-SUBRC = 0.
  WRITE:/ 'Группа заказов ', GRNAME, ' создана '.
ELSE.
  WRITE:/ 'Группа заказов ', GRNAME COLOR 6, ' не создана '.
ENDIF.