|
midrange.com
Ok I checked, is this it?
D AUTENT C CONST(X'3F')
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
rob@xxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/30/2004 05:03 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc
Subject
RE: Is this possible and if so
You tease! Instead of pasting the value of the aid byte that is different
for check(er) than enter (if there is one) you're trying to get me to look
at your code. :-)
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
"Bob Cozzi" <cozzi@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/30/2004 03:24 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc
Subject
RE: Is this possible and if so
If you go look at the free downloads at www.rpgiv.com/downloads you'll see
the /COPY member for the Fn Keys' Attention Identification Byte. All are
included in this member.
-Bob
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Tuesday, November 30, 2004 12:50 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Is this possible and if so
Does check(er) return a different status code than enter?
***************************************************************************
* File Information Data Structure *
* To use, use the following keyword on your 'F' spec (usually for dspf):
*
* InfDS(FileInfDS) *
* For subsequent infds, use the following (Fil1 or Prt1) as: *
* D Fil1 DS LikeDS(FileInfDS) *
***************************************************************************
D FileInfDS DS
* File Feedback Information
D FilName 83 92
D OpenInd 9 9N
D EOFInd 10 10N
D FilSts 11 15S 0
D OpCode 16 21
D RPGRtn 22 29
D SrcLin 30 37
D SpclSts 38 42S 0
D RcdFmt 261 270
D FilMsgID 46 52
D ScnSize 67 70S 0
D KybdTyp 71 72S 0
D DspTyp 73 74S 0
D FilMode 75 76S 0
* Database Specific Feedback Information
D FRRN 397 400I 0
* Printer Specific Feedback Information
D OflLin 188 189I 0
D CurLin 367 368I 0
* Display Specific Feedback Information
D CFKey 369 369
D Csr_Row 370 370
D Csr_Col 371 371
D SRRN 376 377I 0
D MinSRRN 378 379I 0
D MaxSRRN 380 381I 0
* Used to check for command function keys
* Sample use: C If CFKey = F03
D F01 C CONST(X'31')
D F02 C CONST(X'32')
D F03 C CONST(X'33')
D F04 C CONST(X'34')
D F05 C CONST(X'35')
D F06 C CONST(X'36')
D F07 C CONST(X'37')
D F08 C CONST(X'38')
D F09 C CONST(X'39')
D F10 C CONST(X'3A')
D F11 C CONST(X'3B')
D F12 C CONST(X'3C')
D F13 C CONST(X'B1')
D F14 C CONST(X'B2')
D F15 C CONST(X'B3')
D F16 C CONST(X'B4')
D F17 C CONST(X'B5')
D F18 C CONST(X'B6')
D F19 C CONST(X'B7')
D F20 C CONST(X'B8')
D F21 C CONST(X'B9')
D F22 C CONST(X'BA')
D F23 C CONST(X'BB')
D F24 C CONST(X'BC')
D FCLEAR C CONST(X'BD')
D FENTER C CONST(X'F1')
D FHELP C CONST(X'F3')
D FROLLD C CONST(X'F4')
D FPAGEU C CONST(X'F4')
D FROLLU C CONST(X'F5')
D FPAGED C CONST(X'F5')
D FPRINT C CONST(X'F6')
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/30/2004 11:32 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc
Subject
RE: Is this possible and if so
This is one of those easy say than done thing. CHECK(ER) is essentially
equal to user key something on the field and press enter. Because of the
enter key got activated, you program gets control back, which you could
then populate the description field. Easy right. Well, it depends on the
application. You will need to do some tweaking to differential between
regular enter and CHECK(ER) enter if your application is doing some
editing or go to the next process when user press enter.
Some of the tricks to do that are:
1) Using CHANGE keyword.
2) Save the before image of the field and compare to see if the value has
been changed.
3) User cursor position.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
MWalter@xxxxxxxxxxxxxxx
Sent: Tuesday, November 30, 2004 10:05 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Is this possible and if so
You'll want to look at the CHECK(ER) keyword for your DDS.
Thanks,
--
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.
--
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 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.
