perform f_show_message_vl_0 using `001` .
perform f_show_message_vl_1 using `000` `Başlık bulunamadı `.
perform f_show_message_vl_2 using `000` `Dosya Okunamadı : ` prm_file.
perform f_show_message using text-SUC c_msg_id `S` `000`
                               `Veriler Kaydedildi aktarıldı`       ``        ``  ``.

constants c_msg_id type symsgid value `ZPP`.
"text-ERR    Hata
"text-SUC    Başarılı


*&---------------------------------------------------------------------*
*&      Form  f_show_message
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PRM_TITLE  text
*      -->PRM_MSGID  text
*      -->PRM_MSGTY  text
*      -->PRM_MSGNO  text
*      -->PRM_MSGV1  text
*      -->PRM_MSGV2  text
*      -->PRM_MSGV3  text
*      -->PRM_MSGV4  text
*----------------------------------------------------------------------*
form f_show_message using prm_title prm_msgid prm_msgty prm_msgno
                          prm_msgv1 prm_msgv2 prm_msgv3 prm_msgv4.
  data: lv_title type string,
        lv_msgid type  symsgid,
        lv_msgty type  symsgty,
        lv_msgno type  symsgno,
        lv_msgv1 type  symsgv,
        lv_msgv2 type  symsgv,
        lv_msgv3 type  symsgv,
        lv_msgv4 type  symsgv.


  lv_title = prm_title.
  lv_msgid = prm_msgid.
  lv_msgty = prm_msgty.
  lv_msgno = prm_msgno.
  lv_msgv1 = prm_msgv1.
  lv_msgv2 = prm_msgv2.
  lv_msgv3 = prm_msgv3.
  lv_msgv4 = prm_msgv4.

  call function `POPUP_DISPLAY_MESSAGE`
    exporting
      titel = lv_title
      msgid = lv_msgid
      msgty = lv_msgty
      msgno = lv_msgno
      msgv1 = lv_msgv1
      msgv2 = lv_msgv2
      msgv3 = lv_msgv3
      msgv4 = lv_msgv4.
endform.                    "f_show_message


*&---------------------------------------------------------------------*
*&      Form  f_show_message_vl_0
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PRM_MSGNO  text
*----------------------------------------------------------------------*
form f_show_message_vl_0 using prm_msgno .
  perform f_show_message using text-err c_msg_id `E` prm_msgno
                               ``       ``        ``  ``.
endform.                    "f_show_message_vl_0
*&---------------------------------------------------------------------*
*&      Form  f_show_message_vl_1
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PRM_MSGNO  text
*      -->PRM_MSGV1  text
*----------------------------------------------------------------------*
form f_show_message_vl_1 using prm_msgno prm_msgv1.
  perform f_show_message using text-err c_msg_id `E` prm_msgno
                               prm_msgv1       ``        ``  ``.
endform.                    "f_show_message_vl_1

*&---------------------------------------------------------------------*
*&      Form  f_show_message_vl_2
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PRM_MSGNO  text
*      -->PRM_MSGV1  text
*      -->PRM_MSGV2  text
*----------------------------------------------------------------------*
form f_show_message_vl_2 using prm_msgno prm_msgv1 prm_msgv2.
  perform f_show_message using text-err   c_msg_id `E` prm_msgno
                               prm_msgv1  prm_msgv2        ``  ``.
endform.                    "f_show_message_vl_2
*&---------------------------------------------------------------------*
*&      Form  f_show_message_vl_3
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PRM_MSGNO  text
*      -->PRM_MSGV1  text
*      -->PRM_MSGV2  text
*      -->PRM_MSGV3  text
*----------------------------------------------------------------------*
form f_show_message_vl_3 using prm_msgno prm_msgv1 prm_msgv2 prm_msgv3.
  perform f_show_message using text-err   c_msg_id `E` prm_msgno
                               prm_msgv1  prm_msgv2        ``  ``.
*Bilakis onca sınırın, onca yalçın duvarın
*Oldukça itici kapısı aniden açılır,
*Ancak sabık kayanın muradıdır yarın!
*Her nefer kolay ve densiz alınır:
*Buluttan, sisten, sağanaktan yalın
*Alır bizi, kendisiyle, zan onunla aşılır,
*Hoş tanırsınız, alçak uçar tüm kuşaklarda-
*Bir Kanatlanma- ve çağlar arkamızda!
*Johann Wolfgang von Goethe
endform.                    "f_show_message_vl_3