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

 
2.4.11  SUBTRACT statement
          (뺄셈 문)
 
  
  [형식 1] 
                             
  SUBTRACT { 데이터명-1 } { { 데이터명-2 } … } FROM 데이터명-m    
  리터랄-1 리터랄-2    
                             
    [ ROUNDED ]   [ 데이터명-n  [ ROUNDED ] … ]    
                             
              [ ON SIZE ERROR  무조건 명령 ]  
                             
 
①
  FROM 다음의 값에서 FROM 앞의 값을 뺀 후
FROM 뒤의 데이터명에 결과 값을 기억시킵니다.
  
 [예문] 
SUBTRACT A FROM B. → ( B = B - A )
SUBTRACT 4 I FROM J. → ( J = J - 4 + I )
SUBTRACT K R FROM M N. → ( M = M - R - K ,
   N = N - R - K )
SUBTRACT R FROM N
ROUNDED ON SIZE ERROR
GO TO  ERROR-RTN.
 
♧  ROUNDED 와 ON SIZE ERROR 구는 ADD 문과 사용 방법이 동일합니다.
 
 
  
  [형식 2] 
                             
  SUBTRACT { 데이터명-1 } { { 데이터명-2 } … } FROM 데이터명-m    
  리터랄-1 리터랄-2    
                             
              GIVING  데이터명-n  [ ROUNDED ]    
                             
        [ 데이터명-o  [ ROUNDED ] … ]    
                             
              [ ON SIZE ERROR  무조건 명령 ]  
                             
 
①
  FROM 뒤에 있는 데이터명에서 FROM 앞의 값을 빼며,
GIVING 다음의 데이터명에 기억시킵니다.
  
 [예문 1] 
SUBTRACT I FROM J GIVING K. → ( K = J - I )
 
 [예문 2] 
SUBTRACT 56 K FORM B GIVING C D.
→
 ( C = B - 56 - K ,
   D = B - 56 - K )
SUBTRACT A B FORM C GIVING D E
→
 ( D = C - A - B ,
ROUNDED.    E = C - A - B )
 
⇒  E의 결과 값은 반올림된 값이 기억됩니다.
 
 
  
  [형식 3] 
                 
  SUBTRACT { CORRESPONDING } 데이터명-1 FROM 데이터명-2  
  CORR  
                 
      [ ROUNDED ] [ ON SIZE ERROR 무조건 명령 ]  
                 
 
①
  [데이터명-2]에 종속된 항목의 값에서
[데이터명-1]에 종속된 같은 이름의 항목 값을 빼며,
데이터명-2에 종속된 같은 이름의 항목에 기억됩니다.
  
 [예문]  
SUBTRACT CORR A-R FROM B-R.
SUBTRACT C IN A-R FROM C IN B-R.
 
⇒  B-R의 C에서 A-R의 C 항목의 값을 빼서 B-R의 C 항목에 저장합니다.
 
 
지적 소유권을 보호합시다.
 
☜ ♡ ☞