Please help me. Im beginner in COBOL and at the moment am learnig. A read course with the site http://www.podgoretsky.com/ftp/Docs/Cob ... 1/ch11.htm
I compile program
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. VNDBLD01.
000300*------------------------------------------------
000400* Create an Empty Vendor File.
000500*------------------------------------------------
000600 ENVIRONMENT DIVISION.
000700 INPUT-OUTPUT SECTION.
000800 FILE-CONTROL.
000900
001000 SELECT VENDOR-FILE
001100 ASSIGN TO "vendor"
001200 ORGANIZATION IS INDEXED
001300 RECORD KEY IS VENDOR-NUMBER
001400 ACCESS MODE IS DYNAMIC.
001500
001600 DATA DIVISION.
001700 FILE SECTION.
001800
001900 FD VENDOR-FILE
002000 LABEL RECORDS ARE STANDARD.
002100 01 VENDOR-RECORD.
002200 05 VENDOR-NUMBER PIC 9(5).
002300 05 VENDOR-NAME PIC X(30).
002400 05 VENDOR-ADDRESS-1 PIC X(30).
002500 05 VENDOR-ADDRESS-2 PIC X(30).
002600 05 VENDOR-CITY PIC X(20).
002700 05 VENDOR-STATE PIC X(2).
002800 05 VENDOR-ZIP PIC X(10).
002900 05 VENDOR-CONTACT PIC X(30).
003000 05 VENDOR-PHONE PIC X(15).
003100
003200 WORKING-STORAGE SECTION.
003300
003400 PROCEDURE DIVISION.
003500 PROGRAM-BEGIN.
003600 OPEN OUTPUT VENDOR-FILE.
003700 CLOSE VENDOR-FILE.
003800
003900 PROGRAM-DONE.
004000 STOP RUN.
004100
000200 PROGRAM-ID. VNDBLD01.
000300*------------------------------------------------
000400* Create an Empty Vendor File.
000500*------------------------------------------------
000600 ENVIRONMENT DIVISION.
000700 INPUT-OUTPUT SECTION.
000800 FILE-CONTROL.
000900
001000 SELECT VENDOR-FILE
001100 ASSIGN TO "vendor"
001200 ORGANIZATION IS INDEXED
001300 RECORD KEY IS VENDOR-NUMBER
001400 ACCESS MODE IS DYNAMIC.
001500
001600 DATA DIVISION.
001700 FILE SECTION.
001800
001900 FD VENDOR-FILE
002000 LABEL RECORDS ARE STANDARD.
002100 01 VENDOR-RECORD.
002200 05 VENDOR-NUMBER PIC 9(5).
002300 05 VENDOR-NAME PIC X(30).
002400 05 VENDOR-ADDRESS-1 PIC X(30).
002500 05 VENDOR-ADDRESS-2 PIC X(30).
002600 05 VENDOR-CITY PIC X(20).
002700 05 VENDOR-STATE PIC X(2).
002800 05 VENDOR-ZIP PIC X(10).
002900 05 VENDOR-CONTACT PIC X(30).
003000 05 VENDOR-PHONE PIC X(15).
003100
003200 WORKING-STORAGE SECTION.
003300
003400 PROCEDURE DIVISION.
003500 PROGRAM-BEGIN.
003600 OPEN OUTPUT VENDOR-FILE.
003700 CLOSE VENDOR-FILE.
003800
003900 PROGRAM-DONE.
004000 STOP RUN.
004100
but when a try run program after compiling I get:
DB->get_open_flags: method not permitted before handle's open method
Segmentation fault (core dumped)
Why?
I use system fedora and compiler opencobol