Rational Developer for System z

EMPLOYEE

Use this sample COBOL copybook with Building a local batch COBOL DB2 application
       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.

Feedback