Who's On?

	Membership:
	Latest: chaoticist
	Past 24 Hours: 2
	Prev. 24 Hours: 0
	Overall: 5185

	People Online:
	Visitors: 149
	Members: 1
	Total: 150

	Online Now:
	Support

New Topics

Name	Points
Greg Moeller	4184
David Williams	3349
JonA	3288
Kat V	2984
Woozy	1973
Jimmy Chiu	1883
Kwane McNeal	1437
Ragu Raghavan	1348
Roger French	1311
mark.cook	1244

Flooring a number in 4GL

Sort:

You are not authorized to post a reply.

Author

Messages

Woozy

Veteran Member

Posts: 709

11/17/2010 10:09 PM

Hi All.

I'm working on a 4GL payroll custom calc that needs to take a value and floor it (i.e. round down to the nearest whole number). How do I do this in 4GL/cobol?

If it matters, we're on DB2/Unix.

Thanks!

John Henley

Senior Member

Posts: 3348

11/17/2010 11:01 PM

Move varA defined as S9(12)V99 to varB defined as S9(12). The move varB back to varA. It will drop the cents. Is that what you mean? =

Woozy

Veteran Member

Posts: 709

11/18/2010 1:56 PM

DOH! Geez...I should have thought of that. A little tunnel-vision I guess.

Thanks John.

You are not authorized to post a reply.