IGYPS2079-S EXPECTED A VERB OR "NEXT SENTENCE"

shrivatsa · Posted: Sun Feb 11, 2007 12:32 pm

Hi,

I am getting the error (EXPECTED A VERB OR "NEXT SENTENCE", BUT FOUND "WS-AN485-ANN-REV-PAID". THE STATEMENT WAS DISCARDED.)

in the code

SET WS-NOT-DSL TO TRUE.

IF WS-AN440-PROD-CLASS-CD = 'ABCD'
SET WS-DSL TO TRUE
END-IF.

IF WS-DSL AND WS-PAY-INDICATOR = 'U'
WS-AN485-ANN-REV-PAID = WS-AN440-TCV-REV-PAID -
:WS-RENEWAL-REVENUE
WS-AN485-ANN-REV-RECOUP = WS-AN440-TCV-REV-RECOUP +
:WS-RENEWAL-REVENUE
END-IF.

can anyone help regarding this....

William Thompson · Posted: Sun Feb 11, 2007 3:25 pm

arindam111 · New User Joined: 29 Nov 2006 Posts: 27 Location: India

Add a THEN after IF, then add a COMPUTE

DavidatK · Posted: Mon Feb 12, 2007 10:48 pm

Also,

:WS-RENEWAL-REVENUE is not a legitimate working storage name. Working storage variables starting with ':' are used in the DB2 pre-compiler.

William Thompson · Posted: Mon Feb 12, 2007 11:47 pm

Dave,

I think the ":" has something to do with host variables....???

Bill

DavidatK · Posted: Tue Feb 13, 2007 2:14 am

Bill,

Correct, SQL variables starting with ':' are host variables to DB2. But are not valid variable names for COBOL.

William Thompson · Posted: Tue Feb 13, 2007 2:16 am

I kinda saw that too, but, what he heck....Learn sumpt'n every day...thanks for point'n it out...