COBOL2002 ユーザーズガイド


16.3.1 CUIモード

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:\>
  1. DISPLAY文によるメッセージの出力です。標準出力に出力されます。

  2. ACCEPT文によるファイル名の入力です。標準入力から入力します。

  3. ファイルに対応する環境変数未設定による実行時メッセージです。実行時メッセージは,標準エラー出力に出力されます。