We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
FUNCTION ABS
1 parent 549f681 commit c2b90cbCopy full SHA for c2b90cb
libcobj/src/jp/osscons/opensourcecobol/libcobj/common/CobolIntrinsic.java
@@ -733,7 +733,7 @@ public static AbstractCobolField funcExp10(AbstractCobolField srcfield) {
733
/** libcob/intrinsicのcob_intr_absの実装 */
734
public static AbstractCobolField funcAbs(AbstractCobolField srcfield) {
735
makeFieldEntry(srcfield);
736
- CobolDecimal d1 = new CobolDecimal();
+ CobolDecimal d1 = srcfield.getDecimal();
737
d1.setValue(d1.getValue().abs());
738
try {
739
d1.getField(currField, 0);
tests/run.src/functions.at
@@ -20,7 +20,6 @@
20
### ISO+IEC+1989-2002 15 Intrinsic Functions
21
22
AT_SETUP([FUNCTION ABS])
23
-AT_CHECK([${SKIP_TEST}])
24
25
AT_DATA([prog.cob], [
26
IDENTIFICATION DIVISION.
0 commit comments