qiuqiuqiu
14 lines
587 B
COBOL
14 lines
587 B
COBOL
*
|
|
* 勤怠: 日別勤怠計算レコード DAILY-RECORD 200B
|
|
*
|
|
03 (A)EMP-ID PIC 9(008).
|
|
03 (A)DATE PIC 9(008).
|
|
03 (A)TIME-IN PIC 9(004).
|
|
03 (A)TIME-OUT PIC 9(004).
|
|
03 (A)ANNUAL-H PIC 9(004)V9(001).
|
|
03 (A)PERSONAL-H PIC 9(004)V9(001).
|
|
03 (A)OFFICIAL-H PIC 9(004)V9(001).
|
|
03 (A)SICK-H PIC 9(004)V9(001).
|
|
03 (A)ABSENT-H PIC 9(004)V9(001).
|
|
03 (A)FILLER PIC X(151).
|