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

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Andy Hautamaki
Gesendet: Freitag, 24. Juni 2005 12:52
An: RPG programming on the AS400 / iSeries
Betreff: Re: RPG Free Format question


How would you 'clear' 'setoff' a block of indicators in a INDDS?

Building on the example;

d gDisplayFileControl...
d                 ds                  qualified
d  exit                           n   overlay(gDisplayFileControl : 3)
d  printList                      n   overlay(gDisplayFileControl : 5)
d  cancel                         n   overlay(gDisplayFileControl : 12)
d  pagedown                       n   overlay(gDisplayFileControl : 25)
d  pageup                         n   overlay(gDisplayFileControl : 26)
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)


Say you want to do a

RI_Field1 = *off;
RI_Field2 = *off;
RI_Field3 = *off;
RI_Field4 = *off;
RI_Field5 = *off;

Would it be a;

%subst(gDisplayFileControl:51:5) = *off;



Or is there a better way to do this?

 Thanks
Andy
----- Original Message -----
From: "Barbara Morris" <bmorris@xxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, June 23, 2005 5:00 PM
Subject: Re: RPG Free Format question


> "Wilt, Charles" wrote:
>> d gDisplayFileControl...
>> d                 ds                  qualified
>> d  exit                   3      3n
>> d  printList              5      5n
>> d  cancel                12     12n
>> d  pagedown              25     25n
>> d  pageup                26     26n
>>
>
> An alternative way of defining an INDDS that's slightly less error prone
> since you only code the position once:
>
> d gDisplayFileControl...
> d                 ds                  qualified
> d  exit                           n   overlay(gDisplayFileControl : 3)
> d  printList                      n   overlay(gDisplayFileControl : 5)
> d  cancel                         n   overlay(gDisplayFileControl : 12)
> d  pagedown                       n   overlay(gDisplayFileControl : 25)
> d  pageup                         n   overlay(gDisplayFileControl : 26)
>
> --
> 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.
>
>

--
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.