안녕하세요~ 고수님들~ㅎ
제가 지금 하려는게..
CBO테이블에는 1~12월 필드가 있고.
프로그램은
월 __(단일값)
입력받아 해당 월에 대한 데이터를 업데이트 하는 프로그램인데요
EXEC SQL.
UPDATE CBOTABLE
...
ENDEXEC.
방법으로 하려니 1~12월갯수만큼 case를 만들어야 하나...
필드 심볼 쓰려니까 그것도 안먹는거 같구...
고민이 되네요..
안녕하세요~ 고수님들~ㅎ
제가 지금 하려는게..
CBO테이블에는 1~12월 필드가 있고.
프로그램은
월 __(단일값)
입력받아 해당 월에 대한 데이터를 업데이트 하는 프로그램인데요
EXEC SQL.
UPDATE CBOTABLE
...
ENDEXEC.
방법으로 하려니 1~12월갯수만큼 case를 만들어야 하나...
필드 심볼 쓰려니까 그것도 안먹는거 같구...
고민이 되네요..
FIELD-SYMBOLS를 사용하시면 됩니다.
아래는 예제 입니다.
엑셀파일에 있는 자료를 불러서 IT_XLS에 1월부터 12월까지 월별 필드에 값을 넣는 로직입니다.
참고하십시요.
FIELD-SYMBOLS: <FS_COL>.
SORT LT_XLS BY ROW COL.
LOOP AT LT_XLS.
AT NEW ROW.
CLEAR: IT_XLS.
ENDAT.
CONCATENATE 'IT_XLS-COL' LT_XLS-COL+02(02)
INTO LV_FIELD.
ASSIGN (LV_FIELD) TO <FS_COL>.
<FS_COL> = LT_XLS-VALUE.
AT END OF ROW.
APPEND IT_XLS.
CLEAR: IT_XLS.
ENDAT.
ENDLOOP.