« Programmation Cobol » : différence entre les versions

Contenu supprimé Contenu ajouté
Ligne 164 :
|}
*OPERATION
**ADD
ADD (X) TO A, B.
ADD (X) GIVING C, D.
// X : somme // X+A>A, X+B>B, X>C, X>D
**SUBTRACT
SUBTRACT (X) FROM A, B.
SUBTRACT (X) FROM x1 GIVING C, D.
// X : somme // X-A>A, X-B>B, X-x1>C, X-x1>D
**MULTIPLY
MULTIPLY x1 BY A, B.
MULTIPLY x1 BY x2 GIVING C, D.
// x1*A>A, x1*B>B, x1*x2>C, x1*x2>D
**DIVIDE
DIVIDE x1 INTO A, B.
DIVIDE x1 {INTO/BY} x2 GIVING C, D REMAINDER E.
// A/x1>A, B/x1>B, x2/x1>C (into), x2/x1>D (into), x1/x2>C (by), x1/x2>D (by), x1-x2*D>E (reste)
 
**OPT / ROUNDED : +5 au premier digit decimal non inclu
Ligne 192 :
ADD A,B GIVING C ROUNDED.
> c(Rounded) = 58.99 + .05 = 59.04 = |5|9|0| = 59.0
 
</pre>
**OPT / ON SIZE ERROR = Sur partie entière, si champ trop petit, le champ n'est pas rempli et exec d'instruction.
Ligne 203 ⟶ 202 :
// A+B=1026 - trop grand pour C >> exec d'instruction
</pre>
*DISPLAY
DISPLAY X, " est une var".
*PERFORM
PERFORM nm (x times)
 
PERFORM nm UNTIL cond
 
PERFORM nm VARYING X FROM 2 BY 1 UNTIL cond
 
PERFORM nm1 THRU nm2
 
====de controle====