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.