Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,17 @@
|
|||
dcl-c DIVIDE_BY_ZERO 00102;
|
||||
|
||||
dcl-s result zoned(5:2);
|
||||
dcl-s value1 zoned(5:2);
|
||||
dcl-s value2 zoned(5:2);
|
||||
|
||||
value1 = 10;
|
||||
value2 = 0;
|
||||
|
||||
monitor;
|
||||
eval(h) result = value1 / value2; // Using half rounding here for the eval result
|
||||
on-error DIVIDE_BY_ZERO;
|
||||
// Initialise the result to 0. Consider other messaging perhaps.
|
||||
result = 0;
|
||||
endmon;
|
||||
|
||||
*inlr = *on;
|
||||
Loading…
Add table
Add a link
Reference in a new issue