December 27, 2010, 04:33 PM
Michelle Skaggs[SOLVED] Simple Math - I hope
I'm not sure what I am doing wrong here, but I am doing something wrong. Any help would be appreciated. Here is the code:
-SET &STARTLEFT=IF &CNTRY_COUNT EQ 1 THEN 6.313
-ELSE IF &CNTRY_COUNT EQ 2 THEN 4.75
-ELSE IF &CNTRY_COUNT EQ 3 THEN 3.367;
-TYPE "STARTLEFT = " &STARTLEFT
-REPEAT :CTRYLOOP FOR &CNT FROM 1 TO &CNTRY_COUNT
-READ HDLVALS, NOCLOSE &LEVEL
-IF &LEVEL EQ '2' THEN GOTO LEVELTWO;
-IF &LEVEL EQ '3' THEN GOTO LEVELTHREE;
-TYPE "STARTLEFT = 1" &STARTLEFT
-SET &NEWSTART = (&STARTLEFT + 1.1983);
-SET &STARTLEFT = &NEWSTART;
-TYPE "STARTLEFT = 2" &STARTLEFT
-GOTO BOTTOMLOOP
-LEVELTWO
-TYPE "STARTLEFT = 3" &STARTLEFT
-SET &NEWSTART = &STARTLEFT.EVAL + 1.1983;
-SET &STARTLEFT = &NEWSTART.EVAL;
-TYPE "STARTLEFT = 4" &STARTLEFT
-GOTO BOTTOMLOOP
-LEVELTHREE
-TYPE "STARTLEFT = 5" &STARTLEFT
-SET &NEWSTART = &STARTLEFT.EVAL + 1.1983;
-SET &STARTLEFT = &NEWSTART.EVAL;
-TYPE "STARTLEFT = 6" &STARTLEFT
-GOTO BOTTOMLOOP
-BOTTOMLOOP
-:CTRYLOOP
-CLOSE HDLVALS
Here is the output:
"STARTLEFT = " 3.367
"STARTLEFT = 1" 3.367
"STARTLEFT = 2" 4
"STARTLEFT = 3" 4
"STARTLEFT = 4" 5
"STARTLEFT = 5" 5
"STARTLEFT = 6" 6
It seems to be rounding for me, what function am I missing?
This message has been edited. Last edited by: Kerry, December 27, 2010, 04:40 PM
j.grossLook up "SET DMPRECISION"
December 28, 2010, 10:28 AM
Michelle SkaggsThank You so much. That worked perfectly.