COBOL2002 ユーザーズガイド
CBLCNSLサービスルーチンは,キーボードからの読み込み待ちの文字があるかどうかを検査するものです(ただし,このシステムでは,常に読み込み待ちの文字ありとなります)。
CALL 'CBLCNSL' USING 引数1
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 OP-1 PIC 9(4) USAGE COMP VALUE 0. : PROCEDURE DIVISION. : CALL 'CBLCNSL' USING OP-1. IF RETURN-CODE NOT = 0 THEN CBLCNSLエラー処理 END-IF. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.