Re: RPG Free Format question

Add the following line to your DS:
 RI_Field1_5                                     5A Overlay(gDisplayFileControl 
: 51)
 
 
Clear RI_Field1_5;


Andy Hautamaki <ahautamaki@xxxxxxxxxxxxxxx> wrote:
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" 
To: 
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.
>
>