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

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.