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.