at문 응용

2248 단어

DATA: BEGIN OF itab OCCURS 0,

f1 TYPE i,

f2(6) TYPE c,

f3(10) TYPE n,

f4(16) TYPE p DECIMALS 2,

END OF itab.

DATA: sub_tot(10) TYPE p DECIMALS 3.

**--1

itab-f1 = 1.

itab-f2 = 'ONE'.

itab-f3 = 10.

itab-f4 = '1000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 1.

itab-f2 = 'ONE'.

itab-f3 = 20.

itab-f4 = '2000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 1.

itab-f2 = 'ONE'.

itab-f3 = 30.

itab-f4 = '3000.00'.

APPEND itab.

CLEAR itab.

*--2

itab-f1 = 2.

itab-f2 = 'TWO'.

itab-f3 = 10.

itab-f4 = '1000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 2.

itab-f2 = 'TWO'.

itab-f3 = 20.

itab-f4 = '2000.00'.

APPEND itab.

CLEAR itab.

*-- 3

itab-f1 = 3.

itab-f2 = 'THREE'.

itab-f3 = 10.

itab-f4 = '1000.00'.

APPEND itab.

CLEAR itab.

itab-f1 = 3.

itab-f2 = 'THREE'.

itab-f3 = 20.

itab-f4 = '2000.00'.

APPEND itab.

CLEAR itab.

SORT itab BY f1.

LOOP AT itab.

AT FIRST.

WRITE: /35 ' MATERIAL DETAILS:'.

ULINE.

ENDAT.

AT NEW f1.

WRITE: / 'DETAILS OF MATERIAL:' COLOR 7 , itab-f1.

ULINE.

ENDAT.

WRITE: / itab-f1, itab-f2, itab-f3, itab-f4.

sub_tot = sub_tot + itab-f4.

AT END OF f1.

ULINE.

WRITE: / 'SUB TOTAL :' COLOR 3 INVERSE ON, sub_tot COLOR 3 INVERSE ON.

CLEAR sub_tot.

ENDAT.

AT LAST.

SUM.

ULINE.

WRITE: 'SUM:', itab-f4.

ULINE.

ENDAT.

ENDLOOP.


AT....End AT 문의 차이점:
AT FIRST: 내부 테이블의 첫 줄을 순환할 때 실행되는 코드를 터치합니다. 한 번만 실행합니다.
AT LAST: 내부 테이블의 마지막 줄 데이터를 순환할 때 코드를 실행합니다. 한 번만 실행합니다.
AT NEW F1: 필드 F1 및 F1의 왼쪽에 있는 모든 필드의 데이터가 이전 행의 데이터와 일치하지 않으면 코드를 실행합니다.
AT END OF F1: 필드 F1과 F1의 왼쪽에 있는 모든 필드의 데이터가 다음 행의 데이터와 일치하지 않을 경우 코드를 실행합니다.
참고 사항:
이 네 가지 AT...End AT 문은 모두 loop 주기의 테이블 문에서만 사용할 수 있습니다.
AT NEW F1과 AT END OF F1의 경우 주의: 내부 표의 필드 F1 이후의 필드의 값은 *
control level은where 조건이 있는loop 내표에서 사용할 수 없습니다
코드 검사 오류:

The LOOP statement processing will be limited

(FROM, TO and WHERE additions in LOOP)

Interaction with group change processing (AT NEW, ...) is undefined


만약 AT NEW F1과 AT END OF F1에 F1 이후의 필드 값이 필요하다면 어떻게 합니까?
이 문장을 사용하기 전에 중간 변수에 값을 부여할 수 있습니다.

좋은 웹페이지 즐겨찾기