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
