RE: OPNQRYF -- RPG400-L

× 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.


Absolutely right;

Concatenating should ALLWAYS be done with ALPHANUMERIC fields ...

Greetings,
  Michel




|--------+----------------------->
|        |          "Njхl        |
|        |          Fisketjјn"   |
|        |          <n.f@figu.no>|
|        |                       |
|        |          24/08/01     |
|        |          09:30        |
|        |          Please       |
|        |          respond to   |
|        |          rpg400-l     |
|        |                       |
|--------+----------------------->
  >----------------------------------------------------------------------------|
  |                                                                            |
  |       To:     rpg400-l@midrange.com                                        |
  |       cc:     (bcc: Michel Cuypers/New Wave Logistics Belgium)             |
  |       Subject:     RE: OPNQRYF                                             |
  >----------------------------------------------------------------------------|




> 524-
> 551- /*
>     553- CHGVAR     VAR(&QRYSLT) VALUE('SORD *EQ "'
> *CAT &SONO +
> 554  *CAT '"')


You have to define a character field with the same length as
the numeric field SONO, e.g. SONOA, and use that in the CHGVAR
statement:

DCL &SONOA           *CHAR   x


CHGVAR &SONA &SONO
CHGVAR &QRYSLT ('&SORDв' *CAT &SONOA *CAT '"')




_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com

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.