qiuqiuqiu
17 lines
698 B
COBOL
17 lines
698 B
COBOL
*
|
|
* 勤怠: 打刻休暇照合レコード KIN-LEAVE 160B
|
|
*
|
|
03 (A)EMP-ID PIC X(008).
|
|
03 (A)WORK-DATE PIC 9(008).
|
|
03 (A)STR-TIME PIC 9(004).
|
|
03 (A)END-TIME PIC 9(004).
|
|
03 (A)DEPT-ID PIC X(004).
|
|
03 (A)TERMINAL PIC X(006).
|
|
03 (A)FILLER-1 PIC X(046).
|
|
03 (A)LEAVE-TYPE PIC X(002).
|
|
03 (A)LEAVE-STR-TIME PIC 9(004).
|
|
03 (A)LEAVE-END-TIME PIC 9(004).
|
|
03 (A)LEAVE-HOURS PIC 9(004)V9(001).
|
|
03 (A)APPLICATION-ID PIC 9(009).
|
|
03 (A)FILLER-2 PIC X(056).
|