DIVIDE

Folgende Syntax wird für das DIVIDE Statement erkannt:

>>-DIVIDE--+-identifier-1-+--INTO------------------------------->
           '-literal-1----'         

   .---------------------------.   
   V                           |   
>----identifier-2--+---------+-+-------------------------------->
                   '-ROUNDED-'     

>--+--------------------------------------------+--------------->
   '-+----+--SIZE ERROR--imperative-statement-1-'   
     '-ON-'                                         

>--+-------------------------------------------------+---------->
   '-NOT--+----+--SIZE ERROR--imperative-statement-2-'   
          '-ON-'                                         

>--+------------+----------------------------------------------><
   '-END-DIVIDE-' 

<html><hr/></html>

>>-DIVIDE--+-identifier-1-+--INTO--+-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-' 

<html><hr/></html>

>>-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-'   

<html><hr/></html>

>>-DIVIDE--+-identifier-1-+--INTO--+-identifier-2-+------------->
           '-literal-1----'        '-literal-2----'   

>--GIVING--identifier-3--+---------+--REMAINDER--identifier-4--->
                         '-ROUNDED-'                            

>--+--------------------------------------------+--------------->
   '-+----+--SIZE ERROR--imperative-statement-1-'   
     '-ON-'                                         

>--+-------------------------------------------------+---------->
   '-NOT--+----+--SIZE ERROR--imperative-statement-2-'   
          '-ON-'                                         

>--+------------+----------------------------------------------><
   '-END-DIVIDE-' 

<html><hr/></html>

>>-DIVIDE--+-identifier-1-+--BY--+-identifier-2-+--------------->
           '-literal-1----'      '-literal-2----'   

>--GIVING--identifier-3--+---------+--REMAINDER--identifier-4--->
                         '-ROUNDED-'                            

>--+--------------------------------------------+--------------->
   '-+----+--SIZE ERROR--imperative-statement-1-'   
     '-ON-'                                         

>--+-------------------------------------------------+---------->
   '-NOT--+----+--SIZE ERROR--imperative-statement-2-'   
          '-ON-'                                         

>--+------------+----------------------------------------------><
   '-END-DIVIDE-' 
cobmig:cobol:stmt:divide · Zuletzt geändert: 14.11.2019 16:17

Copyright © 1992-2024 TeamWiSE Gesellschaft für Softwaretechnik mbH         Adressen |  Kontakt |  AGB |  Datenschutzerklärung |  Impressum