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


  1.  Home
  2. RPG400-L
  3. November 2004

RE: Is this possible and if so

That's probably it.
And I don't care if you use that code or not. :)
<tic>
I just have published those named-constents in my book (all 3 editions of
the RPG IV version and all 4 editions of the RPGIII version) in my weekly,
free newsletter and in the forum at www.rpgiv.com/forum as well as here. So
since I set up this /COPY page on mywebsite for just this kind of thing, why
should I cut/paste the code again and again if you're too lazy to go look at
it. <vbg> 
</tic>

-Bob

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Tuesday, November 30, 2004 4:10 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Is this possible and if so

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.


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