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



Thank you Michael. You have earned a day off now.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Michael_Schutte@xxxxxxxxxxxx
Sent: Tuesday, October 02, 2007 9:04 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Help with Function Keys in a subfile

Well there's your major problem... there is no *INKO


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
"The Secret's the Sauce! Enjoy our new Bob-B-Q Pulled Pork Knife & Fork
Sandwich!"


rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/02/2007 09:22:03 AM:

One suggestion I have Jason is that you avoid using the *INKx function
key
names. That's just a personal opinion but I hate having to debug a
program
and sit there and go

"Hmm...let's see...this program uses *INKO here so what is that? Let's
see
that's *IN01=*INKA, *IN02=*INKB, *IN03=*INKC, *IN10=*INKJ...*INKM=*IN13,
*INKN=*INK14...OK. *INKO = *IN15".

All that just so I can figure out which actual function key the user
pressed.

I personally use only numbered indicators when it is necessary to use
them
at all, such as in a display file.




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Jason Cawood
Sent: Monday, October 01, 2007 11:32 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Help with Function Keys in a subfile

I'm working on my first subfile program and I'm having trouble with
the *inkl indicator not setting it to *off.

I've only been working with RPGIV for a little over a year now and
have learned a lot from the posts all of you have left.

Here is the section I'm having trouble with.

C @getord begsr
...
C DoW *inkf = *off
C and *inkc = *off
C and *inkl = *off

C Write Footer
C ExFmt SUBCTL

C EndDo

C If *inkf = *on
C Eval *inkf = *off
C EXSR @ChkChg
C EndIf

C ENDsr
*--------------------------------------------*
C @ChkChg BegSR
...
C If *inkl = *on
C Eval *inkl = *off
C Exsr @getord
C EndIf
...
C ENDsr





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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.