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

Initial import: 子系统B 前三本程序 production 资源

Browse Source
This commit is contained in:
qiuqiuqiu
2026-06-15 08:12:54 +08:00
commit 9813dd7772
26 changed files with 2655 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cpy/ZAN01REC.cpy
+11
View File
@@ -0,0 +1,11 @@
*
* 加班申請レコード 80B
*
03 (A)APPL-ID PIC X(008).
03 (A)EMP-ID PIC 9(008).
03 (A)APPL-DATE PIC 9(008).
03 (A)START-TIME PIC 9(004).
03 (A)END-TIME PIC 9(004).
03 (A)STATUS PIC X(001).
03 (A)OVT-TYPE PIC X(001).
03 (A)FILLER PIC X(046).
cpy/ZAN02REC.cpy
+12
View File
@@ -0,0 +1,12 @@
*
* マッチング結果レコード 80B
*
03 (A)APPL-ID PIC X(008).
03 (A)EMP-ID PIC 9(008).
03 (A)APPL-DATE PIC 9(008).
03 (A)START-TIME PIC 9(004).
03 (A)END-TIME PIC 9(004).
03 (A)STATUS PIC X(001).
03 (A)OVT-TYPE PIC X(001).
03 (A)PROC-SEQ PIC 9(002).
03 (A)FILLER PIC X(044).
cpy/ZAN03REC.cpy
+11
View File
@@ -0,0 +1,11 @@
*
* 集約結果レコード 80B
*
03 (A)APPL-ID PIC X(008).
03 (A)EMP-ID PIC 9(008).
03 (A)APPL-DATE PIC 9(008).
03 (A)START-TIME PIC 9(004).
03 (A)END-TIME PIC 9(004).
03 (A)OVT-HOURS PIC 9(004)V9(001).
03 (A)OVT-TYPE PIC X(001).
03 (A)FILLER PIC X(042).
cpy/ZAN04REC.cpy
+5
View File
@@ -0,0 +1,5 @@
*
* DBCLEAN対象レコード 80B
*
03 (A)APPL-ID PIC X(008).
03 (A)FILLER PIC X(072).
cpy/ZAN05REC.cpy
+5
View File
@@ -0,0 +1,5 @@
*
* エラーログレコード VB可変長
*
03 (A)ERR-CATEGORY PIC 9(002).
03 (A)ERR-DETAIL PIC X(198).
cpy/ZANCHKAC.cpy
+5
View File
@@ -0,0 +1,5 @@
* SUB04CHK 項目チェック用連絡領域
01 C01CHKPAR.
03 C01CHKTYP PIC X(008).
03 C01CHKDAT PIC X(080).
03 C01CHKRRC PIC 9(004).
cpy/ZANDATAC.cpy
+4
View File
@@ -0,0 +1,4 @@
* SUB01DAT 運用日付取得用連絡領域
01 D01UBSPAR.
03 D01FKICOD PIC S9(004) COMP.
03 D01UBSUDATE PIC 9(008).
cpy/ZANENDAC.cpy
+3
View File
@@ -0,0 +1,3 @@
* SUB03END ABEND処理用連絡領域
01 E01ABDPAR.
03 E01ABDCOD PIC 9(003).
cpy/ZANMSGAC.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/ZANTIMAC.cpy
+5
View File
@@ -0,0 +1,5 @@
* SUB05TIM 時刻丸め用連絡領域
01 T01TIMPAR.
03 T01TIMHRS PIC 9(004)V9(001).
03 T01TIMOUT PIC 9(004)V9(001).
03 T01TIMRRC PIC 9(004).