Re: Fully freeform file information DS

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

That did it!

Thanks and what took so long . . .   :)


On Tue, Aug 9, 2016 at 3:18 PM, Mark Murphy/STAR BASE Consulting Inc. <
mmurphy@xxxxxxxxxxxxxxx> wrote:

> Int(10)
>
> Mark Murphy
> STAR BASE Consulting, Inc.
> mmurphy@xxxxxxxxxxxxxxx
>
>
> -----Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx> wrote: -----
> To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
> From: Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>
> Date: 08/09/2016 03:17PM
> Subject: Fully freeform file information DS
>
>
> Having a brain fart.
>
> I want a fully freeform file information DS to get the number of records,
> something like this:
>
> dcl-ds dsFile;
>       NumRcds Int(?) Pos(156);
> end-Ds;
>
> The RPG reference has it in fixed form, like this:
>
>      D NUM_RCDS 156 159I 0
>
> I can't define Int(4) because it says that's not a valid length for Int().
>
> What am I missing?
>
> Thanks.
>
>
> --
>
>
> Jeff Crosby
> VP Information Systems
> UniPro FoodService/Dilgard
> P.O. Box 13369
> Ft. Wayne, IN 46868-3369
> 260-422-7531
> www.dilgardfoods.com
>
> The opinions expressed are my own and not necessarily the opinion of my
> company.  Unless I say so.
> --
> This is the RPG programming on the IBM i (AS/400 and 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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
> --
> This is the RPG programming on the IBM i (AS/400 and 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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.