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

使用資源一覧更新: KIN02UPDにSELECT MAX+1追加、KIN03EXPにFILE STATUS追加

Browse Source
This commit is contained in:
qiuqiuqiu
2026-06-28 16:12:16 +08:00
parent eb4eee3498
commit 02166e56a5
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
使用資源一覧/KIN02UPD_使用資源一覧.md
+3 -2
View File
@@ -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 |
使用資源一覧/KIN03EXP_使用資源一覧.md
+3 -3
View File
@@ -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句