COBOL/400 Language Help

Format 3 (SUBTRACT with CORRESPONDING)

Description
In Format 3 (SUBTRACT with CORRESPONDING), elementary data items within identifier-1 are subtracted from the corresponding elementary data items within identifier-2, where the results are stored.
Format 3 (SUBTRACT with CORRESPONDING)
 
  ->->--SUBTRACT-*-CORRESPONDING-*--------------------------->
               *-CORR----------*
 
  ->--identifier-1 FROM identifier-2--*---------*----------->
                                     *-ROUNDED-*
 
  ->--*------------------------------------------*---------->
     *-*----*-SIZE ERROR imperative-statement-1-*
       *-ON-*
 
  ->--*-----------------------------------------------*----->
     *-NOT--*----*-SIZE ERROR imperative-statement-2-*
            *-ON-*
 
  ->--*--------------*--------------------------------------><-
     *-END-SUBTRACT-*

identifier-1 or -2

In Format 1, identifier must name an elementary numeric item.

literal-1 or -2

In all formats, literal must be numeric.

identifier-1, -2, or -3

In Format 2, identifier must name an elementary numeric item, unless the identifier follows the word GIVING, in which case it must name a numeric or numeric-edited elementary item.

identifier-1 or -2

In Format 3, identifier must name a group item.


[ Top of Page | Previous Page | Next Page | Table of Contents ]