Evaluate verb for a condition checking

Prakash RS · New User Joined: 17 Mar 2008 Posts: 2 Location: Bangalore

IF TEMP-FILE-ID NOT EQUAL CURR-FILE-ID AND CURR-FILE-TYPE = '01'
MOVE SPACES TO XXXX FIELD
MOVE 'YYYY-NAME' TO XXXX FIELD
PERFORM 10-INSERT-PARA
END-IF.

IF TEMP-FILE-ID NOT EQUAL CURR-FILE-ID AND CURR-FILE-TYPE = '02'
MOVE SPACES TO XXXX FIELD
MOVE 'ZZZZ-NAME' TO XXXX FIELD
PERFORM 10-INSERT-PARA
END-IF.

IF TEMP-FILE-ID NOT EQUAL CURR-FILE-ID AND CURR-FILE-TYPE = '03'
MOVE SPACES TO XXXX FIELD
MOVE 'WWW-NAME' TO XXXX FIELD
PERFORM 10-INSERT-PARA
END-IF.

Can I code above IF statement like this (Syntax),

EVALUATE TEMP-FILE-ID NOT EQUAL CURR-FILE-ID AND CURR-FILE-TP

WHEN TRUE AND '01'
MOVE SPACES TO XXXX FIELD
MOVE 'YYYY-NAME' TO XXXX FIELD
PERFORM 10-INSERT-PARA

WHEN TRUE AND '02'
MOVE SPACES TO XXXX FIELD
MOVE 'ZZZZZ-NAME' TO XXXX FIELD
PERFORM 10-INSERT-PARA

WHEN TRUE AND '03'
MOVE SPACES TO XXXX FIELD
MOVE 'WWW-NAME' TO XXXX FIELD
PERFORM 10-INSERT-PARA

WHEN OTHER
CONTINUE.
END-EVALUATE.

Thanks,

Prakash

ashimer · Posted: Mon Jun 23, 2008 3:33 pm Post subject:

Hi Prakash,

Use this construct

Prakash RS · New User Joined: 17 Mar 2008 Posts: 2 Location: Bangalore

Hi Ashimer,

Thanks for the reply.