RE: SEARCH all problems

Look farther down, he has a "005       ".

Gregory A. Garner
Garner Data Systems, Inc
4270 Grand Teton Parkway
Suwanee, GA 30024
Phone: 770 845 9636  Fax:770 614 3496
-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Terry Grider
Sent: Friday, November 25, 2005 5:51 PM
To: COBOL Programming on the iSeries/AS400
Subject: RE: [COBOL400-L] SEARCH all problems

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.