Re: Mark listbox as mandatory

hi see below code it will help full,

pbo .

DATA:LT_VRM_VALUES1 TYPE VRM_VALUES,
      LT_VRM_VALUES2 TYPE VRM_VALUES,
      LS_VRM_VALUES TYPE VRM_VALUE.

CLEAR LS_VRM_VALUES.
LS_VRM_VALUES-KEY = 'Against 100% PI'.
APPEND LS_VRM_VALUES TO LT_VRM_VALUES1.

CLEAR LS_VRM_VALUES.
LS_VRM_VALUES-KEY = '40% less Advance'.
APPEND LS_VRM_VALUES TO LT_VRM_VALUES1.

CLEAR LS_VRM_VALUES.
LS_VRM_VALUES-KEY = 'Credit Customers'.
APPEND LS_VRM_VALUES TO LT_VRM_VALUES1.

CALL FUNCTION 'VRM_SET_VALUES'
  EXPORTING
    ID                    = 'GS_HEADER-PAY_TERMS'
    VALUES                = LT_VRM_VALUES1
  EXCEPTIONS
    ID_ILLEGAL_NAME       = 1
    OTHERS                = 2.

CLEAR LS_VRM_VALUES.
LS_VRM_VALUES-KEY = 'Within 2 Weeks'.
APPEND LS_VRM_VALUES TO LT_VRM_VALUES2.

CLEAR LS_VRM_VALUES.
LS_VRM_VALUES-KEY = '2-4 Weeks'.
APPEND LS_VRM_VALUES TO LT_VRM_VALUES2.

CLEAR LS_VRM_VALUES.
LS_VRM_VALUES-KEY = '8 Weeks'.
APPEND LS_VRM_VALUES TO LT_VRM_VALUES2.

CLEAR LS_VRM_VALUES.
LS_VRM_VALUES-KEY = 'Morethan 8 Weeks'.
APPEND LS_VRM_VALUES TO LT_VRM_VALUES2.

CALL FUNCTION 'VRM_SET_VALUES'
  EXPORTING
    ID                    = 'GS_HEADER-DEL_PRIOD'
    VALUES                = LT_VRM_VALUES2
  EXCEPTIONS
    ID_ILLEGAL_NAME       = 1
    OTHERS                = 2.

pai.

IF GS_HEADER-PAY_TERMS = ' '.
  SET CURSOR FIELD 'GS_HEADER-PAY_TERMS'.
  MESSAGE 'Enter Payment Terms' TYPE 'E'.
ENDIF.
IF GS_HEADER-DEL_PRIOD = ' '.
  SET CURSOR FIELD 'GS_HEADER-DEL_PRIOD'.
  MESSAGE 'Enter Delivery Period' TYPE 'E'.
ENDIF.

and no need POV .