RE: filling a field with a character

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

"Now wasn't that simple. sheeeshhh. Thank you to everyone that answered."

Don't feel bad, I would have asked about an Hour later if you had not. 

Got to love this list.

/snip
 
 * Do not forget Ascend and Inz(*ALL'9')
 
D                 DS                  Inz 
D BPCIA                               Dim(20000) Ascend 
D  BPCIASORT                    28A   Inz(*ALL'9')  Overlay(BPCIA:1) 
D    SSMCU                            Like(YSSMCU)  Overlay(BPCIA:*next) 
D    SSAN8                            Like(YSSAN8)  Overlay(BPCIA:*next) 
  *
 * "A lot of code" 
 
 *  "Just look for *all'9' instead of blanks etc."   
 * Not %equal reset index and look for first *all'9' element
C                   Else 
C                   Eval      Y  =  1 
C                   Eval      BPCIALup  =  *ALL'9' 
C     BPCIALup      Lookup    BPCIASort(Y)                           99
C                   If        %Equal 

 * "A lot of code" 

 
 * "This could have been on any field in Array and been sorted. BPCIASort 
is 
 *     serveral fields my program"
 
C                   Sorta     BPCIASort 
 
 * Loop through
C                   Eval      X            = 1
C                   Dou       X            = 20000   or 
C                             BPCIASort(X) = *ALL'9'

 * "A lot of code" 

/snip End 


 So people can find this if needed for search on these topics  Data 
Structure   Array   Sorting 



Thanks for smile Booth,

Bill Hopkins