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


  1.  Home
  2. RPG400-L
  3. June 2007

Re: target for a numeric operation is too small on a %lookup?

Rick,

My guess is that $edxE1 is defined as 3 long while the array dimension is 4
long. Try defining $edxE1 as 4 long or make it an integer.

HTH,
MQueue



"rick baird" <rick.baird@xxxxxxxxx> wrote in message
news:mailman.12949.1182458290.13580.rpg400-l@xxxxxxxxxxxxxxx
Hey all,

given the following code:

c if $idxE1 = 0 or
c %lookup(ERds:ERarray:1:$idxE1) = 0

and the following values:

$IDXE1 = 001.

ERds (data structure)
ERLICD OF ERDS = ' '
ERTMCD OF ERDS = 'AMALO'
ERRYET OF ERDS = 'F'

ERARRAY(1) = ' AGOODF '
ERARRAY(2) = ' '
ERARRAY(3) = ' ' (etc. - dim(9999)

which resolves to:

%LOOKUP(' AMALOF':' AGOODF',' ':1:1)

why would I get :

RNQ0103:
The target for a numeric operation is too small to hold the result?

the result of the %lookup should be zero, and there is no eval.

thanks,

Rick



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