Re: IFS STMF file read - Codepage problem? -- RPG400-L

I'm using Scott's utility for reading a text IFS file.  The file has a
heading,


These are IBM APIs, not my utilities! :)

The top of the file looks like this...
-----BEGIN


PEM encoded digital certificate?

My code looks like this...

   H DFTACTGRP(*NO)

     /copy QSRC,ifsio_h

    D fd              s             10I 0
    D data            s             50A
    D wait            s              1A

     /free

       fd = open('/testfile.asc': O_RDONLY );
       if (fd < 0);
           dsply ('Something went wrong, open() failed.') '' wait;
          return;
       endif;

       if read(fd: %addr(data): 10) < 10;
           dsply ('The file does not have 10 bytes to read!') '' wait;
           return;
       endif;

This isn't the problem, but... you should have a "callp close(fd)" priorto the RETURN statement here. Otherwise, if the file doesn't have 10characters, your program will end without ever closing it.

However, when I look at the field Data in DEBUG - it looks like this?
DATA = 'âáåñ+&å&(áëë åá                       '


Can you (in debug, at the same statement) type the following:

   eval data:x

This will give us a view of the data in hex, which might be helpful. Youshould do this WITHOUT specifying O_TEXTDATA so that we know what theactual hex values of the bytes in the file are.

Code page on the file is 437.
I've tried "O_TEXTDATA", but when I try that - it returns fd of "-1".

Can you tell us what the value of errno is when you receive the -1? Moreinfo about errno can be found on my Web site at the following link:

http://www.scottklement.com/rpg/ifs_ebook/errors.html

O_TEXTDATA should definitely be used when you're reading a file that's inASCII -- I suspect that this is the problem, but without knowing what"errno" is, I have no idea why open() is returning a -1.

When you say the codepage is 437, do you mean that the data in the file isin codepage 437, or that the file's attributes are set to 437, or both? Inother words, do the hex values of the data in the file (obtained bycalling debug with :x) make sense for the codepage that you've assigned tothe file?