|
Herein lies the quandary with this method. CHECK(ER) and Enter return the same return code. To distinguish between the two, you'd have to use one of the methods explained earlier. Either check for your filed being changed, or use a CFXX key instead of ENTER to signal the program what to do. Thanks, Mark Mark D. Walter Senior Programmer/Analyst CCX, Inc. mwalter@xxxxxxxxxx http://www.ccxinc.com "Lim Hock-Chai" <Lim.Hock-Chai@ar ch.com> To Sent by: "RPG programming on the AS400 / rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx> midrange.com cc Subject 11/30/2004 02:16 RE: Is this possible and if so PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> I don't know. Does it? The method you shown below is the method that we use to determine function key pressed in our application. I don't recall it return a different hex code. -----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.
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.
midrange.com
