× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I pasted it into a member and it compiled. I did put a ";" at the end, but having it missing didn't seem to worry SEU.. And executes. V5R3 machine.

Sam

Code below:
d w s 5a
d t s 15s 4
d end s 5a inz('eee')
d hsp s 5a inz('Hsp')
d start s 5a inz('SSS')
d cmdbuf s 1000a
/free
*inlr = *on;
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))';

Debug results:
CMDBUF =
....5...10...15...20...25...30...35...40...45...50...55...60
1 'opnqryf file((badplpp)) qryslt('dscdte *ge "SSS " *and dscd'
61 'te *le "eee " *and hsp *eq "Hsp "') keyfld((lpmrc#) (lpacc'
121 't)) mapfld((lpcen2#c lpcen2 *char 2) (lpldd#c lpldd *char 6)'
181 ' (mmdd#c %sst(lpldd#c 3 4) *char 4) (yy#c %sst(lpldd'
241 '#c 1 2) *char 2) (dscdte lpcen2#c || yy#c || mmdd#c' *char'
301 ' 8) (lphsp#z lphsp# *zoned 3 0 ) (hsp lphsp#z *char 3)) '
361 ' '
421 ' '
481 ' '
541 ' '
601 ' '

On 3/30/2011 5: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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.