「示例程序1.1
REPORTのzrep_error_check_01。
DATA ：
gv_resultのTYPEの p個のLENGTH 8 DECIMALS 2 、
gv_exref TYPE REF TO CX_ROOT、
gv_msgtxt TYPEの 文字列。
DATA ：
gv_cuotient TYPE I、
gv_dividendのTYPE i値19を、
gv_divisorの TYPE Iが値0を、
gv_s_numbrの TYPEの 文字列 VALUE " 1234567890 "、
gv_position_11のTYPE i値11を。
TRY 。
gv_result = gv_dividend / gv_divisor。" ここには短いダンプないそれをキャッチ。。
CATCHの CX_ROOTをINTO gv_exref。
gv_msgtxt = gv_exref-> GET_TEXT（）。
WRITE：/ 。gv_msgtxt
。CLEANUPを
ENDTRY 。
TRY 。
gv_s_numbr。= gv_s_numbr（gv_position_11）" ここには短いダンプを。それを捕まえて。
CATCHの CX_ROOT INTO gv_exref。
gv_msgtxt = gv_exref-> GET_TEXT（）。
WRITE：/ gv_msgtxt。
掃除。
ENDTRY。
「示例程序2.1
REPORT zrep_cls_07。
データ gv_top（20）TYPE C値' 世界のトップ' 。
データ gv_on_the_way（20）のTYPE C値' それがありますので' 。
DATA：gv_char（20）のTYPE C、
gv_floatのTYPEのF、
gv_float_origin（10）TYPEの C値' 10.90 ' 、
gv_float_new LIKE gv_float_originを。
DO 6 回。
「ループ内で変数を定義し、初期化しないでください
」すべてのサイクルが再初期化される変数いない
データを gv_elevation：TYPE VALUEのI 6688を。
「我々はループ変数を定義する必要がある場合、あなたがタイムリーを割り当てたい
」gv_elevation = 6688.
のIF = -index SY 。3 。
gv_elevation = 8848 。
ENDIF 。
IFの gv_elevation = 8848 。
WRITEの SY-のインデックス。
WRITEのgv_elevation。
WRITEのgv_top。
ELSE 。
WRITE SY-インデックス。
WRITEのgv_elevation。
WRITE gv_on_the_way。
ENDIF 。
NEW-LINE 。
ENDDO。