Utilice este libro de copia COBOL de ejemplo con
Construir una aplicación COBOL DB2 por lotes local.
01 EMPLOYEE.
05 EMPNO PIC X(6).
05 FIRSTNME.
49 LEN PIC S9(4) COMP-5.
49 DAT PIC X(12).
05 MIDINIT PIC X(1).
05 LASTNAME.
49 LEN PIC S9(4) COMP-5.
49 DAT PIC X(15).
05 WORKDEPT PIC X(3).
05 PHONENO PIC X(4).
05 HIREDATE PIC X(10).
05 JOB PIC X(8).
05 EDLEVEL PIC S9(4) COMP-5.
05 SEX PIC X(1).
05 BIRTHDATE PIC X(10).
05 SALARY PIC S9(7)V9(2) COMP-3.
05 BONUS PIC S9(7)V9(2) COMP-3.
05 COMM PIC S9(7)V9(2) COMP-3.