Re: Program design to minimize record locks

["Gene Burns" <burns.gene@xxxxxxxxx>]

I believe Mr Cassidy spotted the problem.  Try the following.

F spec:
FPMYFILE   UF A E           K DISK    RENAME(FMYFILE:FILE01)

D Spec:
DFileNameDS     E ds                  extname(PMYFILE)



On 7/19/07, Rory Hewitt <roryhewitt@xxxxxxxxx> wrote:
> If you simply have:
>
> D FileNameDS    e ds            extname(Filename)
>
> then you can simply do a READ and the FileNameDS data-structure will be
> automatically filled (because the subfield name are the same):
>
> /free
>    read(en) FileName;
> /end-free
>
> This doesn't work if you specify QUALIFIED for the DS, of course.
>
> Scott and others will probably say that using Likerec is better than using
> ExtName, but it doesn't make any difference if you're talking about a
> single-record-format file with no null-capable fields or anything like
> that (which the *vast* majority of database files are). And ExtName is
> backwards-compatible back to V4R5 :-)
>
> Rory
>
> On 7/19/07, MKirkpatrick@xxxxxxxxxxxxxxxxx <MKirkpatrick@xxxxxxxxxxxxxxxxx
> >
> wrote:
> >
> > You need to read it INTO the DS:
> >
> > Free-Form Syntax: READ{(EN)} name {data-structure}
> >
> > Michael Kirkpatrick
> --
> 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.