RE: RPG Free Format question

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of HauserSSS
> Sent: Friday, June 24, 2005 7:25 AM
> To: RPG programming on the AS400 / iSeries
> Subject: AW: RPG Free Format question
> 
> 
> Hi Andy,
> 
> I'd prefer data structure subfields.
> 
> d gDisplayFileControl...
> d                 ds                  qualified
> d  FunctionKeys                1   24A
> d     exit                           n   overlay(FunctionKeys : 3)
> d     printList                      n   overlay(FunctionKeys : 5)
> d     cancel                         n   overlay(FunctionKeys : 12)
> d  PageUpDown                       2A   
> overlay(gDisplayFileControl : 25)
> d     pagedown                       n   
> overlay(gDisplayFileControl : 25)
> d     pageup                         n   
> overlay(gDisplayFileControl : 26)
> d  ReverseImage                    10A   
> overlay(gDisplayFileControl : 51)
> d     RI_Field1                      n   
> overlay(gDisplayFileControl : 51)
> d     RI_Field2                      n   
> overlay(gDisplayFileControl : 52)
> d     RI_Field3                      n   
> overlay(gDisplayFileControl : 53)
> d     RI_Field4                      n   
> overlay(gDisplayFileControl : 54)
> d     RI_Field5                      n   
> overlay(gDisplayFileControl : 55)
> d     RI_Field6                      n   
> overlay(gDisplayFileControl : 56)
> d     RI_Field7                      n   
> overlay(gDisplayFileControl : 57)
> d     RI_Field8                      n   
> overlay(gDisplayFileControl : 58)
> d     RI_Field9                      n   
> overlay(gDisplayFileControl : 59)
> d     RI_Field10                     n   
> overlay(gDisplayFileControl : 60)
> 
>  /Free
>    Functionkeys = *Off;
>    PageUpDown   = *Off;
>    ReverseImage = *On;
>  /End-Free
> 

Sweet, I figure this could be done, but I hadn't yet needed to try it out.

I believe however, that you do need to qualify those names correct?

 /Free
   gDisplayFileControl.Functionkeys = *Off;
   gDisplayFileControl.PageUpDown   = *Off;
   gDisplayFileControl.ReverseImage = *On;
 /End-Free

Also, I don't like the differences between the way FunctionKeys and 
PageUpDown/ReverseImage is defined.  

I like the looks of this better:

d gDisplayFileControl...
d                 ds                  qualified
d  FunctionKeys                    24A   overlay(gDisplayFileControl : 1)
d     exit                           n     overlay(gDisplayFileControl : 3)
d     printList                      n     overlay(gDisplayFileControl : 5)
d     cancel                         n     overlay(gDisplayFileControl : 12)
d  PageUpDown                       2A   overlay(gDisplayFileControl : 25)
d     pagedown                       n     overlay(gDisplayFileControl : 25)
d     pageup                         n     overlay(gDisplayFileControl : 26)
d  ReverseImage                    10A   overlay(gDisplayFileControl : 51)
d     RI_Field1                      n     overlay(gDisplayFileControl : 51)
d     RI_Field2                      n     overlay(gDisplayFileControl : 52)
d     RI_Field3                      n     overlay(gDisplayFileControl : 53)
d     RI_Field4                      n     overlay(gDisplayFileControl : 54)
d     RI_Field5                      n     overlay(gDisplayFileControl : 55)
d     RI_Field6                      n     overlay(gDisplayFileControl : 56)
d     RI_Field7                      n     overlay(gDisplayFileControl : 57)
d     RI_Field8                      n     overlay(gDisplayFileControl : 58)
d     RI_Field9                      n     overlay(gDisplayFileControl : 59)
d     RI_Field10                     n     overlay(gDisplayFileControl : 60)

What does everybody think?  Any other Improvements?

Any way to clean it up, say defining the grouping fields implictly instead of 
explicitly?  I thought there might be, but as I looked at it I decided that it 
wasn't.

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121