REPORT  Z05_007.

DATA:  date      TYPE d,

             number    TYPE p DECIMALS 2,

             count     TYPE i,

             str(20)   type c.

str = 'TYPE 테스트'.

PERFORM typetest USING date str number count.

FORM typetest USING now

                                        txt TYPE c

                                        value(num) TYPE p

                                        int TYPE i.

             DATA: t(2) TYPE c.

             DESCRIBE FIELD now TYPE t.

             WRITE: / 'NOW 변수 타입 : ', t.

             write : / txt.

             DESCRIBE FIELD txt LENGTH t IN CHARACTER MODE.

             WRITE: / 'TXT 변수 타입 : ', t.

             DESCRIBE FIELD num DECIMALS t.

             WRITE: / 'NUM 변수의 소수자리 : ', t.

             DESCRIBE FIELD int TYPE t.

             WRITE: / 'INT 변수의 타입 : ', t.

ENDFORM.