Re: Updating file via datastructure -- RPG400-L

In addition to the previous suggestion about defining the array as overlaying the data structure:

1) Using a data structure for UPDATE with an externally described file was not supported by the language until V5R3M0.

2) It also requires that the data structure be defined with EXTNAME(...:*INPUT) or LIKEREC(...:*INPUT). If the parameter where *INPUT would be specified is missing, the compiler defaults to *INPUT, so that probably is not your problem.

I hope this helps.

Mel Rothman
Mel Rothman, Inc.

Tilo von Brandis wrote:

Hi Joep

Thanks for you reply.

I tried your suggestion and the compiler stoped with the same error. I changed the code to

DDSHISTRC E DS EXTName(SHISTRCL1) D RM 3P 0 OVERLAY(DSHISTRC:72) DIM(24)
and it still gave the same problem.
According to the manual this should not be a problem.
Thanks
Tilo
-----Original Message----- From: Joep Beckeringh [mailto:joep@xxxxxxxxxxxxxxxxxxx] Sent: 17 November 2004 15:25 To: RPG programming on the AS400 / iSeries Subject: Re: Updating file via datastructure
Hi Tilo,
IIRC the field Record is added to the datastructure, thus making the datastructure longer than the record. You should add OVERLAY(DSHISTRC) to the Record field.
Joep Beckeringh
Tilo von Brandis wrote:
Hi

I am trying to update a file using a datastructure because I want to
update
24 fields on the file as an array
D*
When I try to update the file using the following command:
        UPDATE RISREC DSHISTRC;
the compiler gives the following error message:
*RNF7701 20 The data structure is not allowed for the operation.
What am I doing wrong?
Tilo von Brandis
Manager: IT
Safair (PTY) Ltd
Work  : +27 11 928 0043
Cell     : +27 83 675 7778