qiuqiuqiu
12 lines
440 B
COBOL
12 lines
440 B
COBOL
*
|
|
* 集約結果レコード 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).
|