qiuqiuqiu
12 lines
527 B
COBOL
12 lines
527 B
COBOL
*
|
|
* 勤怠: 欠勤集計中間ファイル ABSENCE-SUMMARY 80B
|
|
*
|
|
03 (A)EMP-ID PIC X(008).
|
|
03 (A)YEAR-MONTH PIC X(006).
|
|
03 (A)ANNUAL-LEAVE-H PIC 9(004)V9(001).
|
|
03 (A)PERSONAL-LEAVE-H PIC 9(004)V9(001).
|
|
03 (A)OFFICIAL-LEAVE-H PIC 9(004)V9(001).
|
|
03 (A)SICK-LEAVE-H PIC 9(004)V9(001).
|
|
03 (A)ABSENT-H PIC 9(004)V9(001).
|
|
03 (A)FILLER PIC X(041).
|