For ISPF Hilite, it is better to just enter HILITE on the command line. Then
when the panel pops up, select COBOL then 3 (Color Both IF and DO) and /
(Parentheses matching) in the next two entries.
It might help provide more details.
┌─────────────────────────────────────────────────────────────────────────────┐
│ File Languages Colors Help
│ ──────────────────────────────────────────────────────────────────────────
│ Edit Color Settings
│
│
│
More: +
│ Language: 1 1. Automatic Coloring: 3 1. Do not color program
│ 2. Assembler 2. Color
program
│ 3. BookMaster 3. Both IF
and DO logic <----
│ 4. C
4. DO logic only
│ 5. COBOL 5.
IF logic only
│ 6. HTML
│ 7. IDL Enter "/" to select
option
│ 8. ISPF DTL
Parentheses matching <-----
│ 9. ISPF Panel / Highlight
FIND strings
│ 10. ISPF Skeleton / Highlight
cursor phrase
│ 11. JCL
│ 12. Pascal Note: Information from this panel is
│ 13. PL/I saved in the edit profile.
│ Command ===>
│ F1=Help F2=Split F3=Exit F7=Backward F8=Forward
│ F9=Swap F10=Actions F12=Cancel
└─────────────────────────────────────────────────────────────────────────────┘
Lizette
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]]
> On Behalf Of Mike Schwab
> Sent: Thursday, July 16, 2015 9:16 AM
> To: [email protected]
> Subject: Re: Not understanding COBOL diagnostic
>
> It is a display statement simulating a DB2 Select Query.
>
> On Thu, Jul 16, 2015 at 10:54 AM, Charles Mills <[email protected]> wrote:
> > 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)
> No quotes (variable). OK.
> > 'CEX Stmt=SELECT DBNAME, DDLSPACENAME FROM '
> Beginning and ending quotes. OK.
> > 'PSRECTBLSPC WHERE RECNAME = '''
> Quote doubled and beginning and ending quotes. OK.
> > FUNCTION DISPLAY-OF(RECNAME OF W-RUNSTAT-INFO)
> No quotes (variable). OK.
> > ''''
> Quotes doubled and beginning and ending quotes. OK.
> > 'AND DBTYPE = '
> Beginning and ending quotes. OK.
> > '(SELECT MAX(DBTYPE)'
> Beginning and ending quotes. OK.
> > ' FROM PSRECTBLSPC'
> Beginning and ending quotes. OK.
> > ' WHERE DBTYPE IN (' ','1 ')'
> Beginning and ending quotes. OK. IMBEDED QUOTES NOT DOUBLED. Blank
> after 1 not needed (short literals will be padded with blanks). You
> need:
> ' WHERE DBTYPE IN ('' '',''1'')'
> > ' AND RECNAME = '''
> Quote doubled and beginning and ending quotes. OK.
> > FUNCTION DISPLAY-OF(RECNAME OF W-RUNSTAT-INFO)
> No quotes (variable). OK.
> > ''''
> Quote doubled and beginning and ending quotes. OK.
> >
> > Charles
>
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
