procedure GetData (output arrayOfData)
arrayOfData.record1.field1 = "dataA"
arrayOfData.record1.field2 = "dataAB"
arrayOfData.record2.field1 = "dataB"
arrayOfData.record2.field2 = "dataBB"
return arrayOfData)
end procedure
Затем вызовите GetData и в любом случае используйте тот кусок данных, который вам необходим для вашей логики. Позже измените GetData, чтобы действительно получать данные из базы данных. Прямо сейчас просто подделайте его и присвойте ему разумные данные вручную.