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.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
