Merge pull request #21 from opensourcecobol/dev/y-sakamoto

SORT文のバグを修正した.

Author: ytr-sakamoto

README.md

@@ -49,4 +49,3 @@ Known bugs
 
 * Cannot call inline programs.
 * Rewrite wrong data to indexed files with alternate keys in some cases.
-* Under some conditions, SORT statements produce wrong data.

README_JP.md

@@ -47,4 +47,3 @@ java [PROGRAM-ID]
 
 * 同一ソースコード内の別プログラムのCALLができない.
 * ALTERNATE KEYが指定されたINDEXEDファイルに対するREWRITE文の不具合.
-* SORT文の結果が少数のケースにおいて不正になること.

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

@@ -836,10 +836,6 @@ public int open_(String filename, int mode, int sharing) throws IOException {
 	}
 
 	public void close(int opt, AbstractCobolField fnstatus) {
-		//時間計測
-		//TODO 削除
-		//end = System.currentTimeMillis();
-		//System.out.println("" + (end - start) + "ms");
 		String openMode = String.format("%02d", (int)this.last_open_mode);
 		if(invokeFun(COB_IO_CLOSE, this, null, null, fnstatus, openMode, null, null) != 0) {
 			this.last_open_mode = (char)Integer.parseInt(openMode);

libcobj/src/jp/osscons/opensourcecobol/libcobj/file/CobolFileSort.java

@@ -753,7 +753,7 @@ public static void sortGiving(CobolFile sort_file, int varcnt, CobolFile... fbas
 					} else {
 						opt = 0;
 					}
-					sort_file.record.setDataStorage(d);
+					sort_file.record.getDataStorage().memcpy(d, sort_file.record.getSize());
 					copyCheck(fbase[i], sort_file);
 					fbase[i].write(fbase[i].record, opt, null);
 				}
@@ -838,7 +838,6 @@ public static void performRelease(CobolFile f) {
 		if (hp != null) {
 			fnstatus = hp.getFnstatus();
 		}
-
 		int ret = CobolFileSort.sortSubmit(f, f.record.getDataStorage());
 		switch (ret) {
 		case 0: