View previous topic :: View next topic
|
Author |
Message |
sibi Yohannan
New User
Joined: 15 Apr 2009 Posts: 47 Location: Bangalore
|
|
|
|
Hi,
A program is using GTEQ syntax while reading from a VSAM file.
There are two cases where the compiler is giving MAX Condition code of 08.
1) With VS Cobol-2 Compiler
The compiler is giving MAX Condition code of 08 at the CICS transalator step.
2) With Enterprise Cobol Compiler.
The compiler is giving MAX Condition code of 08 at the COBOL COMPILE & LINKEDIT step.
Need to understnad the cause of this, Is there any alternate command for GTEQ which Supports in Enterprise Cobol.
We had a similar case with the EQ command, but we changed EQ to "EQUAL" and it compiled succesfully.
I tried the below two sysntax
NOT LESS THAN
NOT <
But both didnt work, MAX condition code of 08 during compilation.
I am doing READNEXT in a CICS program.
EXEC CICS READNEXT
DATASET ('datset Name')
INTO (Variable Name)
RIDFLD (Key-Data)
LENGTH (LENGTH)
NOT <
END-EXEC. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
look at the syntax for READNEXT in the manual and tell me where you can have any kind of equality check.
it is part of the START(BR) API.
RTFM............................... |
|
Back to top |
|
|
sibi Yohannan
New User
Joined: 15 Apr 2009 Posts: 47 Location: Bangalore
|
|
|
|
Thank you
It ws my mistake |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Thx for getting back.
If you have questions in the future, please include whichever is appropriate: code, JCL, error msgs, etc...
we wasted a lot of your time by not knowing exactly your problem. |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
The GTEQ keyword is VALID with a STARTBR and is the API default.
However, the GTEQ keyword is INVALID with a READNEXT API.
This is all documented in the applicable CICS APPLICATION PROGRAMMING REFERENCE manual.
Regards, |
|
Back to top |
|
|
|