12 lines
519 B
COBOL
12 lines
519 B
COBOL
*
|
|
* 社員台帳印刷レコード 132B JIN04PRT出力
|
|
* WRITE ADVANCING + LINAGE制御（132桁データのみ、ASA制御文字なし）
|
|
*
|
|
03 (A)RPT-EMP-ID PIC X(008).
|
|
03 (A)RPT-KANA-SEI PIC X(020).
|
|
03 (A)RPT-KANA-MEI PIC X(020).
|
|
03 (A)RPT-KANJI-NAME PIC X(040).
|
|
03 (A)RPT-DEPT-CD PIC X(004).
|
|
03 (A)RPT-ENTRY-DATE PIC X(008).
|
|
03 (A)FILLER PIC X(032).
|