Due to wrapping, I'm not sure what you are seeing. An example of a
continued string literal is on:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR31/1.6.4.2.1
But, honestly, I _never_ do that in a DISPLAY. Because I can just do:
DISPLAY 'THE FIRST PART OF A VERY LONG '
'SENTENCE WHICH GOES ACROSS '
'A LOT OF LINES.'
UPON SYSOUT
On Thu, Jul 16, 2015 at 9:06 AM, Charles Mills <[email protected]> wrote:
> 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
>
--
Schrodinger's backup: The condition of any backup is unknown until a
restore is attempted.
Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.
He's about as useful as a wax frying pan.
10 to the 12th power microphones = 1 Megaphone
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
