COBOL2002 ユーザーズガイド
CBLDLTRMサービスルーチンは,ACCEPT文の終了キーから任意のコードを削除するものです。
CALL 'CBLDLTRM' USING 引数1 引数2
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 OP-1 PIC 9(4) USAGE COMP VALUE 4. 01 OP-2 PIC X(2) VALUE X'091B'. : PROCEDURE DIVISION. : CALL 'CBLDLTRM' USING OP-1 OP-2. IF RETURN-CODE NOT = 0 THEN CBLDLTRMエラー処理 END-IF. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.