RE: PROBLEM WITH OPNQRYF

["Lapeyre, Francis" <FLAPEYRE@xxxxxxxx>]

Oops - should be

QSYS/OPNQRYF FILE((DOR400/GLTRAN)) QRYSLT('GTBDTE *EQ ' + 
             *CAT &BOOK *CAT ' *AND GTACCT *EQ +          
             %VALUES(3120 3140 3150 3170) *AND GTSOUR *EQ +    
             "BI" *AND GTDIV *EQ ' *CAT &DIV' *TCAT ")"') KEYFLD((GTREF))   

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Lapeyre, Francis
Sent: Friday, August 18, 2006 2:32 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: PROBLEM WITH OPNQRYF

It can be boiled down to:


QSYS/OPNQRYF FILE((DOR400/GLTRAN)) QRYSLT('GTBDTE *EQ ' + 
             *CAT &BOOK *CAT ' *AND GTACCT *EQ +          
             %VALUES(3120 3140 3150 3170) *AND GTSOUR *EQ +    
             "BI" *AND GTDIV *EQ &DIV') KEYFLD((GTREF))   

You can also replace the *EQ with =.

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob O.
Sent: Friday, August 18, 2006 1:52 PM
To: midrange-l@xxxxxxxxxxxx
Subject: PROBLEM WITH OPNQRYF

   I can't seem to get this to work no matter what I do!!!
    
   I keep getting the following message in the job log.
    
   CPF9899
   Missing operand on expression in QRYSLT parameter.
    

   QSYS/OPNQRYF FILE((DOR400/GLTRAN))  QRYSLT('GTBDTE *EQ '  *CAT  &BOOK 
   *CAT  ' +
   *AND GTACCT *EQ 3120 +
   *AND GTSOUR *EQ ''BI'' +
   *AND GTDIV *EQ *DIV *OR +
   GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
   *AND GTACCT *EQ 3140 +
   *AND GTSOUR *EQ ''BI'' +
   *AND GTDIV *EQ &DIV *OR +
   GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
   *AND GTACCT *EQ 3150 +
   *AND GTSOUR *EQ ''BI'' +
   *AND GTDIV *EQ &DIV *OR +
   GTBDTE *EQ '  *CAT  &BOOK  *CAT  ' +
   *AND GTACCT *EQ 3170 +
   *AND GTSOUR *EQ ''BI'' +
   *AND GTDIV *EQ *DIV ')  +
   KEYFLD((GTREF))