COBOL2002 ユーザーズガイド
CUIモードでは,ACCEPT/DISPLAY文での入出力先や実行時メッセージの出力先が,OSの標準入出力(stdin,stdout,stderr)となります。CUIモードでのCOBOLプログラムの実行例を,次に示します。
IDENTIFICATION DIVISION. PROGRAM-ID. TEST1. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT TXT-FILE ASSIGN TO FILE-NAME ORGANIZATION IS LINE SEQUENTIAL. SELECT DMY-FILE ASSIGN TO SYS001 ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD TXT-FILE. 01 TXT-REC PIC X(40). FD DMY-FILE. 01 DMY-REC PIC X(40). WORKING-STORAGE SECTION. 01 FILE-NAME PIC X(40). PROCEDURE DIVISION. DISPLAY '--- プログラムのテストを開始します ---'. …1. DISPLAY '--- ファイル名を入力してください ---'. …1. ACCEPT FILE-NAME. …2. OPEN OUTPUT TXT-FILE. WRITE TXT-REC. CLOSE TXT-FILE. OPEN INPUT DMY-FILE. …3. READ DMY-FILE. CLOSE DMY-FILE. EXIT PROGRAM. END PROGRAM TEST1.
D:\>test1.exe --- プログラムのテストを開始します --- …1. --- ファイル名を入力してください --- …1. test1_outfile.txt …2. KCCC3517R-S …3. CBL_外部装置名で示される環境変数が指定されていません。 プログラム名=TEST1 行番号/欄=000029/12 環境変数名=CBL_SYS001 D:\>
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.