qiuqiuqiu
11 lines
411 B
COBOL
11 lines
411 B
COBOL
*
|
|
* 勤怠: 日別展開休暇レコード LEAVE-DAILY 80B
|
|
*
|
|
03 (A)EMP-ID PIC X(008).
|
|
03 (A)DATE PIC 9(008).
|
|
03 (A)LEAVE-TYPE PIC X(002).
|
|
03 (A)START-TIME PIC 9(004).
|
|
03 (A)END-TIME PIC 9(004).
|
|
03 (A)APPL-ID PIC 9(009).
|
|
03 (A)FILLER PIC X(045).
|