Problem passing back SGN to use in SUB.. get wrong answer

Posted by Bob A on September 24, 2015 at 09:37:28:

Was attempting to extract an indication of the SGN of a set of fields (-/0/+) seems to have worked correctly for all values but 0.01.... in this case it seems like it gets truncated (??) to 0.0 and then returns "0" not "+"

the workaround is OK for now to get me over the hump.... but I'd like to know if you can re-produce this problem

Thanx

Bob "A"

LENGTH 10.2 & LOCAL TLY432.NBR.1
: : :
LENGTH 10.2 & LOCAL TLY432.NBR.8

!==================
SET.TLY432.NBR.SGN:
!==================
! Value SGN 2+SGN
! LT 0 -1 1
! EQ 0 0 2
! GT 0 +1 3
!---------------------

.ifndef SGN.FUNCTION.OK
TLY432.NBR.1.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.1)),1)
TLY432.NBR.2.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.2)),1)
TLY432.NBR.3.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.3)),1)
TLY432.NBR.4.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.4)),1)
TLY432.NBR.5.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.5)),1)
TLY432.NBR.6.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.6)),1)
TLY432.NBR.7.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.7)),1)
TLY432.NBR.8.SGN$ = SUB("-0+",(2+SGN(TLY432.NBR.8)),1)
.else
IF TLY432.NBR.1 LT 0 THEN TLY432.NBR.1.SGN$ = "-"
IF TLY432.NBR.2 LT 0 THEN TLY432.NBR.2.SGN$ = "-"
IF TLY432.NBR.3 LT 0 THEN TLY432.NBR.3.SGN$ = "-"
IF TLY432.NBR.4 LT 0 THEN TLY432.NBR.4.SGN$ = "-"
IF TLY432.NBR.5 LT 0 THEN TLY432.NBR.5.SGN$ = "-"
IF TLY432.NBR.6 LT 0 THEN TLY432.NBR.6.SGN$ = "-"
IF TLY432.NBR.7 LT 0 THEN TLY432.NBR.7.SGN$ = "-"
IF TLY432.NBR.8 LT 0 THEN TLY432.NBR.8.SGN$ = "-"

IF TLY432.NBR.1 EQ 0 THEN TLY432.NBR.1.SGN$ = "0"
IF TLY432.NBR.2 EQ 0 THEN TLY432.NBR.2.SGN$ = "0"
IF TLY432.NBR.3 EQ 0 THEN TLY432.NBR.3.SGN$ = "0"
IF TLY432.NBR.4 EQ 0 THEN TLY432.NBR.4.SGN$ = "0"
IF TLY432.NBR.5 EQ 0 THEN TLY432.NBR.5.SGN$ = "0"
IF TLY432.NBR.6 EQ 0 THEN TLY432.NBR.6.SGN$ = "0"
IF TLY432.NBR.7 EQ 0 THEN TLY432.NBR.7.SGN$ = "0"
IF TLY432.NBR.8 EQ 0 THEN TLY432.NBR.8.SGN$ = "0"

IF TLY432.NBR.1 GT 0 THEN TLY432.NBR.1.SGN$ = "+"
IF TLY432.NBR.2 GT 0 THEN TLY432.NBR.2.SGN$ = "+"
IF TLY432.NBR.3 GT 0 THEN TLY432.NBR.3.SGN$ = "+"
IF TLY432.NBR.4 GT 0 THEN TLY432.NBR.4.SGN$ = "+"
IF TLY432.NBR.5 GT 0 THEN TLY432.NBR.5.SGN$ = "+"
IF TLY432.NBR.6 GT 0 THEN TLY432.NBR.6.SGN$ = "+"
IF TLY432.NBR.7 GT 0 THEN TLY432.NBR.7.SGN$ = "+"
IF TLY432.NBR.8 GT 0 THEN TLY432.NBR.8.SGN$ = "+"
.endif

RETURN

Follow Ups:

• Re: Problem passing back SGN to use in SUB.. get wrong answer Barbara Brazil 11:39:50 09/24/15 (1)
  • Re: Problem passing back SGN to use in SUB.. get wrong answer Barbara Brazil 11:53:06 09/24/15 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.