× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: RPG Indicators and *INKx?
  • From: Jon Erickson <jerickson@xxxxxxx>
  • Date: Fri, 11 Feb 2000 09:09:29 -0800

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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.