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.