Go4AS400-Image

The Web Ask Go4AS400
Share  
 
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me


Ü  SORTA (Sort an Array)

§  Lookup: It is used to look for an element in the array.

§  Sorta: It is used to sort the array element

§  Xfoot: It is used to sum-up the array element.

 

Example

Columns . . . :    1 100                                      Browse

SEU==>

FMT D  .....DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++

*************** Beginning of data *******************************************

0001.00      darr2             s              3P 0 dim(5) ctdata perrcd(1)

0002.00      dn                s              2p 0 inz(1)

0003.00      C     n             do        5

0004.00      C     arr2(n)       dsply

0005.00      C                   eval      n=n+1

0006.00      C                   enddo

0007.00      C                   sorta     arr2

0008.00      C                   eval      n=1

0009.00      C     n             do        5

0010.00      C     arr2(n)       dsply

0011.00      C                   eval      n=n+1

0012.00      C                   enddo

0013.00      C     204           lookup    arr2                                   81

0014.00      C                   if        *in81=*on

0015.00      C     'found'       dsply

0016.00      C                   endif

0017.00      C                   xfoot     arr2          sum               4 0

0018.00      C     sum           dsply

0019.00      c                   seton                                        lr

0020.00 ** CTDATA arr2

0021.00 201

0022.00 205

0023.00 203

0024.00 202

0025.00 204

****************** End of data ************************************************

 

 

OUTPUT

 

DSPLY  201   

DSPLY  205   

DSPLY  203   

DSPLY  202   

DSPLY  204   

DSPLY  201   

DSPLY  202   

DSPLY  203   

DSPLY  204   

DSPLY  205   

DSPLY  found 

DSPLY  1015  

 



Comments:


Copyright © Go4as400.com, 2014. Copyright notice