× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: OPNQRY
  • From: mancini <mancini@xxxxxxx>
  • Date: Wed, 18 Jun 1997 06:24:14 -0500

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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.