메뉴 건너뛰기

SAP 한국 커뮤니티

<img src=3.gif> FIELD-SYMBOLS 관련 질문입니다.

마늘맛쿨피스 2009.11.13 09:12 조회 수 : 1789

안녕 하세요 마늘맛 쿨피스 입니다 . 요금 e-abap.net에서 많은 정보, 문제 해결을 받고 있어서 모든 분께 감사 드림니다.


필드 심볼을 써서 엄청 긴 소스를 줄일려고 하는데 자꾸 에러가 나서 그런데 좋은 해결 방법이 없을까요 ??


그래서 질문 드립니다. 이거 해결되면 1000라인 이상 줄일수 있을거 같아서 질문 드립니다.


 


Field symbol has not yet been assigned. 이런 에러가 나오네요 ㅠㅜ


 


 


다시 수정 햇는데 안돌아 가네요 .


  

FORM INPUT USING    p_seq.

  gt_seq-seq = p_seq.

ENDFORM.


 

FORM AUTO.

  FIELD-SYMBOLS :  TYPE ANY.
  FIELD-SYMBOLS :  TYPE ANY.
  FIELD-SYMBOLS :  TYPE ANY.

  DEFINE DIVIDE_MAC.

   if &1 = 0. &3 = 0.

  else.
   &3 = ( &2 / &1 - 1 ) * 100.
  endif.

  end-of-definition.

  DATA : A_CAL(3),
*             B_CAL(3),
*             C_CAL(3),
             D_CAL(30),
             E_CAL(30),
             F_CAL(30).

  DATA : Z_DATE LIKE P_DATE." LIKE P_DATE.

  Z_DATE = P_DATE+4(2).

  DO 24 TIMES.
   PERFORM INPUT USING : '10''11''12''13''20''21''22','30',
   '31''32''33''34''35''36''37''38',
   '40''41''42',  '43' ,'44','50''51''52'  .

   A_CAL = A_CAL + 1.
   CONCATENATE `gs_amt_profit-amt_`  A_CAL INTO D_CAL.
   CONCATENATE `gs_amt_fix12-amt_` Z_DATE INTO E_CAL.
   CONCATENATE `gs_amt_fix-amt_` gt_seq-seq INTO F_CAL.

  ASSIGN (A_CAL) TO .
  ASSIGN (E_CAL) TO .
  ASSIGN (F_CAL) TO .

IF SY-SUBRC = 0.
   = (  +  - 1 ) * 100.
  "DIVIDE_MAC :   .
ELSE.
  CLEAR : .
ENDIF.
ENDDO.
"ENDCATCH.
ENDFORM.


 


***********************************************************************************************8


--수정전"""




FORM AUTO.

  FIELD-SYMBOLS :  TYPE C .
  DATA : A_CAL(100),
             B_CAL(100),
             C_CAL(100),
             D_CAL(100),
             E_CAL(1000).

  DATA : Z_DATE(100)." LIKE P_DATE.

  Z_DATE = P_DATE+4(2).

  CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 4  OTHERS = 8.

DO 24 TIMES.

"FREE . CLEAR : Z_dATE, gt_seq-seq, D_CAL.

 PERFORM INPUT USING : '10''11''12''13''20''21''22','30',
 '31''32''33''34''35''36''37''38','40''41''42',  '43'
 ,'44','50''51''52'  .

CONCATENATE 'gs_amt_fix' P_DATE+4(2`-amt_` gt_seq-seq
`  / gs_amt_fix-amt_`   gt_seq-seq `- 1 ) * 100 .`  INTO D_CAL.
*      CONCATENATE : 'gs_amt_fix' Z_DATE  INTO A_CAL.
*      CONCATENATE :  A_CAL `-amt_` INTO  B_CAL.
*      CONCATENATE :  B_CAL `  / gs_amt_fix-amt_` INTO C_CAL.
*      CONCATENATE :  C_CAL gt_seq-seq INTO D_CAL.
*      CONCATENATE :  E_CAL `- 1 ) * 100 .`  INTO E_CAL.

  IF sy-subrc = 0.
     ASSIGN (D_CAL) TO  CASTING.
       gs_amt_profit-amt_1  =   .
       "FREE . CLEAR : Z_dATE, gt_seq-seq, D_CAL.
       gs_amt_profit-amt_2 = .
       gs_amt_profit-amt_3 = .
       gs_amt_profit-amt_4 = .
       gs_amt_profit-amt_5 = .
       gs_amt_profit-amt_6 = .
       gs_amt_profit-amt_7 = .
       gs_amt_profit-amt_8 = .
       gs_amt_profit-amt_9 = .
       gs_amt_profit-amt_10 = .
       gs_amt_profit-amt_11 = .
       gs_amt_profit-amt_12 = .
       gs_amt_profit-amt_13 = .
       gs_amt_profit-amt_14 = .
       gs_amt_profit-amt_15 = .
       gs_amt_profit-amt_16 = .
       gs_amt_profit-amt_17 = .
       gs_amt_profit-amt_18 = .
       gs_amt_profit-amt_19 = .
       gs_amt_profit-amt_20 = .
       gs_amt_profit-amt_21 = .
       gs_amt_profit-amt_22 = .
       gs_amt_profit-amt_23 = .
       gs_amt_profit-amt_24 = .
  ELSE
    FREE CLEAR : Z_dATE, gt_seq-seq, D_CAL.
    PERFORM AUTO.
  ENDIF.


ENDDO.
ENDCATCH.

번호 제목 글쓴이 날짜 조회 수
4212 <img src=3.gif>금액 절사방법에 대해 질문드립니다. [6] 해바라기 2009.11.19 4799
4211 <img src=3.gif>수(3,333)을 CHAR 타입로 받을때 소수점이 없어지지 않게 하는 방법 있나요? [3] sora 2009.11.18 1775
4210 <img src=2.gif>메일보내기(outlook) 방법 혹은 자료 부탁드립니다 [13] 츄리닝 2009.11.18 3228
4209 <img src=3.gif>Tab Control에서 alv내용중 checkbox를 여러개 사용해서 checkbox 클릭할때마다 변경하는 방법좀 알려주세요? [6] file eskang 2009.11.17 1223
4208 [re] <img src=2.gif>Tab Control에서 alv내용중 checkbox를 여러개 사용해서 checkbox 클릭할때마다 변경하는 방법좀 알려주세요? [4] 요요 2009.11.18 1912
4207 <img src=3.gif>GUI STATUS 의 어플리케이션 툴바에 관해서 질문이 있습니다. [4] file rune 2009.11.17 1719
4206 <img src=2.gif>필드심볼로 계산 하기 질문입니다. [1] 마늘맛쿨피스 2009.11.17 1354
4205 <img src=3.gif>SMARTFORMS 안에서 Graph가 출력가능한가요? [4] soyo 2009.11.16 1131
4204 <img src=3.gif>다음문제의 답 좀 알려주세요.. ^^; [3] 이카루스 2009.11.16 1013
4203 <img src=3.gif> nested loop을 해결하는 방법을 알려주세요 [10] 해보자보자 2009.11.16 1718
4202 <img src=3.gif>동적으로 펑션 호출 가능한가요.. [2] 사탕수수 2009.11.13 1841
4201 <img src=2.gif>[User-Exit] PM 오더 등록시 정산리시버 체크 [4] 귀여운 아이 2009.11.13 2044
» <img src=3.gif> FIELD-SYMBOLS 관련 질문입니다. [6] 마늘맛쿨피스 2009.11.13 1789
4199 [re] <img src=2.gif> FIELD-SYMBOLS 관련 질문입니다. [1] 요요 2009.11.13 1730
4198 <img src=3.gif>write문으로 이루어진 list를 pdf파일로 저장하는 부분의 궁금증 [5] file 튀밥 2009.11.12 1802
4197 <img src=3.gif>엑셀 다운로드시 숫자가 2.00911E+12나오는데 방법이 없을까요? [6] 귤탱 2009.11.12 5778
4196 <img src=3.gif>ALV에서 F4 구현시 도메인의 Range값 가져오는 법? [2] 부산갈매기 2009.11.12 2102
4195 <img src=2.gif>ws_download을써서 header가 나오게 하고싶습니다. [2] CoolGuy 2009.11.12 1073
4194 <img src=1.gif>Intertable의 데이터를 cvs파일로 다운로드 CoolGuy 2009.11.12 1211
4193 <img src=2.gif>[질문수정]사용자의 SAP GUI 버전 정보 시스템 변수 또는 펑션이 있나요? [3] 도마슈노 2009.11.11 1228