We have recently moved from SCLM platform to DeltaVision; during the code movement, on the new platform, we were getting compilation error for the below code snippet (same has been working on SCLM):
019900 03 JOB-LINE-05E.
020000 05 FILLER PIC X(13) VALUE
020100 "// SET USER='". <-- error line
020200 05 WS-USER-NAME PIC X(20) VALUE SPACES.
020300 05 FILLER PIC X(47) VALUE SPACES.
020400*
020000 05 FILLER PIC X(13) VALUE
020100 "// SET USER='". <-- error line
020200 05 WS-USER-NAME PIC X(20) VALUE SPACES.
020300 05 FILLER PIC X(47) VALUE SPACES.
020400*
The error description states:
DFH7035I C 00239 CONTINUATION AND TWO QUOTES ASSUMED.
CONTINUED.
CONTINUED.
On searching for the informational message, came across a few explanations stating that the DBCS characters were not handled correctly during translation ( referring to link: http://www-01.ibm.com/support/docview.wss?uid=swg1PQ66800 and http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/index.jsp?topic=%2Fcom.ibm.cics.ts.messages.doc%2FDFH70%2FDFHXX7035IE.html)
Below are the compiler options in force for the above compilation:
CICS 6.5.0 COMMAND LANGUAGE TRANSLATOR
OPTIONS SPECIFIED:-APOST,DEBUG,NOSEQ,SP,COBOL3
OPTIONS IN EFFECT*
CICS
DEBUG
SPIE
EDF
LINECOUNT(60)
TABLE(DFHEITAB,DFHEITBS)
SP
NATLANG(EN)
SOURCE
NOVBREF
OPTIONS
FLAG(W)
NOSEQ
APOST
NONUM
SPACE(1)
CBLCARD
NOSYSEIB
NOFEPI
NOCPSM
LINKAGE
COBOL3
LENGTH
OPTIONS SPECIFIED:-APOST,DEBUG,NOSEQ,SP,COBOL3
OPTIONS IN EFFECT*
CICS
DEBUG
SPIE
EDF
LINECOUNT(60)
TABLE(DFHEITAB,DFHEITBS)
SP
NATLANG(EN)
SOURCE
NOVBREF
OPTIONS
FLAG(W)
NOSEQ
APOST
NONUM
SPACE(1)
CBLCARD
NOSYSEIB
NOFEPI
NOCPSM
LINKAGE
COBOL3
LENGTH
Have done a workaround for this and got the code compiled; though was curious as to what am I missing here which is causing this error; the workaround solution is as below:
022800 03 JOB-LINE-05E.
022900 05 FILLER PIC X(12) VALUE
023000 "// SET USER=". <-- Modified line-1
023010 05 FILLER PIC X(01) VALUE QUOTE. <-- Modified line-2
023100 05 WS-USER-NAME PIC X(20) VALUE SPACES.
023200 05 FILLER PIC X(47) VALUE SPACES.
023300*
022900 05 FILLER PIC X(12) VALUE
023000 "// SET USER=". <-- Modified line-1
023010 05 FILLER PIC X(01) VALUE QUOTE. <-- Modified line-2
023100 05 WS-USER-NAME PIC X(20) VALUE SPACES.
023200 05 FILLER PIC X(47) VALUE SPACES.
023300*
Best Regards.