AW: RPG Free (INFDS)

In either way, use UNS instead of the B data type:

DCL-DS INFDS;
Key Char(1) Pos(369);
CurLoc Uns(5) Pos(370);
PagRRN Uns(5) Pos(378);
END-DS;

Also I'd split the positions 370/371 into 2 Sub-Fields (one for columns and
the other one for rows)
DCL-DS INFDS;
....
CurLocRow Uns(3) Pos(370);
CurLocCol Uns(3) Pos(371);
End-DS;

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)


-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von
SReeves@xxxxxxxxxxxxxxxxxx
Gesendet: Wednesday, 14.9 2016 23:02
An: rpg400-l@xxxxxxxxxxxx
Betreff: RPG Free (INFDS)

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;