The simplest snippet to read from file in InterSystems Caché

csv2objectscript.cls

set file = ##class(%File).%New( "data.csv" )
    set sc = file.Open( "R" ) 
    if $$$ISERR(sc) quit    ; or do smth

    while 'file.AtEnd {
        set str=file.ReadLine() 
        for i=1:1:$length( str, ";" ) {
            set id=$piece( str, ";" ,i ) 
            write !, id  // or do smth
        }
    }
    do file.Close()

From https://community.intersystems.com/post/simplest-snippet-read-file-intersystems-cach%C3%A9