RE: Code Page Conversion.

The following might work for you:

      $set ilusing"System.Text" 
      $set ilusing"System.IO" 
       program-id. Program1 as "fileconvert.Program1".
       data division.
       working-storage section.
       01 fileName string value "myfile.txt".
       01 newfileName string value "newfile.txt".
       01 original string value type String::Empty.
       01 sr type StreamReader.
       01 sw type StreamWriter.
       procedure division.
           
           set sr to new StreamReader(filename, type Encoding::GetEncoding("windows-1250"))
           set original to sr::ReadToEnd 
           invoke sr::Close
           
           set sw to new StreamWriter(newFilename, false, type Encoding::GetEncoding("ibm852"))
           invoke sw::Write(original)
           invoke sw::Close
      
           goback.
           
       end program Program1.