Re: OPNQRYF syntax error in PDM

[jmmckee <jmmckee@xxxxxxxxxxxxxx>]

(GROAN)  I knew it had to be something dumb.  

Thanks everybody.

John McKee

-----Original message-----
From: Peter Dow petercdow@xxxxxxxxx
Date: Thu, 31 Mar 2011 10:00:54 -0500
To: midrange-l@xxxxxxxxxxxx
Subject: Re: OPNQRYF syntax error in PDM

> You're right, I missed that it was PDM (well, I assume SEU) that was 
> giving the error.
>
> Since I and others have copy & pasted your code and do not get the 
> error, I'm going to guess you've indented the lines following the "eval" 
> line too much.  In fact, if I line up the 2nd line's apostrophe with the 
> "u" in cmdbuf, then I get the error because the plus sign on the line 
> preceding the line in question has been pushed into the comment area.
>
> --
> *Peter Dow* /
> Dow Software Services, Inc.
> 909 793-9050
> pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /
>
> On 3/31/2011 4:04 AM, jmmckee wrote:
> > 2000 characters.
> >
> > I don't see how PDM could have an error with cmdbuf if it was too small, say 100 characters - since this is a syntax issue that I have missed.
> >
> > This was a modification of an original effort from several years ago.  Been so long, I can't recall how I generated the original, but I believe I did it from a command line - then F14 and broke it into chunks.  Just didn't break it up nicely.  I can't recall why I did this within RPG except that maybe I had maybe thought the syntax was easier then with CL.  Written as a CL command, it looked almost as nasty as some sed expressions I have seen.
> >
> > John McKee
> >
> > -----Original message-----
> > From: Peter Dow petercdow@xxxxxxxxx
> > Date: Thu, 31 Mar 2011 00:34:50 -0500
> > To: midrange-l@xxxxxxxxxxxx
> > Subject: Re: OPNQRYF syntax error in PDM
> >
> > > How big is cmdbuf?
> > >
> > > On 3/30/2011 2:39 PM, jmmckee wrote:
> > > > I don't men to ask a programming question.  Just need somebody else's eyeballs to look at a OPNQRYF.  PDM is complaining "The end of the expression is expected" and has highlighted a line I will highlight with>>>   and<<<.  The purpose of the mapped fields is to convert a numeric date stored as yymmdd to character and append that to a century.  I am obviously missing something.  May be making it harder than it needs to be.
> > > >
> > > > I appreciate your thoughts.
> > > >
> > > >      eval      cmdbuf = 'opnqryf ' +
> > > >                    'file((badplpp)) qryslt(''' +
> > > >                    'dscdte *ge "' + start + '" *and ' +
> > > >                    'dscdte *le "' + end + '" *and hsp ' +
> > > >                    '*eq "' + hsp + '"'') keyfld((' +
> > > >                    'lpmrc#) (lpacct)) mapfld((' +
> > > >                    'lpcen2#c lpcen2 *char 2) ' +
> > > >                    '(lpldd#c lpldd *char 6) ' +
> > > >                    '(mmdd#c   %sst(lpldd#c 3 4)   *char 4) ' +
> > > >     >>>           '(yy#c     %sst(lpldd#c 1 2)   *char 2) ' +<<<
> > > >                    '(dscdte lpcen2#c || yy#c ' +
> > > >                    '|| mmdd#c'' *char 8)' +
> > > >                    ' (lphsp#z lphsp# *zoned 3 0 ) ' +
> > > >                    '(hsp lphsp#z *char 3))'
> > > >
> > > >
> > > > John McKee
> > > -- 
> > > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/midrange-l.
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.