RE: OPNQRY PROBLEM

Darrell

A useful tip for building QRYSLT variables is to use an entry in a message
file and pass in your variables as message data.  It saves you having to
worry about concatenating variables, etc, and quotes are simply embedded in
the correct place within the message.  In your CL you then simply use RTVMSG
to pull back the complete QRYSLT parameter.

I've a document on using this technique at
http://www.astradyne-uk.com/docs/07-01001.pdf.

All the best

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Rick.Chevalier@xxxxxxxxxxxxxxx
Sent: 30 March 2007 16:36
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: OPNQRY PROBLEM


Darrell,

It may seem goofy but if you build your select in a separate variable and
substitute that into OPNQRYF there will generally be fewer issues with the
select and the ones that pop up are more easily identified due to fewer
single and double quotes.  At least that's been true for me.

HTH,

Rick 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of DLee@xxxxxxxx
Sent: Friday, March 30, 2007 8:31 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: OPNQRY PROBLEM

Morning all;

A little problem I having.  I have a push to get this running, and it's
fighting back.

This opnqryf isn't working for me, after years of doing them, (cloning
mostly) I can't seem to make this one work.

OPNQRYF    FILE((DTLRES)) OPTION(*INP) + 
             QRYSLT('VLCOCD=%RANGE("' *CAT &FCO *CAT + 
             '" "' *CAT &TCO *CAT '") + 
             *AND VLEFDT *GT("' *CAT &BEGDT *CAT '"   + 
             *AND VLEFDT *LT("' *CAT &ENDDT *CAT '"') + 
             KEYFLD((VLCOCD) (VLEFYY) (VLREIN) (VLRD) + 
             (VLTYPE) (VLCOVC)) 

It compiles okay, but blows up with this error -  Character '(' following 
string '*GT         ' not valid. 

In debug, I'm able to see all the variables,   It's probably an apostrophe 
or something but I'm not seeing it. 

VLEFDT  is a  numeric date 8s0

extended help  Makes no sense to me.

Cause . . . . . :   A character that was specified in the expression on   
  parameter QRYSLT, at position 41 is not valid.  A delimiter or some
required
  characters may have been omitted, such as the decimal digit characters
after
  a leading decimal point, or the decimal point in a floating-point
constant. 
  If the error occurred on the MAPFLD parameter, the expression was
specified
  for the definition of field *N.  For more information on delimiters, see
the
  CL Reference topic in the Information Center book,
  http://www.ibm.com/eserver/iseries/infocenter.  
Recovery  . . . :   Either omit the character that is not valid or specify 
a
  valid delimiter character (if one is missing). Then try the request again.


Appreciate any help

Darrell Lee
Information Technology
Extension 7127
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.




Privileged and Confidential.  This e-mail, and any attachments there to, is
intended only for use by the addressee(s) named herein and may contain
privileged or confidential information.  If you have received this e-mail in
error, please notify me immediately by a return e-mail and delete this
e-mail.  You are hereby notified that any dissemination, distribution or
copying of this e-mail and/or any attachments thereto, is strictly
prohibited.