*&---------------------------------------------------------------------*
*& 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.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
10 | REPORT Z11_03. | sapjoy | 2012.07.30 | 795 |
9 | REPORT Z11_04 . | sapjoy | 2012.07.30 | 786 |
8 | REPORT Z11_09. | sapjoy | 2012.07.30 | 780 |
7 | REPORT z10_02. | sapjoy | 2012.07.30 | 779 |
6 | API | sapjoy | 2022.11.02 | 320 |
5 | Z18_06_DRAGCLASS | sapjoy | 2022.02.22 | 299 |
4 | z15_21_drag | sapjoy | 2022.02.24 | 272 |
3 | REPORT z05_36 | sapjoy | 2023.02.07 | 246 |
2 | REPORT Z06_01. | sapjoy | 2024.04.20 | 30 |
1 | REPORT Z99_24. | sapjoy | 2024.05.21 | 17 |
잘 보겠습니다.