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

Add Subsystem E (JIN01-02): personnel info management + design-resource consistency fixes

Browse Source
This commit is contained in:
qiuqiuqiu
2026-07-19 20:31:51 +08:00
parent 9de04cfa87
commit 39b9ec4e50
17 changed files with 1471 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cpy/JIN01REC.cpy
+10
View File
@@ -0,0 +1,10 @@
*
* 人事取込/正常レコード 200B JIN01KNS入出力
*
03 (A)KANA-SEI PIC X(020).
03 (A)KANA-MEI PIC X(020).
03 (A)KANJI-NAME PIC N(040).
03 (A)SUB-CODE PIC X(004).
03 (A)BIRTH-DATE PIC X(008).
03 (A)EMP-ID PIC X(008).
03 (A)FILLER PIC X(060).
cpy/JINDATAC.cpy
+4
View File
@@ -0,0 +1,4 @@
* SUB01DAT 運用日付取得用連絡領域
01 D01UBSPAR.
03 D01FKICOD PIC S9(004) COMP.
03 D01UBSUDATE PIC 9(008).
cpy/JINENDAC.cpy
+3
View File
@@ -0,0 +1,3 @@
* SUB03END ABEND処理用連絡領域
01 E01ABDPAR.
03 E01ABDCOD PIC 9(003).
cpy/JINMSGAC.cpy
+13
View File
@@ -0,0 +1,13 @@
* SUB02MSG メッセージ出力用連絡領域
01 M00MHOPAR.
03 M00MSGCOD PIC 9(003).
03 M00UMKDATS22-01 PIC X(030).
03 M00UMKDATS22-02 PIC X(030).
03 M00UMKDATS22-03 PIC X(030).
03 M00UMKDATS22-04 PIC X(030).
03 M00UMKDATS22-05 PIC X(030).
03 M00UMKDATS22-06 PIC X(030).
03 M00UMKDATS22-07 PIC X(030).
03 M00UMKDATS22-08 PIC X(030).
03 M00UMKDATS22-09 PIC X(030).
03 M00UMKDATS22-10 PIC X(030).
cpy/SKILL-AGG-REC.cpy
+11
View File
@@ -0,0 +1,11 @@
*
* スキル別評価集計結果レコード 200B JIN02SKL出力
*
03 (A)AGG-SKILL-CODE PIC X(004).
03 (A)AGG-LEVEL PIC 9(002) PACKED-DECIMAL.
03 (A)AGG-LEVEL-NAME PIC X(020).
03 (A)AGG-EMP-COUNT PIC 9(005) BINARY.
03 (A)AGG-COUNT-EDIT PIC ZZZZ9.
03 (A)AGG-AVG-SCORE PIC 9(003)V9(002)
PACKED-DECIMAL.
03 (A)FILLER PIC X(162).
cpy/SKILL-EVAL-REC.cpy
+9
View File
@@ -0,0 +1,9 @@
*
* スキル評価明細レコード 200B JIN02SKL入力
*
03 (A)SKILL-CODE PIC X(004).
03 (A)EMP-ID PIC X(008).
03 (A)EMP-NAME PIC X(040).
03 (A)EVAL-DATE PIC X(008).
03 (A)SCORE PIC 9(003).
03 (A)FILLER PIC X(137).
cpy/SKILL-MST-REC.cpy
+9
View File
@@ -0,0 +1,9 @@
*
* スキル評価基準マスタレコード 80B JIN02SKL入力
*
03 (A)MST-SKILL-CODE PIC X(004).
03 (A)MST-LEVEL PIC 9(002) BINARY.
03 (A)MST-SCORE-FROM PIC 9(003).
03 (A)MST-SCORE-TO PIC 9(003).
03 (A)MST-LEVEL-NAME PIC X(020).
03 (A)FILLER PIC X(048).
cpy/VALID-ERROR-REC.cpy
+7
View File
@@ -0,0 +1,7 @@
*
* バリデーションエラーレコード 80B JIN01KNS/JIN02SKL共用
*
03 ERR-PROGRAMID PIC X(008).
03 ERR-EMP-ID PIC X(008).
03 ERR-CODE PIC X(004).
03 ERR-DETAIL PIC X(060).