Comments on: READC on load all AS/400 subfile

By: splat

splat — Mon, 25 Oct 2010 14:51:29 +0000

Nickhutcheson, if you can't change that CA key to CF, an alternative to ReadC is to chain to the subfile.

By: tomliotta

tomliotta — Thu, 21 Oct 2010 21:38:51 +0000

Does anyone have the positions for the highest RRN on a Subfile?

Positions? You mean in the INFDS? Should be a 2-byte binary (integer) number at offset 13, positions 14-15. It’s the total number of rows in all active subfiles.

Tom

By: nickhutcheson

nickhutcheson — Thu, 21 Oct 2010 17:07:47 +0000

Yeah, it looks bad. Two issues here: 1. The difference between CA and CF. solved. 2. *in40 is the indicator on the readC, – solved.

Does anyone have the positions for the highest RRN on a Subfile? This was found in the old CPF programmer’s guide a hundred years ago. It was right after the Lowest RRN currently displayed on the subfile. This info comes from the INFDS.

By: splat

splat — Thu, 21 Oct 2010 16:22:00 +0000

This is a guess, but it looks like *in40 is an EOF or ERR indicator for SFLRCD. You'd be better off adding the (E) extender to the ReadC operation and using If %EOF(display file name) or %Error instead of If *in40.

By: tomliotta

tomliotta — Wed, 20 Oct 2010 01:48:57 +0000

There is no way to know the answer from what you have shown us. As Phil noted, we have no clue what *IN40 is. It might be set on or off by any statement elsewhere in the program.

I’m not at all clear why you would use an indicator at that point anyway — you should be using the %EOF() builtin function, assuming that you want to know when you’ve reached the end of changed records.

The only answer that comes to mind is “If you don’t want *IN40 on at that point, then don’t set it on.”

Tom