COBOL2002 ユーザーズガイド
CBLMESSAGEサービスルーチンは,引数で指定した文字列をメッセージボックスに表示するものです。
CALL 'CBLMESSAGE' USING 引数1 引数2
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 M-BOX-LEN PIC 9(9) USAGE COMP VALUE 15. 01 M-BOX-DATA PIC X(15) VALUE 'DISPLAY TESTING'. : PROCEDURE DIVISION. CALL 'CBLMESSAGE' USING M-BOX-LEN M-BOX-DATA. IF RETURN-CODE NOT = 0 THEN CBLMESSAGEエラー処理 END-IF. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.