COBOL/400 Language Help

Format 3 (DIVIDE BY, GIVING)

Description
In Format 3, the value of identifier-1 or literal-1 is divided by the value of identifier-2 or literal-2. The value of the quotient is stored in each data item referenced in the GIVING phrase by identifier-3.
Format 3 (DIVIDE BY, GIVING)
 
->->--DIVIDE--*--identifier-1--*--BY--*-identifier-2-*-------->
            *--literal-1-----*      *-literal-2----*
 
          *-------------------------*
          V                         +
->--GIVING identifier-3--*-----------*----------------------->
                        *--ROUNDED--*
 
->----*----------------------------------------------*------->
     *--*----*---SIZE ERROR imperative-statement-1--*
        *-ON-*
 
->---*---------------------------------------------------*--->
    *-NOT---*----*---SIZE ERROR imperative-statement-2--*
            *-ON-*
 
 
->--*------------*-------------------------------------------><-
   *-END-DIVIDE-*
 


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