RE: RPG Indicators and *INKx?

[Jon Erickson <jerickson@xxxxxxx>]

That article as well as the code below are fine if you want to assign the
*INK(x) indicator to one of the numeric valued, (01-99), indicators via DSPF
defined  indicator keywords.  I believe the question can be expanded upon by
asking the following;

Is there a similar type of array for the *INK(x) indicators as there is *IN
or is *INK(x) a portion of *IN array that is addressable via Named
Indicators fashion?

Regards,
Jon A. Erickson
Sr. Programmer Analyst
800.COM Inc.
1516 NW Thurman St
Portland, OR  97209-2517

Direct: 503.944.3613
Fax: 503.944.3690
Web: http://800.com


-----Original Message-----
From: Gary Guthrie [mailto:GaryGuthrie@home.com]
Sent: Friday, February 11, 2000 6:49 AM
To: RPG400-L@midrange.com
Subject: Re: RPG Indicators and *INKx?


You must use CFxx(yy) type nomenclature to use named indicators in the
fashion you describe.

Gary Guthrie
Technical Editor, NEWS/400 and author of "Use Named Indicators with RPG
IV" (February 1997)



> Indicators can be Redefined as something easier to
> understand. Like.. example(s).
> 
> Ex 1)
> 
> D IndPtr               * INZ(%ADDR(*IN))
> D                     DS BASED(IndPtr)
> D F03Key        3 3
> D F05Key        5 5
> 
> or
> 
> Ex 2)
> 
> D F03Key    c     3
> D F05Key    c     5
> 
> My question is ......
> 
> What about the *INKx used in an RPG Program?
> 
> The DDS is defined as
> A              CF03
> not like.. 
> A              CF03(03)
>
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---