REPORT  YTEST007.
DATA : OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.
TYPE-POOLS VRM.
DATA : FLD1(20) TYPE C.
DATA : FNAME TYPE VRM_ID,
      VVA TYPE VRM_VALUES,
      LVVA LIKE LINE OF VVA.



CALL SCREEN 100.

*----------------------------------------------------------------------*
*  MODULE CANCEL INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.                    "CANCEL INPUT

*----------------------------------------------------------------------*
*  MODULE STATUS_0100 OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.

  SET PF-STATUS 'TESTSTA1'.
FNAME = 'FLD1'.
LVVA-KEY = 'GZ'.
LVVA-TEXT = 'GUANGZHOU'.
APPEND LVVA TO VVA.
FNAME = 'FLD1'.
LVVA-KEY = 'SH'.
LVVA-TEXT = 'SHANGHAI'.
APPEND LVVA TO VVA.

CALL FUNCTION 'VRM_SET_VALUES'
  EXPORTING
    ID                    = FNAME
    VALUES                = VVA
* EXCEPTIONS
*   ID_ILLEGAL_NAME       = 1
*   OTHERS                = 2
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.



ENDMODULE.                    "STATUS_0100 OUTPUT


*----------------------------------------------------------------------*
*  MODULE USER_COMMAND_0100 INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  CASE SAVE_OK.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                    "USER_COMMAND_0100 INPUT
 
 
 
PROCESS BEFORE OUTPUT.
  MODULE STATUS_0100.
*
PROCESS AFTER INPUT.
 MODULE CANCEL AT EXIT-COMMAND.
  MODULE USER_COMMAND_0100.