[pft]
(
select v3010
case 'LENDO':'',
case 'TESTANDO':'',
case 'ARQISONOTLIL5':'Record ',v1000[1],' field 5 incompatible: ',v5[1],'
'
case 'ARQISONOTLIL6':'Record ',v1000[1],' field 6 incompatible: ',v6[1],'
'
case 'ARQISONOTTIT':'Record ',v1000[1],' does not contain the field title [30].
',
case 'IDDUP':'Record ',v1000^m,' identifier "',v1000^i,'" duplicate.
',
case 'ARQISOOK':'ISO File OK for Import.
',
elsecase v3010,/
endsel,
)
[/pft]