>Using the following code i am getting error as Error Subscript is outside defined Range.
>
>Not able to solve it, kinldy Correct
>
>

>T1=TIME()
>Clear
>SET DELETED ON
>
>lcStr = filetostr('1021165156.ps')
>lnPOS = At("%%Pages:",lcStr)
>lcPageCount = alltrim(substr(lcStr, lnPOS, 12))
>lnPageCount = VAL(STRTRAN(lcPageCount,'%%Pages:',''))
>
>IF lnPageCount>2
>DIMENSION occoupiedrange(lnPageCount)
>DIMENSION unoccoupiedrange(lnPageCount)
>
>Local lcFile, lcText
>m.lcFile = [1021165156.ps]
>Create Cursor Dummy (PS c(254), pos i,pageno n(2))
>Append From (m.lcFile) Sdf
>
>SCAN
>IF Getwordnum(PS, Getwordcount(PS)) = [x] .OR. ;
>Getwordnum(PS, Getwordcount(PS)) = [y] .OR. ;
>Getwordnum(PS, Getwordcount(PS)) = [L] .OR. ;
>Getwordnum(PS, Getwordcount(PS)) = [w]
>
>m.lcText = Getwordnum(PS, Getwordcount(PS) - 1) && The second last word
>IF Len(Chrtran(m.lcText, [1234567890], [])) = 0 && lcText contains only digits
>Replace pos With Val(m.lcText)
>Endif
>ENDIF
>ENDSCAN
>   
>    
>   
>FOR I= 1 TO lnPageCount
>CURTEXT='%%Page: '+ALLTRIM(STR(I))+' '+ALLTRIM(STR(I))
>NeXTTEXT='%%Page: '+ALLTRIM(STR(I+1))+" "+ALLTRIM(STR(I+1))
>
>*DELETE FROM dummy WHERE ps like "%(of%" AND pageno>1
>*DELETE FROM dummy WHERE ps like "%(Page%" AND pageno>1
>*DELETE FROM DUMMY where Ps LIKE '%BHARAT SANCHAR%' AND Pageno>1
>LOCATE FOR ALLTRIM(PS)=curtext
>SCAN WHILE ALLTRIM(ps)<>nexttext OR EOF()=.T.
>REPLACE pageno WITH I
>ENDSCAN
>SELECT MIN(Pos) FROM Dummy WHERE Pageno=I AND Pos>20 INTO ARRAY X
>SELECT MAX(Pos) FROM Dummy WHERE Pageno=I INTO ARRAY Y
>
>STORE Y-X+1 TO Occoupiedrange(I)
>STORE (x) TO unoccoupiedrange(I)
>STORE (x-20) TO unoccoupiedrange(I)
>ENDFor                                                                                                                                                                                                                                                  
>
>
>FOR I=2 TO (lnPageCount-1)
>Blank=unoccoupiedrange(I)
>Filled=occoupiedrange(I+1)
>
>DO WHILE Blank>=Filled
>NEXTTEXT='%%Page: '+ALLTRIM(STR(I+1))+" "+ALLTRIM(STR(I+1))
>LOCATE FOR ps=NeXTTEXT
>Skip-1 
>Replace ps WITH NeXTTEXT
>SKIP
>Prefixmul= ALLTRIM(STR((Occoupiedrange(I)/68.7),18,2))
>Replace ps WITH '0 -72 &Prefixmul mul translate'
>WAIT WINDOW I
>Filled=Filled+occoupiedrange(I+1)
>WAIT WINDOW I
>I=I+1
>ENDDO
>ENDFOR
>ENDIF
>
>SELECT Dummy
>set textmerge On
>SET TEXTMERGE TO myfile.ps noshow 
>scan
>\\ << tRIM(pS) >>
>\
>endscan
>set textmerge To
>set textmerge off
>
>T2=TIME()
>WAIT WINDOW T2
>WAIT WINDOW t1
>

>
>Sample File Used for the above code can be downloaded from
>https://www.dropbox.com/s/7reg69thb5i13fq/1021165156.ps
>
>Regards

Which line generates the error?

Tamar