gs_p9910_ins.--> 여기가 지워지지 않아요. clear 를 해도 계속 남아있는데요...잘 모르겠네요..음
고수님들의 의견 부탁드립니다.
예)
한건을 입력하면 저장이 된다.
두번째 건을 입력하면 덤프 에러가 뜬다.
디버깅을 해서 찾아보면 gs_p9910_ins --> 에 그 전에 입력한 값도 같이 있다.
여러건을 입력할 경우 처음엔 입력이 된다.
두번째 입력을 하면 에러난다..
조금 급한 사항이라...ㅠㅠㅠ 부탁드립니다.
*저장일경우
LOOP AT gt_p9910 INTO gs_p9910 .
IF gs_p9910-insert = 'I' .
PERFORM stobjid.
MOVE-CORRESPONDING gs_p9910 TO gs_p9910_ins.
gs_p9910-plvar = '01'.
gs_p9910-otype = 'ST' .
gs_p9910-objid = g_stobjid .
gs_p9910-infty = '9910'.
CONCATENATE gs_p9910-otype gs_p9910-objid INTO g_le_stobjid . " obtype과 objid를 합쳐서 넣는다.
" gs_p9910-otjid = g_le_stobjid .
gs_p9910-subty = ''.
gs_p9910-istat = '1'.
"gs_p9910_ins-priox = jang.
gs_p9910-begda = sy-datum.
gs_p9910-endda = '99991231'.
gs_p9910-varyf = ''.
gs_p9910-seqnr = ''.
gs_p9910-aedtm = sy-datum.
gs_p9910-uname = sy-uname.
gs_p9910-reasn = ''.
gs_p9910-histo = ''.
gs_p9910-itxnr = ''.
gs_p9910-grtobjid = jang.
MOVE-CORRESPONDING gs_p9910 TO gs_p9910_ins.
APPEND gs_p9910_ins TO gt_p9910_ins.
CLEAR: gs_p9910_ins.
gs_p9910-insert = ''.
MODIFY gt_p9910 FROM gs_p9910.
ELSE.
MOVE-CORRESPONDING gs_p9910 TO gs_p9910_udp.
APPEND gs_p9910_udp TO gt_p9910_udp.
CLEAR: gs_p9910_udp.
* MODIFY gt_p9910 FROM gs_p9910.
* CLEAR: gs_p9910.
ENDIF.
ENDLOOP.
* 데이타를 저장한다.
INSERT hrp9910 FROM TABLE gt_p9910_ins.
DESCRIBE TABLE gt_p9910_ins LINES l_lines.
IF l_lines > 0.
IF sy-subrc = 0.
COMMIT WORK.
MESSAGE w001(zcm01) WITH '저장 완료.'.
ELSE.
ROLLBACK WORK.
MESSAGE w001(zcm01) WITH '저장 실패.'.
ENDIF.
ENDIF.
hrp9910 <-- 테이블의 키값을 잘 보심이 좋을듯한데요.
table insert 오류 같습니다.