CLEAR
DIMENSION myarray(2,10)
FOR k=1 TO 2
FOR j=1 TO 10
myarray[k,j]="Driver"+TRANSFORM(k)+" Violation"+TRANS(j)
NEXT
NEXT
IF ALEN(myarray,2)=10
DIMENSION myarray(2,20);
, aDummy[10]
aDummy=""
=ACOPY(myarray,myarray,11,10,21),ACOPY(myarray,myarray,31,ACOPY(aDummy,myarray,1,-1,31),11)
RELEASE aDummy
ENDIF
LIST MEMORY LIKE "myarray"
>I know I have probably done this before, but I cannot locate any similar code. I have an array like so:
>
>myarray(1,1) ="Driver1 Violation1"
>myarray(1,2) ="Driver1 Violation2"
>myarray(1,3) ="Driver1 Violation3"
>myarray(1,4) ="Driver1 Violation4"
>myarray(1,5) ="Driver1 Violation5"
>myarray(1,6) ="Driver1 Violation6"
>myarray(1,7) ="Driver1 Violation7"
>myarray(1,8) ="Driver1 Violation8"
>myarray(1,9) ="Driver1 Violation9"
>myarray(1,10)="Driver1 Violation10"
>myarray(2,1) ="Driver2 Violation1"
>myarray(2,2) ="Driver2 Violation2"
>myarray(2,3) ="Driver2 Violation3"
>myarray(2,4) ="Driver2 Violation4"
>myarray(2,5) ="Driver2 Violation5"
>myarray(2,6) ="Driver2 Violation6"
>myarray(2,7) ="Driver2 Violation7"
>myarray(2,8) ="Driver2 Violation8"
>myarray(2,9) ="Driver2 Violation9"
>myarray(2,10)="Driver2 Violation10"
>
>I need to redimension this to 2,20 IF 1,11 -> 1,20 do not exist. The idea is to allow for 20 violations for Driver1, Driver2, etc (however many rows there are). I need to do this so it ends up like so:
>
>myarray(1,1) ="Driver1 Violation1"
>myarray(1,2) ="Driver1 Violation2"
>myarray(1,3) ="Driver1 Violation3"
>myarray(1,4) ="Driver1 Violation4"
>myarray(1,5) ="Driver1 Violation5"
>myarray(1,6) ="Driver1 Violation6"
>myarray(1,7) ="Driver1 Violation7"
>myarray(1,8) ="Driver1 Violation8"
>myarray(1,9) ="Driver1 Violation9"
>myarray(1,10)="Driver1 Violation10"
>myarray(1,11) =""
>myarray(1,12) =""
>myarray(1,13) =""
>myarray(1,14) =""
>myarray(1,15) =""
>myarray(1,16) =""
>myarray(1,17) =""
>myarray(1,18) =""
>myarray(1,19) =""
>myarray(1,20) =""
>myarray(2,1) ="Driver2 Violation1"
>myarray(2,2) ="Driver2 Violation2"
>myarray(2,3) ="Driver2 Violation3"
>myarray(2,4) ="Driver2 Violation4"
>myarray(2,5) ="Driver2 Violation5"
>myarray(2,6) ="Driver2 Violation6"
>myarray(2,7) ="Driver2 Violation7"
>myarray(2,8) ="Driver2 Violation8"
>myarray(2,9) ="Driver2 Violation9"
>myarray(2,10)="Driver2 Violation10"
>myarray(2,11) =""
>myarray(2,12) =""
>myarray(2,13) =""
>myarray(2,14) =""
>myarray(2,15) =""
>myarray(2,16) =""
>myarray(2,17) =""
>myarray(2,18) =""
>myarray(2,19) =""
>myarray(2,20) =""
>
>There must be a simple way to check for the existance of myarray(1,11) without it returning .T. if the array is currently dimensioned myarray(2,10) and (2,1) exists? Then of course, once I can successfully determine that myarray(1,11)-myarray(1,20) do not exist, I need to redimension it without shifting the values to the wrong row and column. I am obviously forgetting something basic here but I cannot think what it is.
>
>TIA,
>Tracy