ページの先頭行へ戻る
NetCOBOL V11.0 PowerCOBOL ユーザーズガイド
FUJITSU Software

D.8 メッセージボックスに表示する文字列を途中で改行したい

処理

DisplayMessageメソッドでメッセージボックスを表示する場合、メッセージ文字列の途中で改行したいのですが、どうすればよいでしょうか?

操作方法

文字列の改行する位置に、改行を示す制御文字(X"0A")を設定してください。

以下に例を示します。

    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    01  MSG-TEXT PIC X(80).
    PROCEDURE DIVISION.
         MOVE "改行された\nメッセージ\nです" TO MSG-TEXT
   *    "\n"を、空白と改行を示す制御文字に置換します。
        INSPECT MSG-TEXT REPLACING ALL "\n" BY X'200A'
        INVOKE POW-SELF "DisplayMessage" USING
                         MSG-TEXT "サンプル" POW-DMICONINFORMATION

この手続きを実行すると、以下のようなメッセージボックスが表示されます。