Re: Program design to minimize record locks

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

The RENAME on the File Spec is renaming the record format name. I
think you want to specify ExtName(FMYFILE) on the DS.

On 7/19/07, Pete Helgren <Pete@xxxxxxxxxx> wrote:
> A little wrinkle here:
>
> The compiler seems unhappy with the fact that I have the RENAME
>
> File spec has:
>
> FPMYFILE   UF A E           K DISK    RENAME(FMYFILE:FILE01)
>
> and D Spec has:
>
> DFileNameDS     E ds                  extname(FILE01)
>
> Compiler issues RNX3523:
> External description for data structure FILE01 is not
> found; data structure is ignored.
>
> Again, the RENAME is there in the F spec because the /Copy member with
> all the I/O logic uses the generic name FILE01 for file references.
>
> Is there a workaround here or am I at a full stop?
>
> Pete
>
> Pete Helgren wrote:
> > Cool.  WAY simpler than I expected. I stumbled over the two fields.  I
> > read them as data structures but I can see how they are just fields.
> > The "like" made me think they WERE DS's.
> >
> > I'll let you know how it turns out (busy "breaking" the code right now....)
> >
> > Pete
> >
> >
> > Booth Martin wrote:
> >
> >> Notice there is only one data structure.  The other two fields are just
> >> chunks of space.  As to pushing your RPG skills, I'm suspecting that
> >> after you do it and then look back at it you'll say something like "Huh?
> >> That was simpler than I thought!"  :)
> >>
> >> To answer your questions:
> >> 1-Shouldn't be.
> >> 2-Yes
> >>
> >> I believe you have it all in your head excepting one small piece.  Your
> >> thinking is correct excepting that since the two holding fields are
> >> fields, not data structures, there is no conflict.  The FileNameDS does
> >> in fact always have the most recently read data values, whether from the
> >> original read(n), the screen exfmt, or the locking read.  You need to be
> >> able to count on that fact to make the process work.
> >>
> >>
> >>
> >>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.