ABAP How to get screen resolution (width & height)

How to get screen resolution (width & height)

透過以下 Class 進行

Class:CL_GUI_PROPS_CONSUMER

Sample Code:

REPORT Z_EX_GET_SCREEN_WH.

DATA: LREF_CONSUMER     TYPE REF TO CL_GUI_PROPS_CONSUMER,
      LS_METRIC_FACTORS TYPE CNTL_METRIC_FACTORS.

"捉取營幕寬度
LREF_CONSUMER = CL_GUI_PROPS_CONSUMER=>CREATE_CONSUMER( ).

LS_METRIC_FACTORS = LREF_CONSUMER->GET_METRIC_FACTORS( ).

WRITE : LS_METRIC_FACTORS-SCREEN-X, LS_METRIC_FACTORS-SCREEN-Y.