qiuqiuqiu/cobol-tna-system
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix(Java): NUMVAL対応・ファイル名修正・SQLite安全化、.gitignore更新

Browse Source 
- Kin01InpMain: Integer.parseInt → ConvUtil.parseIntSafe (10箇所、COBOL NUMVAL対齐)
- Kin07DaiMain: R01入力ファイル名 KIN06W01.DAT → KIN07R01.DAT (バグ修正)
- Kin08DbuMain: ファイル拡張子 .DAT → .TXT (COBOL ASSIGNに合わせる)
- Sub04ChkSub: chkDatePara/chkTimeParaにnull・空白防御、numValSlice追加
- Zan06UpdMain: ORPHAN CANCEL時にabend() → r02Eof=true (COBOL挙動に統一)
- KYU02REC.cpy: FILLERにVALUE SPACES追加
- JavaSrc/pom.xml: Mavenビルド定義を追加
- .gitignore: target/、*.class、JavaSrc/data/、JavaSrc/output/等を追加
This commit is contained in:
hangshuo652
2026-09-13 15:30:38 +08:00
parent 1a15c3a4ba
commit b33597b93b
8 changed files with 93 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.gitignore
+15
View File
@@ -20,3 +20,18 @@ test*
*.log
*.DAT
*.dat
# Java ビルド成果物
target/
*.class
# JavaSrc テスト入出力データ
JavaSrc/data/
JavaSrc/output/
# V3 生成中間ファイル
*_norm.cbl
*_pre.cbl
# テスト実行ファイル
*_test.exe
JavaSrc/pom.xml
+35
View File
@@ -0,0 +1,35 @@
<?xml version="1.0" encoding="UTF-8"?>
<project xmlns="http://maven.apache.org/POM/4.0.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">
<modelVersion>4.0.0</modelVersion>
<groupId>cobol.java</groupId>
<artifactId>ZAN01CHK</artifactId>
<version>1.0-SNAPSHOT</version>
<packaging>jar</packaging>
<properties>
<maven.compiler.source>11</maven.compiler.source>
<maven.compiler.target>11</maven.compiler.target>
<project.build.sourceEncoding>UTF-8</project.build.sourceEncoding>
</properties>
<build>
<plugins>
<plugin>
<groupId>org.apache.maven.plugins</groupId>
<artifactId>maven-jar-plugin</artifactId>
<version>3.3.0</version>
<configuration>
<archive>
<manifest>
<mainClass>Zan01ChkMain</mainClass>
</manifest>
</archive>
</configuration>
</plugin>
</plugins>
<sourceDirectory>src</sourceDirectory>
</build>
</project>
JavaSrc/src/Kin01InpMain.java
+15 -13
View File
@@ -449,10 +449,10 @@ public class Kin01InpMain {
// *** 複合条件デモ(AND+OR+3段ネスト)
// ※疑问#Q5：原代码引用W01项目（MOVE前で全てZERO、恒不成立）→
// 設計書意図どおり WRK-CSV-* 项目を使用するよう修正。
int sDate = Integer.parseInt(wrkCsvStartDate);
int eDate = Integer.parseInt(wrkCsvEndDate);
int sTime = Integer.parseInt(wrkCsvStartTime);
int eTime = Integer.parseInt(wrkCsvEndTime);
int sDate = ConvUtil.parseIntSafe(wrkCsvStartDate, 0);
int eDate = ConvUtil.parseIntSafe(wrkCsvEndDate, 0);
int sTime = ConvUtil.parseIntSafe(wrkCsvStartTime, 0);
int eTime = ConvUtil.parseIntSafe(wrkCsvEndTime, 0);
if (sDate != 0 && eDate != 0 && sTime != 0) {
if (sDate > eDate || (sDate == eDate && sTime >= eTime)) {
setDemoType(10); // MOVE 10 TO WRK-DEMO-TYPE.
@@ -466,10 +466,10 @@ public class Kin01InpMain {
// （原代码は MOVE WRK-CSV-APPL-ID TO W01APPL-ID）。
w01.setEmpId(wrkCsvEmpId); // MOVE ... TO W01EMP-ID.
w01.setLeaveType(wrkCsvLeaveType); // MOVE ... TO W01LEAVE-TYPE.
w01.setStartDate(Integer.parseInt(wrkCsvStartDate)); // MOVE ... TO W01START-DATE.
w01.setStartTime(Integer.parseInt(wrkCsvStartTime)); // MOVE ... TO W01START-TIME.
w01.setEndDate(Integer.parseInt(wrkCsvEndDate)); // MOVE ... TO W01END-DATE.
w01.setEndTime(Integer.parseInt(wrkCsvEndTime)); // MOVE ... TO W01END-TIME.
w01.setStartDate(ConvUtil.parseIntSafe(wrkCsvStartDate, 0)); // MOVE ... TO W01START-DATE.
w01.setStartTime(ConvUtil.parseIntSafe(wrkCsvStartTime, 0)); // MOVE ... TO W01START-TIME.
w01.setEndDate(ConvUtil.parseIntSafe(wrkCsvEndDate, 0)); // MOVE ... TO W01END-DATE.
w01.setEndTime(ConvUtil.parseIntSafe(wrkCsvEndTime, 0)); // MOVE ... TO W01END-TIME.
w01.setStatus(wrkCsvStatus); // MOVE ... TO W01STATUS.
writeW01(); // WRITE W01OUTREC.
}
@@ -494,13 +494,15 @@ public class Kin01InpMain {
w01.reset();
// *** W01出力(取消: APPL-ID=CSV値, STATUS='9')
w01.setApplId(Integer.parseInt(wrkCsvApplId)); // MOVE ... TO W01APPL-ID.
// ※CSVのAPPL-IDは英数('A00000001'等)でCOBOL数値MOVE相当は0になる
// （GnuCOBOL実測）ため、parseIntSafe(…,0)で安全変換する。
w01.setApplId(ConvUtil.parseIntSafe(wrkCsvApplId, 0)); // MOVE ... TO W01APPL-ID.
w01.setEmpId(wrkCsvEmpId);
w01.setLeaveType(wrkCsvLeaveType);
w01.setStartDate(Integer.parseInt(wrkCsvStartDate));
w01.setStartTime(Integer.parseInt(wrkCsvStartTime));
w01.setEndDate(Integer.parseInt(wrkCsvEndDate));
w01.setEndTime(Integer.parseInt(wrkCsvEndTime));
w01.setStartDate(ConvUtil.parseIntSafe(wrkCsvStartDate, 0));
w01.setStartTime(ConvUtil.parseIntSafe(wrkCsvStartTime, 0));
w01.setEndDate(ConvUtil.parseIntSafe(wrkCsvEndDate, 0));
w01.setEndTime(ConvUtil.parseIntSafe(wrkCsvEndTime, 0));
w01.setStatus(wrkCsvStatus);
writeW01();
}
JavaSrc/src/Kin07DaiMain.java
+1 -1
View File
@@ -54,7 +54,7 @@ public class Kin07DaiMain {
private static final int CNS_RND_MODE_UP = 1;
/** 入力ファイル（R01=WORK-DAY-FILE=KIN06CLD出力 / R02=KIN-LEAVE / R03=LEAVE-DAILY）. */
private static final String R01_FILE = "data/KIN06W01.DAT";
private static final String R01_FILE = "data/KIN07R01.DAT";
private static final String R02_FILE = "data/KIN07R02.DAT";
private static final String R03_FILE = "data/KIN07R03.DAT";
/** 出力ファイル（W01=DAILY-RECORD 200B）. */
JavaSrc/src/Kin08DbuMain.java
+3 -3
View File
@@ -36,11 +36,11 @@ public class Kin08DbuMain {
private static final int CNS_ABD999 = 999;
/** SELECT R01INNFIL ASSIGN TO "KIN08R01". */
private static final String R01_FILE = "data/KIN08R01.DAT";
private static final String R01_FILE = "data/KIN08R01.TXT";
/** SELECT SYSINFILE ASSIGN TO "KIN08S01". */
private static final String SYSIN_FILE = "data/KIN08S01.DAT";
private static final String SYSIN_FILE = "data/KIN08S01.TXT";
/** SELECT W01OUTFIL ASSIGN TO "KIN08W01". */
private static final String W01_FILE = "data/KIN08W01.DAT";
private static final String W01_FILE = "data/KIN08W01.TXT";
// ---- カウンタ ----
private long cunR01Inn;
JavaSrc/src/Sub04ChkSub.java
+22 -2
View File
@@ -51,6 +51,10 @@ public class Sub04ChkSub {
* ※月(5:2)/日(7:2) のみ範囲判定（原逻辑如此，不做历法校验）。
*/
private static int chkDatePara(final String dat) {
// 检查输入是否为空或空白
if (dat == null || dat.trim().isEmpty()) {
return 1;
}
// MOVE FUNCTION NUMVAL(C01CHKDAT(5:2)) TO WRK-NN.
int nn = Integer.parseInt(dat.substring(4, 6));
if (nn < 1 || nn > 12) {
@@ -66,21 +70,37 @@ public class Sub04ChkSub {
/**
* 2000CHKTIME：HHMM 形式の妥当性チェック。
* ※COBOL は FUNCTION NUMVAL により「空白のみの桁」を 0 として扱う
* （空白は異常にならない）。Java 側も同じ挙動にするため、空白のみの
* スライスは 0 として処理する。その他の非数字は従来どおり
* NumberFormatException（原コードの S0C7 相当）で統一する。
*/
private static int chkTimePara(final String dat) {
// MOVE FUNCTION NUMVAL(C01CHKDAT(1:2)) TO WRK-NN.（時）
int nn = Integer.parseInt(dat.substring(0, 2));
int nn = numValSlice(dat, 0, 2);
if (nn > 23) {
return 2; // GO TO 2000CHKTIME-EXT 相当
}
// MOVE FUNCTION NUMVAL(C01CHKDAT(3:2)) TO WRK-NN.（分）
nn = Integer.parseInt(dat.substring(2, 4));
nn = numValSlice(dat, 2, 4);
if (nn > 59) {
return 2;
}
return 0; // 正常
}
/** NUMVAL 相当：空白のみのスライスは 0 として扱う（COBOL と同じ挙動）。 */
private static int numValSlice(final String dat, final int from, final int to) {
if (dat == null || from >= dat.length()) {
return 0;
}
String slice = dat.substring(from, Math.min(to, dat.length())).trim();
if (slice.isEmpty()) {
return 0;
}
return Integer.parseInt(slice);
}
/**
* 3000CHKNUM：全桁が数字であることのチェック。
* ※全空白は正常扱い（オプショナル項目）。
JavaSrc/src/Zan06UpdMain.java
+1 -1
View File
@@ -315,7 +315,7 @@ public class Zan06UpdMain {
wrkErrCategory = 20;
wrkErrDetail = "ORPHAN CANCEL APPL-ID=" + wrkSqlApplId;
writeW01(wrkErrCategory, wrkErrDetail);
abend();
r02Eof = true;
return;
}
wrkYearMonth = wrkSqlApplDate.length() >= 6 ? wrkSqlApplDate.substring(0, 6) : "";
cpy/KYU02REC.cpy
+1 -1
View File
@@ -4,4 +4,4 @@
03 (A)YEAR-MONTH PIC X(006).
03 (A)TOTAL-HOURS PIC 9(004)V9(001).
03 (A)ABSENT-COUNT PIC 9(002).
03 FILLER PIC X(059).
03 FILLER PIC X(059) VALUE SPACES.