RE: Query

[Roger Boucher <RBoucher@xxxxxxxxxxx>]

Well, my field is signed, not packed, so I'm not sure if it would be of
any assistance but when I try to pass the selection value as a character
field... I get this:

Message ID . . . . . . :   SQL0401       Severity . . . . . . . :   30

Message type . . . . . :   Diagnostic

Date sent  . . . . . . :   06/01/99      Time sent  . . . . . . :
16:15:17 
 

Message . . . . :   Comparison operator = operands not compatible.

Cause . . . . . :   The operands of comparison operator = are not
compatible.
    -- Numeric operands are compatible with any other numeric operands.

    -- Character operands are compatible with operands that are
character,   
  graphic, date, time, or timestamp.

    -- Date, time, or timestamp operands are compatible with character

  operands or with another operand of the same type.

    -- Graphic operands are compatible with graphic or character
operands.   

Thanks again for ANY help... HELP!!!

P.S.  I've already done the Digits() thing and it works but it is WAY
too slow.

-----Original Message-----
From: Rob Berendt [mailto:rob@dekko.com]
Sent: Tuesday, June 01, 1999 3:08 PM
To: MIDRANGE-L@midrange.com
Subject: RE: Query


CALL PGM(ROB/IIM2) PARM('00029')

Program IIM2:
PGM (                                                                + 
      &VENDOR#         /* Vendor #                                */ + 
    )                                                                  
    DCL  &VENDOR#     *CHAR   5  /* Vendor Number                    */
             STRQMQRY   QMQRY(ROB/IIM2) SETVAR((VENDOR &VENDOR#))      
END:                                                                   
             ENDPGM                                                   


QMQRY IIM2:
SELECT                     
  ALL       IPROD, IDESC   
  FROM      GPIDIVF/IIM T01
  WHERE     IVEND = &VENDOR
  ORDER BY  IPROD ASC       

Is the above any assistance?  IVEND is a packed 5,0 field in the IIM
file.





RBoucher@stanpac.com on 06/01/99 03:03:52 PM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        RE: Query

How can I pass a numeric variable to a QMQRY from a CL?  I need to
select on a field that is 8 signed.  To further complicate things... the
value I'm trying to pass is retrieved through a call to another
program... and being returned as an 8 *CHAR to the calling CL.

Thanks!!
  =)



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