Evaluate and level 88

grabeva · New User Joined: 07 Sep 2006 Posts: 23

good moorning.....can help me?

please a need help...
i want to use a level 88 at evaluate statement (like this), and receive de following msg compiler error:

The selection object at position 1 in the "WHEN" phrase did not match the type o
subject in the "EVALUATE" statement. The selection object was discarded.

Code Example

01 COD-PEDIDO-AUTORIZACION PIC 9(3).
88 AUTORIZAR
VALUES 28 29 42 550 569 570 571 692 693 695 696.
88 OPOSICION
VALUES 426.
MOVE CLAVE-RESP-0005 TO COD-PEDIDO-AUTORIZACION
EVALUATE COD-PEDIDO-AUTORIZACION
WHEN 0
EXIT
WHEN AUTORIZAR
PERFORM ROLLBACK-DB
MOVE 28 TO NUM-TEXT
MOVE CT-ERROR-LOGICO TO R-RETORNO
MOVE 1 TO IND-MEN787-60B1
PERFORM TRATAR-ERROR
SET CORRECTO TO TRUE
PERFORM PREP-DIA-ERRORSUC
WHEN OPOSICION
PERFORM ROLLBACK-DB
MOVE R-RETORNO TO NUM-TEXT
MOVE CT-ERROR-LOGICO TO R-RETORNO
MOVE 1 TO IND-MEN787-60B1
PERFORM TRATAR-ERROR
SET CORRECTO TO TRUE
PERFORM PREP-DIA-ERRORSUC

priyesh.agrawal · Posted: Thu Sep 07, 2006 7:15 pm

Define it like :-

grabeva · New User Joined: 07 Sep 2006 Posts: 23

give me the same error.......
add a level 88, and de when....

priyesh.agrawal · Posted: Thu Sep 07, 2006 9:11 pm

did you change your EVALUTAE for checking WHEN ZERO after adding it in 88 level.

grabeva · New User Joined: 07 Sep 2006 Posts: 23

EVALUATE COD-PEDIDO-AUTORIZACION
WHEN CERO
EXIT
WHEN AUTORIZAR
PERFORM ROLLBACK-DB
MOVE 28 TO NUM-TEXT
MOVE CT-ERROR-LOGICO TO R-RETORNO
MOVE 1 TO IND-MEN787-60B1
PERFORM TRATAR-ERROR
SET CORRECTO TO TRUE
PERFORM PREP-DIA-ERRORSUC

DavidatK · Posted: Thu Sep 07, 2006 9:33 pm

grabeva,

Do as priyesh said, and then change

'EVALUATE COD-PEDIDO-AUTORIZACION '
to
'EVALUATE TRUE'

This will solve your problem, I think.

Dave

grabeva · New User Joined: 07 Sep 2006 Posts: 23

Dave, thanks,
but this its not possible, because
i want to check differente value,
example: 426 ..do....something.-...
28 or 46 or 49 ...do something....
0 exit
y other....do something different....

i'm clear???
thanks again....

DavidatK · Posted: Thu Sep 07, 2006 9:44 pm

I believe what you want is exactly waht will happen. Give it a try.

the use of the 88 level COD-PEDIDO-AUTORIZACION

is equivalent to coding

COD-PEDIDO-AUTORIZACION = ( 28 or 29 or 42 or 550 or 569 or 570 or 571 or 692 or 693 or 695 or 696 )

And as you can see

EVALUATE COD-PEDIDO-AUTORIZACION
WHEN COD-PEDIDO-AUTORIZACION = ( 28 or 29 or 42 or 550 or 569 or 570 or 571 or 692 or 693 or 695 or 696 )

is not valid

EVALUATE TRUE
WHEN COD-PEDIDO-AUTORIZACION = ( 28 or 29 or 42 or 550 or 569 or 570 or 571 or 692 or 693 or 695 or 696 )

is valid

Dave

priyesh.agrawal · Posted: Thu Sep 07, 2006 9:56 pm

grabeva · New User Joined: 07 Sep 2006 Posts: 23

Dave....

if i use evaluate true....can i use "WHEN OTHER" ?????
what can i do with the rest of value?....i need to do something with the rest of the values....(its de "when other" of a normal evaluate)
for example....
88 autorizar value 28 29 570 571
88 oposicion value 426
88 cero value 0

evaluate true
when autorizar ....move 1 to campo
when oposicion ...move 2 to campo
when zero ... exit
when other?????

DavidatK · Posted: Thu Sep 07, 2006 11:19 pm

Yes,

WHEN OTHER is valid with EVALUATE TRUE

It?s a catch all for when no other condition has been satisfied.

Dave

grabeva · New User Joined: 07 Sep 2006 Posts: 23

thankssssssssssssssssssssssss
gra