negative value in natural
Posted: Sun Dec 13, 2015 6:20 pmHi,
Pls let me know how u handle negative values in natural for calculations
Pls let me know how u handle negative values in natural for calculations
IBM Mainframe Forum
Mainframe Technical Support Forums
https://www.ibmmainframeforum.com/
negative value in natural
Page 1 of 1
Posted: Sun Dec 13, 2015 6:20 pmRe: negative value in natural
Posted: Sun Dec 13, 2015 6:40 pmYou should have the manuals available to you so refer to them. Also, look at other programs and see how they deal with them.
Re: negative value in natural
Posted: Sun Dec 13, 2015 7:02 pmi had look at the manuals
to elaborate
can i move -234.5678 to N(999.9999).
pls explain
to elaborate
can i move -234.5678 to N(999.9999).
pls explain
Re: negative value in natural
Posted: Mon Dec 14, 2015 2:24 pmNatural processes external decimal (format N) values just like any other mainframe language would. That is, the right-most byte contains the sign in the left nibble. Here's some code to demonstrate.And here's the output.Notice that the field definition is N3.4; 3 digits before the implied decimal point, 4 digits after.
DEFINE DATA LOCAL
1 #N (N3.4)
END-DEFINE
MOVE -234.5678 TO #N
WRITE '=' #N #N (EM=HHHHHHH)
END
1 #N (N3.4)
END-DEFINE
MOVE -234.5678 TO #N
WRITE '=' #N #N (EM=HHHHHHH)
END
Page 1 12/14/15 00:47:05
#N: -234.5678 F2F3F4F5F6F7D8
#N: -234.5678 F2F3F4F5F6F7D8
Re: negative value in natural
Posted: Mon Dec 14, 2015 5:28 pmthanks RGZgrog 