RE: OPNQRYF syntax error in PDM

[jmmckee <jmmckee@xxxxxxxxxxxxxx>]

I did try putting in two quotes on each side of the two %sst functions.  Then, got that error.  Started spinning wheels and took them out.  I think they are needed, just not sure.

John McKee

-----Original message-----
From: phil.seay@xxxxxxx
Date: Wed, 30 Mar 2011 17:20:11 -0500
To: midrange-l@xxxxxxxxxxxx
Subject: RE: OPNQRYF syntax error in PDM

> Hi Jim,
>
> Should there be two single quotes following mmdd#c in 
> '|| mmdd#c'' *char 8)' +
> on the twelfth line?
>
> -- 
> Regards,
> Philip Seay
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of jmmckee
> Sent: Wednesday, March 30, 2011 2:40 PM
> To: Midrange Systems Technical Discussion
> Subject: OPNQRYF syntax error in PDM
>
> 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.