File upload successful but csv file type set to binary

[mperez]

I am uploading a csv file to an IFS folder using the file upload widget, and the upload completes successfully, but when a separate RPG program tries to open the uploaded file using the iSeries fopen() function, it returns NULL if opening in text mode, using mode 'r'. If I change the mode to binary ('rb'), it will successfully open the file. Is there a file attribute I can set/change in the RPG (or widget) so that it remains as a text file in the IFS folder?

file upload widget prop:
allowed type: text/csv
allowed type 2: application/vnd.ms-excel

RPG program: fopen() implementation in an included procedure that calls ExtProc('_C_IFS_fopen')

file = fopen(%trim(CsvFilePath) : 'r');
if (file = *NULL);
file = fopen(%trim(CsvFilePath) : 'rb');
if (file = *NULL);
Exsr $Exit;
endif;
endif;

Thanks,
Michael

[Scott Klement]

The fact that adding 'b' solves the problem makes me think that the file has been marked with the wrong CCSID -- but this is just a guess since you didn't post the error message. (Indeed, it doesn't even look like you've retrieved the error in your code?)

[mperez]

The fopen function doesn't return an error code/msg from what I can tell, it only sets the file pointer to null if it doesn't open the file. I agree, I think it's the CCSID. The RPG code does open the file, but I'll review setting the CCSID on the file. Thanks!