Rational Developer for System z, Versión 7.6.1

EMPLOYEE.CPY

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.

Términos de uso | Comentarios

Este Information Center está basado en tecnología Eclipse. (http://www.eclipse.org)