REPORT  Z03_028 .

CONSTANTS: MYNAME(10) VALUE ‘GIL DONG’,

             BIRTHDAY TYPE D VALUE ‘20070905’,

             ZERO  TYPE I   VALUE IS INITIAL.

WRITE : myname, birthday, zero.