Re: OPNQRYF syntax error in PDM

[Peter Dow <petercdow@xxxxxxxxx>]

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.