It looks to me like a right parenthesis was pushed beyond column 72. I
reformatted your program listing from your original post to get these lines:
DISPLAY FUNCTION DISPLAY-OF(W-TRACE-DETAIL)
'CEX STMT=SELECT DBNAME, DDLSPACENAME FROM '
'PSRECTBLSPC WHERE RECNAME = '''
FUNCTION DISPLAY-OF(RECNAME OF W-RUNSTAT-INF
''''
'AND DBTYPE = '
'(SELECT MAX(DBTYPE)'
' FROM PSRECTBLSPC'
' WHERE DBTYPE IN (' ','1 ')'
Note the missing right parenthesis on the fourth line. The compiler will do
this in the listing, which shows you where truncation at column 72 has occurred.
With HILITE COBOL (or HILITE AUTO) the missing right parenthesis should show up
in a different color from the rest of that line.
HTH
PEter
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Charles Mills
Sent: Thursday, July 16, 2015 11:23 AM
To: [email protected]
Subject: Re: Not understanding COBOL diagnostic
Thanks everyone for your help on the first diagnostic. How about the second
one?
Charles
-----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.
<snip>
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
4403 1 'PSRECTBLSPC WHERE RECNAME = '''
4404 1 FUNCTION DISPLAY-OF(RECNAME OF
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.
--
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
