Prices : Array : XMLRecord = <> ..

Call RecordsIn File_name '/' Flags ( R : 
                                         Call ParseRecord R 'Prices' 
                                         [ R.Attr->>'price' ] 
                                   ) 
Where Flags = PARSE_ALL | PARSE_FILE | READ_ANYWAY
