> 

>do~ enddo 문을 이용하여서

>internal table 에 잠깐 저장하였다가.. 테이블로 옮기는 프로그램을 짜려고 하는데요

>아직 초보라 아무것도 모르겠어요...ㅠ

>운영만 하다가 개발일을 배우려고 하니까 어려운게 많네요.

> 

>30번 정도 돌리면서 뒷자리를 1씩 증가시킨 값을 itab 에 넣고

>do 문이 끝나면 itab에 저장된  필드값을 zoy_test 라는 테이블에  옮기려고요...

> 

>예 gggg s56H12312-T0801   1,000  기타내용

>    gggg s56H12312-T0802   1,000  기타내용

>    gggg s56H12312-T0803   1,000  기타내용

>    .

>    .

>    .

>    gggg s56H12312-T0810   1,000  기타내용

> 

>넣으려고 하는데요...

>s56H12312-T0801 끝에 숫자만 1씩 증가하는 방식으로 insert 시키려고 합니다.

>도움좀 주세요^^

DATA: <FS> TYPE ANY.

DATA: I_IDX(3) TYPE N VALUE '800'.

          L_FIELD(15).

DATA: BEGIN OF ITAB,

            F1(4)

            F2 LIKE s56H12312-T0801,

            F3 TYPE P,

            F4 TYPE STRING,

          END OF ITAB.

CLEAR ITAB.

DO 100 TIMES.

 MOVE SY-INDEX TO I_IDX.

 CONCATENATE 's56H12312-T0' I_IDX INTO L_FIELD.

 ASSIGN (L_FIELD) TO <FS>.

 ITAB-F1 = 'gggg'.

 ITAB-F2 = <FS>.

 ITAB-F3 = '1000'.

 ITAB-F4 = '기타내용'.

 APPEND ITAB.

 CLEAR ITAB.

ENDDO.

 INSERT zoy_test  FROM TABLE ITAB.

 도움이 되시길...