OPNQRY

[mancini <mancini@xxxxxxx>]

Can anyone help me with OPNQRY.

I am using a numeric field for a selection and concatenating three
fields.
I keep getting the following error.

How do you specify a numeric selection? 


    300-              DCL        VAR(&WRK_QRYSLT) TYPE(*CHAR)
LEN(512)                
    400-              DCL        VAR(&SEL_PRT) TYPE(*CHAR)
LEN(10)VALUE(' +          
    500                                                       
900000000')                                        
    600-              DCL        VAR(&SEL_UOM)
TYPE(*CHAR)LEN(2)VALUE('EA')         
    700-              DCL        VAR(&SEL_OHQ) TYPE(*DEC)
LEN(70)VALUE(1000)        
   
800-                                                                            
  
    900-              CHGVAR   
VAR(&WRK_QRYSLT)VALUE(+                             
   1000                           'BFPART *GT ' *BCAT '''' *CAT &SEL_PRT
*CAT '''' +  
   1100                             *BCAT '*AND' *BCAT
+                              
   1200                           'I$UTMS = ' *BCAT '''' *CAT &SEL_UOM
*CAT ''''  +   
   1300                             *BCAT '*AND' *BCAT
+                              
   1400                           'QTYOH = ' *BCAT '''' *CAT &SEL_OHQ
*CAT  '''')     
* CPD0712 30  Operand  does not have valid type for
operator.                         
* CPD0711 30  Operands in expression not same
type.                                   
  
1500-                                                                           
   
   1600-              OVRDBF    
FILE(I$MST)TOFILE(I$MST)SHARE(*YES)                
  
1700-                                                                           
   
   1800-              OPNQRYF   
FILE((I$MST))QRYSLT(&WRK_QRYSLT)KEYFLD((BFPART))   

QTYOH is numeric in the file.

Thank You
Joe
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *