15 lines
639 B
COBOL
15 lines
639 B
COBOL
*
|
|
* 人事異動トランザクション 200B JIN05UPD入力
|
|
*
|
|
03 (A)TRAN-TYPE PIC X(001).
|
|
03 (A)TRAN-EMP-ID PIC X(008).
|
|
03 (A)TRAN-KANA-SEI PIC X(020).
|
|
03 (A)TRAN-KANA-MEI PIC X(020).
|
|
03 (A)TRAN-KANJI-NAME PIC X(040).
|
|
03 (A)TRAN-SUB-CODE PIC X(004).
|
|
03 (A)TRAN-BIRTH-DATE PIC X(008).
|
|
03 (A)TRAN-DEPT-CODE PIC X(004).
|
|
03 (A)TRAN-ENTRY-DATE PIC X(008).
|
|
03 (A)TRAN-STATUS PIC X(001).
|
|
03 (A)FILLER PIC X(086).
|