RE: SEARCH all problems

["Terry Grider" <Terry.Grider@xxxxxxxxxxxxxxxx>]

Your table has 0005 and you're moving 005.

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of Daniel Mielke
Sent: Friday, November 25, 2005 4:42 PM
To: 'COBOL Programming on the iSeries/AS400'
Subject: [COBOL400-L] SEARCH all problems


 

Hi all,

Why can't I get my "search all" to work?  This is driving me nuts!

 

01  PRICE-TABLE.                            

    05 prices occurs 1500 times             

       ascending key is inv-code            

       indexed by ws-price-rec.             

       10 inv-code          pic x(5).       

       10 unit-price        pic 9(7)v9(4).  

 

 

move "005  " to hold-me.                              

SEARCH all prices                                         

   at end                                             

      display hold-me " not found"                    

   when inv-code (ws-price-rec) = hold-me             

        move unit-price of PRICES (ws-price-rec)      

          to current-unit-price                       

        move "N" to eor-UNIT-PRICE.                   

                                                      

display                                               

        " price$"                                     

        current-unit-price.                           

 

 

PRICES                         06ED90  CHAR(16)      DIMENSION(1500)


                               06ED90    (1)         '0001 00000106538'


                               06EDA0    (2)         '0002 00000109909'


                               06EDB0    (3)         '0003 00000108581'


                               06EDC0    (4)         '0004 00000121800'


                               06EDD0    (5)         '0005 00000113959'


                               06EDE0    (6)         '0006 00000135300'


                               06EDF0    (7)         '0007 00000091994'


                               06EE00    (8)         '0008 00000106900'


                               06EE10    (9)         '001  00000052100'


                               06EE20    (10)        '002  00000049490'


                               06EE30    (11)        '003  00000042310'


                               06EE40    (12)        '004  00000041450'


FORMATTED DATA DUMP FOR PROGRAM CHANNEL4.UDPGMLIB         16:50:38
11/25/05    

NAME                           OFFSET  ATTRIBUTES    VALUE


                               06EE50    (13)        '005  00000026410'


                               06EE60    (14)        '006  00000025010'


                               06EE70    (15)        '007  00000028200'


 

 

 

 

BUY. HOLD. AND PROSPER

Daniel Mielke

Business Systems Analyst

AIC Limited

1-888-710-4242 x4614

dmielke@xxxxxxx <mailto:dmielke@xxxxxxx> 

www.aic.com <http://www.aic.com> 

 


Man darf nur die Tasten zur richtigen Zeit treffen, 
so spielt das Instrument von selber. 
Johann Sebastian Bach (1685-1750)

  

 




*******************************************************************
AIC Canadian Focused Fund recently celebrated its fifth anniversary in style, 
beating the S&P TSX Index over five years. Today, its performance is ranked in 
the top quartile* in the Canadian equity category from inception to September 
30, 2005 and has earned a Four-star Morningstar rating.

AIC Canadian Focused Fund has been managed by James Cole, since its 
introduction. A veteran manager, James Cole has more than 22 years industry 
experience, including 13 years as portfolio manager responsible for Canadian 
and U.S. equities. 

Learn more about AIC Canadian Focused Fund today. Visit us at www.aic.com. 


* Source: Morningstar PALTrak (as at September 30, 2005)
Copyright 2005 Morningstar Research Inc. All rights reserved. The information 
contained herein: (1) is proprietary to Morningstar and/or its content 
providers; (2) may not be copied or distributed; and (3) is not warranted to be 
accurate, complete or timely. Neither Morningstar nor its content providers are 
responsible for any damages or losses arising from any use of this information. 
Past performance is no guarantee of future results.

Mutual funds are not guaranteed, their values change frequently and past 
performance may not be repeated.  Commissions, trailing commissions, management 
fees and expenses may be associated with mutual fund investments.  Please read 
the prospectus before investing.