Who's On?

	Membership:
	Latest: cat andrews
	Past 24 Hours: 0
	Prev. 24 Hours: 0
	Overall: 5215

	People Online:
	Visitors: 180
	Members: 0
	Total: 180

Name	Points
Greg Moeller	4184
David Williams	3349
Kat V	2984
Woozy	1973
Jimmy Chiu	1883
Kwane McNeal	1437
Ragu Raghavan	1377
Roger French	1315
mark.cook	1244
Chesca	1042

Flooring a number in 4GL

2 Replies

0 Subscribed to this topic

18 Subscribed to this forum

Sort:

Author

Messages

Woozy

Veteran Member

Posts: 709

New Poster

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

Posts: 3364

New Poster

Engaged Reader

Avid Reader

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

New Poster

11/18/2010 1:56 PM

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

Thanks John.