Re: OPNQRYF syntax error in PDM

[jmmckee <jmmckee@xxxxxxxxxxxxxx>]

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.