Re: Updating file via datastructure

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

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
>