Getting started with cobol GnuCOBOL installation with GNU/Linux ACCEPT statement ADD statement ALLOCATE statement ALTER statement CANCEL statement CALL statement COMMIT statement COMPUTE statement CONTINUE statement COPY directive String DELETE statement DIVIDE statement DISPLAY statement EVALUATE statement EXIT statement GENERATE statement FREE statement GO TO statement GOBACK statement IF statement INITIALIZE statement INITIATE statement INSPECT statement MERGE statement MOVE statement MULTIPLY statement OPEN statement PERFORM statement READ statement RELEASE statement RETURN statement REPLACE directive REWRITE statement SET statement SEARCH statement SORT statement START statement SUBTRACT statement STOP statement TERMINATE statement STRING statement SUPPRESS statement UNLOCK statement Intrinsic Functions UNSTRING statement USE statement WRITE statement Data division How does the computational work in cobol?

ADD statement

Remarks:

Where rounded-phase is

ADD statement

ADD 1 TO cobol

This modifies the variable cobol. Overflow silently ignored.

ADD 1 TO cobol GIVING GnuCOBOL

This doesn't modify cobol, the result of the ADD being stored in GnuCOBOL. Again, overflow of the storage allocation silently ignored (the field will stay at its old value on size errors and there will be no exception raised).

ADD
    a b c d f g h i j k l m n o p q r s t u v w x y z
    GIVING total-of
    ON SIZE ERROR
        PERFORM log-problem
    NOT ON SIZE ERROR
        PERFORM graph-result
END-ADD

Multiple inputs are allowed, with storage size testing explicit. COBOL has an intrinsic FUNCTION E, so it not a wise choice for a single letter identifier.

SIZE ERROR in COBOL is dependent on type and/or PICTURE. A PIC 9 field will only safely store values from 0 to 9, an intermediate result of 10 would trigger the ON SIZE ERROR phrase in that case.

Contributors

Topic Id: 5533

Example Ids: 19691

This site is not affiliated with any of the contributors.