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