Due to text wrap, I cannot tell what the original line looked like.

Could you post the original code above the compiler output? 

Do you have ending single quotes?
Have you reviewed the COBOL Programming/Language Guides?
Are there double quotes and single quotes in the appropriate places?   ' is
single to me " is double to me   But I do not know which is coded       '''
or '" is coded


Fortunately these are warnings and should not affect the execution of your
program.

Lizette


> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]]
> On Behalf Of Charles Mills
> Sent: Thursday, July 16, 2015 7:07 AM
> To: [email protected]
> Subject: Not understanding COBOL diagnostic
> 
> Can somebody humor me? I am not a COBOL programmer - I just sometimes
> find myself with a COBOL problem.
> 
> I am getting the following diagnostics. What the heck is the compiler
talking
> about? I see lots of blanks before column 23. I verified with HEX ON.
> 
> 5136      1                DISPLAY '   YOU HAVE ACTIVATED STATISTICS WITH
> EXPLAI
> 5137      1        -               ' BUT HAVE NOT CREATED THE PLAN_TABLE.'
> 
> 5137==> IGYPS0001-W A blank was missing before character "'" in column 23.
> A bl
>                     assumed.
> 
> 
> 
> 5138      1                DISPLAY '   EXPLAIN HAS BEEN DEACTIVATED TO
ALLOW
> THE
> 5139      1        -               ' PROGRAM TO RUN TO COMPLETION.'
> 
> 5139==> IGYPS0001-W A blank was missing before character "'" in column 23.
> A bl
>                     assumed.
> 
> 
> Ditto for this one. Does anyone know what the correct syntax should be?
> 
> 4401      1                DISPLAY  FUNCTION DISPLAY-OF(W-TRACE-DETAIL)
> 
> 4402      1                        'CEX Stmt=SELECT DBNAME, DDLSPACENAME
> FROM '
> 4403      1                        'PSRECTBLSPC WHERE RECNAME = '''
> 
> 4404      1                         FUNCTION DISPLAY-OF(RECNAME OF
> W-RUNSTAT-INF
> 4405      1                         ''''
> 
> 4406      1                        'AND DBTYPE = '
> 
> 4407      1                        '(SELECT MAX(DBTYPE)'
> 
> 4408      1                        '   FROM PSRECTBLSPC'
> 
> 4409      1                        '  WHERE DBTYPE IN (' ','1 ')'
> 
> 4409==> IGYPS0001-W A blank was missing before character "1" in column 48.
> A bl
>                     assumed.
> 
> 
> Charles
> 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to