Wenn Du O_CCSID bzw. O_CODEPAGE angibst, musst Du auch den 4. Parameter, CCSID oder Codepage, angeben. Als 5. Parameter kannst Du einfach 0 übergeben, das ist dann die Job-CCSID.

Aber weniger ist oft besser, darum probier's mal so:
oflag = O_RDWR + O_TEXTDATA;
fd = open(%trimr(Inp_File) : oflag );

Wenn das nichts bringen sollte, gib' wieder O_CCSID und den 4. Parameter an, mit der CCSID der IFS-Datei (mit stat() im Pgm herauszufinden).