Re: OPNQRYF quru needed

[Pat Barber <mboceanside@xxxxxxxxxxxxxxxx>]

Here is a method that was shared here several months ago and it works 
quite well: (I forget who shared this so I get NO credit for this)

Create a "known" working version of the qryslt as a variable,ie:

DCL  var(&qryslt) len(512) type(*char) +
   /*  1234567890123456789012345678901234567890123456789012 */ 
Value('fld1 *gt xxxx *and fld2 *le xxxx *or fld3 *ge "xxxx" ')

Note that fields with no " " will be numeric while the fields
with "  " will be alpha for compare purposes. SO I have two
numeric compares and one alpha.

Now using the "ruler", simply replace the XXX with the correct
values that you want to compare against. This eliminates all the
"guess work" with were the hell of those comma's and " " " " " ''''
need to go.

Somthing along these lines:

CHGVAR  var(%SST(&qryslt 10 4)) value(&payee)
CHGVAR  var(%SST(&qryslt 29 4)) value(&newstuff)
chgvar  var(%sst(%qryslt 48 4)) value(&newest)

after you "construct" the whole thing, issue the following command:

SNDPGMMSG msg(&qryslt) topgmq(*same)

Now you will be able to see the actual finished version on the
joblog when opnqryf attempts to read it.....

This is DEAD SIMPLE and beats all that *cat, *BCAT,*nocat,*deadcat,""""
and so on......
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---