Re: RPG Free (INFDS)

[Alan Campin <alan0307d@xxxxxxxxx>]

You don't want binary. You want Int(5). Two byte integer.

dcl-ds Infds;
  Key Char(1) Pos(369);
  CurLoc Int(5) Pos(370);
  PagRRN Int(5) Pos(378);
end-ds;


On Wed, Sep 14, 2016 at 2:01 PM, <SReeves@xxxxxxxxxxxxxxxxxx> wrote:

> I'm trying to utilize more Free Form specs and am stuck on something.
>
> Normally for a display file for the INFDS we declare the data structure
> (focusing on PAGRRN for this issue)
> D INFDS           DS
> D   KEY                 369    369
> D   CURLOC              370    371B 0
> D   PAGRRN              378    379B 0
>
>
> So I'm trying to do that in Free Form and have come up with this.
>         DCL-DS INFDS;
>           KEY CHAR(1) POS(369);
>           CURLOC BINDEC(2) POS(370);
>           PAGRRN BINDEC(2:0) POS(378);
>         END-DS;
>
> Something is wrong with PAGRRN portion.  Is BINDEC not the same the 'B'?
> The issue I have is that after paging down 9 times it give a 'target
> numeric is too small to hold the results'.
> If only change the program to *below* the program works fine.
>
>         DCL-DS INFDS;
>           KEY CHAR(1) POS(369);
>           CURLOC BINDEC(2) POS(370);
>      D   PAGRRN              378    379B 0
>           //PAGRRN BINDEC(2:0) POS(378);
>         END-DS;
> --
> 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.