COBOL2002 ユーザーズガイド
GUIモードでは,ACCEPT/DISPLAY文での入出力先や実行時メッセージの出力先が,COBOL2002が出力するコンソールウィンドウとなります。GUIモードでの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.
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.