From 02166e56a55bf436f2a9565917602f18a09eabbc Mon Sep 17 00:00:00 2001 From: qiuqiuqiu Date: Sun, 28 Jun 2026 16:12:16 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BD=BF=E7=94=A8=E8=B3=87=E6=BA=90=E4=B8=80?= =?UTF-8?q?=E8=A6=A7=E6=9B=B4=E6=96=B0:=20KIN02UPD=E3=81=ABSELECT=20MAX+1?= =?UTF-8?q?=E8=BF=BD=E5=8A=A0=E3=80=81KIN03EXP=E3=81=ABFILE=20STATUS?= =?UTF-8?q?=E8=BF=BD=E5=8A=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 使用資源一覧/KIN02UPD_使用資源一覧.md | 5 +++-- 使用資源一覧/KIN03EXP_使用資源一覧.md | 6 +++--- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/使用資源一覧/KIN02UPD_使用資源一覧.md b/使用資源一覧/KIN02UPD_使用資源一覧.md index 7b20202..b5905b1 100644 --- a/使用資源一覧/KIN02UPD_使用資源一覧.md +++ b/使用資源一覧/KIN02UPD_使用資源一覧.md @@ -40,9 +40,10 @@ | SQL種別 | 処理 | 実行条件 | 使用箇所 | |---------|------|---------|---------| | CONNECT | TO 'data/kin.db' | 常時 | 1000ITTSOR | -| INSERT | LEAVE_RECORDSへ追加 | STATUS='1' AND APPL-ID=0 | 2110INSERTSOR | +| SELECT | COALESCE(MAX(APPLICATION_ID),0)+1 FROM LEAVE_RECORDS | 常時（初期処理時） | 1000ITTSOR | +| INSERT | LEAVE_RECORDSへ追加（APPLICATION_ID含む） | STATUS='1' AND APPL-ID=0 | 2110INSERTSOR | | DELETE | APPLICATION_ID一致削除+INSERT | STATUS='1' AND APPL-ID>0 | 2120UPDATESOR | -| INSERT | LEAVE_RECORDSへ追加（変更後） | STATUS='1' AND APPL-ID>0 | 2120UPDATESOR | +| INSERT | LEAVE_RECORDSへ追加（変更後、APPLICATION_ID含む） | STATUS='1' AND APPL-ID>0 | 2120UPDATESOR | | DELETE | APPLICATION_ID一致削除 | STATUS='9' | 2130DELETESOR | | COMMIT | WORK | 常時 | 3000STPSOR | | ROLLBACK | WORK | SQLエラー時 | 9100DBERRSOR | diff --git a/使用資源一覧/KIN03EXP_使用資源一覧.md b/使用資源一覧/KIN03EXP_使用資源一覧.md index 675d953..b545324 100644 --- a/使用資源一覧/KIN03EXP_使用資源一覧.md +++ b/使用資源一覧/KIN03EXP_使用資源一覧.md @@ -7,9 +7,9 @@ ## 使用ファイル -| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | -|------|---------------|------|-------------|-----------|--------| -| KIN02W01.DAT | LEAVE-DAILY | 順編成 | F (固定長) | 80B | KIN02REC | +| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | FILE STATUS | +|------|---------------|------|-------------|-----------|--------|-------------| +| KIN02W01.DAT | LEAVE-DAILY | 順編成 | F (固定長) | 80B | KIN02REC | WS-W01-STATUS | ## 使用COPY句