경고
   박우범의 허락 없이는 상업적 사용을 금합니다.

 
2.4.10  ADD statement (덧셈)
 
  [형식 1] 
                         
  ADD { 데이터명-1 } { { 데이터명-2 } … } 데이터명-n  
  리터랄-1 리터랄-2    
                         
      [ ROUNDED ] [ ON SIZE ERROR  무조건 명령 ]  
                         
 
①
  모든 데이터명 또는 상수(리터랄)값을 더하여, 맨 마지막 데이터명에 결과 값을 기억합니다.
  
 [예문 1] 
ADD A B. → ( B = B + A )
ADD A 5 C. → ( C = C + 5 + A )
ADD 1 2 3 K. → ( K = K + 3 + 2 + 1 )
 
②
  ROUNDED는 결과 값을 반올림하여 저장할 때 사용합니다.
 
 [예문 2] 
MOVE 4.5 TO A. → ( A = 4.5 )
MOVE 6.1 TO B. → ( B = 6.1 )
ADD A B ROUNDED. → ( B = B + A )
→ ( 11 = 4.5 + 6.1 )
 
 
 
  [형식 2] 
                             
  ADD { 데이터명-1 } { { 데이터명-2 } … } TO 데이터명-m [ ROUNDED ]  
  리터랄-1 리터랄-2    
                             
              [ 데이터명-n  [ ROUNDED ] … ]  
                             
              [ ON SIZE ERROR  무조건 명령 ]  
                             
 
①
  TO 앞의 내용과 TO 다음의 데이터명의 값을 더하여, TO 다음의 데이터명에 기억합니다.
  
 [예문 1] 
ADD A TO B. → ( B = B + A )
ADD A B TO C. → ( C = C + B + A )
ADD 5 K TO T. → ( T = T + K + 5 )
 
 [예문 2] 
ADD 20 TO A B. → ( A = A + 20 ,
   B = B + 20 )
ADD A B TO C D. → ( C = C + B + A ,
   D = D + B + A )
 
♧  ON SIZE ERROR는 결과 값이 기억될 기억 장소의 크기가 부족할 때 발생합니다.
 [예문 3] 
77 A PIC 9(2) VALUE 10.
77 B PIC 9(2) VALUE 50.
77 C PIC 9(2) VALUE 40.
:
ADD  A  B  TO  C  ON SIZE ERROR  GO TO  ERR-RTN.
 
♧  [ C = C + B + A ]의 결과 값이 100 ( 100 = 40 + 50 + 10 )이므로,
C는 9(2)로 크기(BYTE)가 맞지 않아 ON SIZE ERROR가 발생합니다.
 
 
  [형식 3] 
                             
  ADD { 데이터명-1 } { { 데이터명-2 } … } GIVING 데이터명-m [ ROUNDED ]  
  리터랄-1 리터랄-2    
                             
              [ 데이터명-n  [ ROUNDED ] … ]  
                             
              [ ON SIZE ERROR  무조건 명령 ]  
                             
 
①
  GIVING 앞의 내용을 전부 더하여 GIVING 다음의 데이터명에 저장합니다.
  
 [예문 1] 
ADD I J GIVING K. → ( K = I + J )
ADD B 30 50 GIVING I J. → ( I = B + 30 + 50 ,
  J = B + 30 + 50 )
 
 [예문 2] 
ADD A 30 GIVING C ROUNDED
ON SIZE ERROR DISPLAY "ERROR".
 
⇒
  ( A + 30 )을 반올림하여 C에 결과 값을 기억시키며,
ON SIZE ERROR가 발생하면 화면상에 "ERROR"라고 출력합니다.
 [예문 3] 
                   
  ADD A TO B GIVING C.   → ERROR 발생
 
‡
  ADD 문에서는 TO 와 GIVING 을 함께 기술하지 못합니다.
 
 
  [형식 4] 
                   
  ADD { CORRESPONDING } 데이터명-1 TO 데이터명-2 [ ROUNDED ]  
  CORR    
                   
      [ ON SIZE ERROR 무조건 명령 ]  
                   
 
①
  [데이터명-1]에 종속된 항목의 값과 [데이터명-2]에 종속된 같은 이름의 항목 값이 더해져, 데이터명-2에 종속된 같은 이름의 항목에 기억됩니다.
  
 [예문 1] 
ADD CORR A-R TO B-R.
ADD B IN A-R TO B IN B-R.
 
⇒  A-R의 B의 항목과 B-R의 B의 항목이 더해져 B-R의 B에 기억됩니다.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞