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