Skip to content

Commit 9a49027

Browse files
committedJan 31, 2022
add: implement INDEXED files with SQLite
1 parent a452be3 commit 9a49027

File tree

6 files changed

+958
-725
lines changed

6 files changed

+958
-725
lines changed
 

‎README.md

-1
Original file line numberDiff line numberDiff line change
@@ -46,4 +46,3 @@ Not Implemented.
4646
Known bugs
4747

4848
* Cannot call inline programs.
49-
* Read wrong data from indexed files with alternate duplicate keys in some cases.

‎README_JP.md

+1-2
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,7 @@ java [PROGRAM-ID]
2424

2525
## The progress of the development
2626

27-
下記の実装済みリストにある機能は[NIST COBOL85 test suite](https://www.itl.nist.gov/div897/ctg/cobol_form.htm)でテストされており,**969** のテストケースをパスしています.
27+
下記の実装済みリストにある機能は[NIST COBOL85 test suite](https://www.itl.nist.gov/div897/ctg/cobol_form.htm)でテストされており,**999%** のテストケースをパスしています.
2828

2929
実装済み
3030

@@ -44,4 +44,3 @@ java [PROGRAM-ID]
4444
既知の不具合
4545

4646
* 同一ソースコード内の別プログラムのCALLができない.
47-
* DUPLICATE指定されたALTERNATE KEY付きのINDEXEDファイルに対するREAD文の不具合.

‎libcobj/src/jp/osscons/opensourcecobol/libcobj/file/CobolFile.java

+1-1
Original file line numberDiff line numberDiff line change
@@ -668,7 +668,7 @@ public void open(int mode, int sharing, AbstractCobolField fnstatus) {
668668

669669
boolean was_not_exist = false;
670670
if(this.organization == COB_ORG_INDEXED) {
671-
if(!Files.isDirectory(Paths.get(file_open_name))) {
671+
if(!Files.exists(Paths.get(file_open_name))) {
672672
was_not_exist = true;
673673
if(mode != COB_OPEN_OUTPUT && !this.flag_optional &&
674674
(mode != COB_OPEN_I_O || System.getenv(COB_IO_CREATES).equals("yes")) &&

0 commit comments

Comments
 (0)
Please sign in to comment.