MVSFORUMS.com

[ravinan]

Hi,
As per program standards of the client, we are using quote(") in the cobol program. So whenever we needed of character type fields,we use quotes("). But in my cics program when i'm translating and compiling, the below fields are added by the COBOL/VSE compiler, where some fields(DFHLDVER, DFHEICB....) value are in single quotes('). becaz of this i'm getting compilation error.
How can i make it into double quotes. is there any option available or how to handle this?

01 DFHLDVER PIC X(22) VALUE 'LD TABLE DFHEITAB 411.'.

01 DFHEID0 PICTURE S9(7) COMPUTATIONAL-3 VALUE ZERO.

01 DFHEIB0 PICTURE S9(4) COMPUTATIONAL VALUE ZERO.

01 DFHEICB PICTURE X(8) VALUE IS ' '.

01 DFHEIV16 COMP PIC S9(01 DFHLDVER PIC X(22) VALUE 'LD TABLE DFHEITAB 411.'.
01 DFHEID0 PICTURE S9(07) COMPUTATIONAL-3 VALUE ZERO.

01 DFHEIB0 PICTURE S9(04) COMPUTATIONAL VALUE ZERO.

01 DFHEICB PICTURE X(08) VALUE IS ' '.

01 DFHEIV16 COMP PIC S9(08).
01 DFHB0041 COMP PIC S9(08).
01 DFHB0042 COMP PIC S9(08).
01 DFHB0043 COMP PIC S9(08).
01 DFHB0044 COMP PIC S9(08).
01 DFHB0045 COMP PIC S9(08).
01 DFHB0046 COMP PIC S9(08).
01 DFHB0047 COMP PIC S9(08).
01 DFHB0048 COMP PIC S9(08).
01 DFHB0049 COMP PIC S9(08).
01 DFHB004A COMP PIC S9(08).
01 DFHEIV11 COMP PIC S9(04).
01 DFHEIV12 COMP PIC S9(04).
.....................

[kolusu]

ravinan,

can you post your error messages?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[ravinan]

IGYDS0008-E A QUOTE OR AN APOSTROPHE WAS USED AS A CHARACTER STRING DELIMITER.
IT WAS NOT THE DELIMITER OPTION IN EFFECT. THE USE WAS ACCEPTED.

[kolusu]

ravinan,

Add the following line at the beginning of your program i.e before ID division

[warp5]

I do not think that will solve the problem. I copied the IBM copy books and changed the Apost to Quotes - but be careful, there are hex values in there that are shown on the screen as Apost. The copy books are in a library concatenated before the IBM copy books.