Re: Retrieving a file's record format level. Is there an easy way?

The API is one way.

Another individual tack is to change all your programs to use an OPEN
statement instead of having the cycle open the file. And you can then
check the status on the open to see if there was a record format level
check.

CREATE TABLE ROB/JHHLPF
(MYKEY CHAR ( 5), MYDATA CHAR ( 30),
PRIMARY KEY (MYKEY))
rcdfmt jhhlpfr

Compile this program
FJHHLPF IF E K DISK USROPN infds(fileinfds)
/INCLUDE ROUTINES/QRPGLESRC,FILEINFDS
/free
*inlr=*on;
open(e) jhhlpf;
if %error;
select;
when %status=01217 and filmsgid='CPF4131';
// record format level check
// alert the troops!!!
dsply filsts;
other;
// generic open error processing here
ENDSL;
ENDIF;

Then alter the table like this:
ALTER TABLE ROB/JHHLPF
ADD COLUMN THEIRCHAR CHAR (5 ) NOT NULL WITH DEFAULT

Then run the program and it will perform the dsply.

Rob Berendt