COBOL2002 ユーザーズガイド
CBLGETサービスルーチンは,キーボードから文字を1文字入力するものです。
CALL 'CBLGET' USING 引数1
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 OP-1 PIC X(1) VALUE SPACE. : PROCEDURE DIVISION. : CALL 'CBLGET' USING OP-1. IF RETURN-CODE NOT = 0 THEN CBLGETエラー処理 END-IF. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.