Comments on: Error in subfile programming

By: SURYAP

SURYAP — Tue, 25 Sep 2012 11:09:27 +0000

Just Update record in physical file and try

By: The Most-Watched IT Questions: February 22, 2011 - ITKE Community Blog

The Most-Watched IT Questions: February 22, 2011 - ITKE Community Blog — Tue, 22 Feb 2011 06:32:57 +0000

[...] CharlieBrowne and TomLiotta collaborate to remedy the error in subfile programming that Sangay’s been receiving. 6. Rechil and Mrdenny are in the process of helping a member [...]

By: tomliotta

tomliotta — Thu, 10 Feb 2011 23:04:59 +0000

…READ Operation entry is invalid for the Subfile-Record…

Yes, that’s exactly correct. The actual input operation code should be either a CHAIN by relative record number or READC to get the next changed subfile record.

But note that neither op-code can actually run until after the subfile is built.

Tom

By: tomliotta

tomliotta — Thu, 10 Feb 2011 22:47:48 +0000

Is that the entire RPG program or only pieces of it? It looks like the only thing the program does is attempt to read the RECCTL control record. The subroutine that generates the subfile rows is not executed anywhere that I can see.

Tom

By: sangay

sangay — Thu, 10 Feb 2011 17:08:29 +0000

DDS is as follows:- A DSPSIZ(24 80 *DS3) A R RECSFL SFL A 30 SFLNXTCHG A UPC 20 B 8 3TEXT('UPC 2ND ITEM' A 31 DSPATR(UL) A* A R RECCTL SFLCTL(RECSFL) A* A SFLSIZ(0010) A SFLPAG(0005) A 10 SFLDSP A 10 SFLDSPCTL A N10 SFLCLR A SFLDROP(CF04) A SFLFOLD(CF04) A 5 3'UPC SHORT CODE. .' A COLOR(WHT) A UPCSCD 3A I 5 24TEXT('UPC') RPG FD123 CF E WORKSTN INFDS(@D123) F SFILE(RECSFL:I1) C READ RECCTL C *ENTRY PLIST C PARM PADDNO 8 * C S999 BEGSR * C SETOFF 3110 C Z-ADD 0 I1 4 0 C Z-ADD 5 PG 4 0 * C WRITE RECCTL C DO PG C ADD 1 I1 C WRITE RECSFL C ENDDO C SETON 1031 C MOVEL '111' UPCSCD C ENDSR

By: sangay

sangay — Thu, 10 Feb 2011 03:59:55 +0000

but when i gove subfile record name (RECSFL) it gives me an error ”

e READ Operation entry is invalid for the Subfile-Record format. Specification ignored

By: tomliotta

tomliotta — Wed, 09 Feb 2011 19:36:37 +0000

...read the subfile READ D123, it gives me an error saying "Session or device error occurred in file D123" According to what you wrote, you are issuing your READ statement against the file -- D123. The error message is CPF5053 which means "A record name is required." You need to READ the subfile record name instead of the file name. You can't READ D123. Tom