*&---------------------------------------------------------------------*
*& Report Z02_003 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z02_003 .
DATA:
date1 TYPE d, date2 TYPE t,
string1(6) TYPE c, string2(8) TYPE c,
number1 TYPE p DECIMALS 2, number2 TYPE p DECIMALS 0,
count1 TYPE i, count2 TYPE i.
PERFORM typetest USING date1 string1 number1 count1.
SKIP.
PERFORM typetest USING date2 string2 number2 count2.
FORM typetest USING now
txt TYPE c
value(num) TYPE p
int TYPE i.
DATA: t(1) TYPE c.
DESCRIBE FIELD now TYPE t.
WRITE: / 'Type of NOW is', t.
DESCRIBE FIELD txt LENGTH t IN CHARACTER MODE.
WRITE: / 'Length of TXT is', t.
DESCRIBE FIELD num DECIMALS t.
WRITE: / 'Decimals of NUM are', t.
DESCRIBE FIELD int TYPE t.
WRITE: / 'Type of INT is', t.
ENDFORM.
*& Report Z02_003 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z02_003 .
DATA:
date1 TYPE d, date2 TYPE t,
string1(6) TYPE c, string2(8) TYPE c,
number1 TYPE p DECIMALS 2, number2 TYPE p DECIMALS 0,
count1 TYPE i, count2 TYPE i.
PERFORM typetest USING date1 string1 number1 count1.
SKIP.
PERFORM typetest USING date2 string2 number2 count2.
FORM typetest USING now
txt TYPE c
value(num) TYPE p
int TYPE i.
DATA: t(1) TYPE c.
DESCRIBE FIELD now TYPE t.
WRITE: / 'Type of NOW is', t.
DESCRIBE FIELD txt LENGTH t IN CHARACTER MODE.
WRITE: / 'Length of TXT is', t.
DESCRIBE FIELD num DECIMALS t.
WRITE: / 'Decimals of NUM are', t.
DESCRIBE FIELD int TYPE t.
WRITE: / 'Type of INT is', t.
ENDFORM.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
630 | REPORT z20_002 [2] | sapjoy | 2007.04.15 | 3092 |
629 | REPORT Z18_002 | sapjoy | 2007.03.05 | 3082 |
628 | REPORT z18_02. | sapjoy | 2012.08.01 | 3079 |
627 | report zsalv_004 | sapjoy | 2010.08.20 | 3076 |
» | Z02_003 [2] | sapjoy | 2006.12.02 | 3042 |
625 | Z01_018 [2] | sapjoy | 2006.12.02 | 3042 |
624 | doi_create [1] | sapjoy | 2008.12.25 | 3040 |
623 | REPORT Z_DYNAMIC_SCREEN [1] | sapjoy | 2010.10.07 | 3034 |
622 | REPORT Z05_014 | sapjoy | 2008.04.14 | 3010 |
621 | Z01_020 [2] | sapjoy | 2006.12.02 | 3008 |
620 | report zsalv_041 . | sapjoy | 2010.08.20 | 2998 |
619 | REPORT Z15_033 | sapjoy | 2007.02.05 | 2987 |
618 | report zsalv_043 . | sapjoy | 2010.08.20 | 2978 |
617 | report zsapdoi_005. | sapjoy | 2008.12.26 | 2978 |
616 | report zsalv_032 . | sapjoy | 2010.08.20 | 2976 |
615 | REPORT Z11_001 | sapjoy | 2006.12.20 | 2976 |
614 | INLUCDE ZXAISU02 | sapjoy | 2008.12.15 | 2961 |
613 | PROGRAM z16_001 | sapjoy | 2007.04.26 | 2952 |
612 | REPORT Z17_028 | sapjoy | 2007.02.26 | 2937 |
611 | REPORT z19_005 [1] | sapjoy | 2007.04.03 | 2927 |
잘 보겠습니다.