Reading a comma-separated value file in ax 2012

class ReadCommaFile

{

}

public static client void main(Args _args)

{

CommaTextIo file;

container line;

#define.filename(@'C:\Temp\accounts.csv')

#File

file = new CommaTextIo(#filename, #io_read);

if (!file || file.status() != IO_Status::Ok)

{

throw error("File cannot be opened.");

}

line = file.read();

while (file.status() == IO_Status::Ok)

{

info(con2Str(line, ' - '));

line = file.read();

}

} 

class ReadCommaFileServer

{

}

public static server void main(Args _args)

{

CommaTextIo file;

container line;

FileIoPermission perm;

#define.filename('C:\\Temp\\accounts.csv')

#File

perm = new FileIoPermission(#filename, #io_read);

perm.assert();

file = new CommaTextIo(#filename, #io_read);

if (!file || file.status() != IO_Status::Ok)

{

throw error("File cannot be opened.");

}

line = file.read();

while (file.status() == IO_Status::Ok)

{

info(con2Str(line, ' - '));

line = file.read();

}

CodeAccessPermission::revertAssert();

}