I was wrong, see Sri Kolusu's response, he saw it before I did. It is this
line giving you headaches:
' WHERE DBTYPE IN (' ','1 ')'
The quotes inside of the parentheses should all be doubled.
HTH
Peter
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Charles Mills
Sent: Thursday, July 16, 2015 11:54 AM
To: [email protected]
Subject: Re: Not understanding COBOL diagnostic
I don't have a clue what kind of a statement or function this is. (INACP)
There is nothing in columns 73 to 80.
I agree there seems to be a missing right parenthesis. The HILITE is seeing
it mostly as literal strings and so is not doing much to help.
Hope this survives and does not fold. Wish I could paste the colors.
+----2----+----3----+----4----+----5----+----6----+----7----+----8
DISPLAY FUNCTION DISPLAY-OF(W-TRACE-DETAIL)
'CEX Stmt=SELECT DBNAME, DDLSPACENAME FROM '
'PSRECTBLSPC WHERE RECNAME = '''
FUNCTION DISPLAY-OF(RECNAME OF W-RUNSTAT-INFO)
''''
'AND DBTYPE = '
'(SELECT MAX(DBTYPE)'
' FROM PSRECTBLSPC'
' WHERE DBTYPE IN (' ','1 ')'
' AND RECNAME = '''
FUNCTION DISPLAY-OF(RECNAME OF W-RUNSTAT-INFO)
''''
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Farley, Peter x23353
Sent: Thursday, July 16, 2015 8:36 AM
To: [email protected]
Subject: Re: Not understanding COBOL diagnostic
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.
--
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
