03-02-2004, 06:50 PM
Code:
TYPE mytype
ab as integer
cd as string * 10
END TYPE
SUB mysub(foo() as mytype, n%)
for i% = 1 to n%
print foo(i%).ab
print foo(i%).cd
next
END SUB
DIM myarr(1 to 20) as mytype
FOR m% = 1 to 20
myarr(m%).ab = m% + 5
myarr(m%).cd = CHR$(m% + 5)
NEXT
mysub myarr(), 20
Oracle this exact code will works =). I tried it out just now =P.