|
same after a chain... ----- Original Message ----- From: "Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx> Sent: Thursday, January 27, 2005 3:41 PM Subject: RE: Position 369 (contains hex value of function key pressed)inINFDSworkstation file - Should it change with programchainto subfile? > That is correct. My question is more about after the read or exfmt, if the program do a chain to a subfile, should the value change? For example: > > FMYDSPF CF E WORKSTN INFDS(infdsMYDSPF) > F SFILE(MYSF :SFRR#) > D infdsMYDSPF DS > D dfkey 369 369 > > C exfmt MYSFCTL > * let said user pressed F22 ==> dfKey is now x'BA' > C SFRR# chain(e) MYSF > * Should above chain to subfile change the value of dfKey? > > ----- > My testing is showing that the value of dfKey got changed to x'00' after the chain to subfile. I've been using this method to check command key for quite a while now and can't recall that ever happen before. > > > > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Richard ECUYER > Sent: Thursday, January 27, 2005 2:54 AM > To: RPG programming on the AS400 / iSeries > Subject: Re: Position 369 (contains hex value of function key pressed) > inINFDSworkstation file - Should it change with program chainto subfile? > > > the hex value is in the ds (associated with your dspf) and is only changed > after a read or exfmt. > ----- Original Message ----- > From: "Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx> > To: <rpg400-l@xxxxxxxxxxxx> > Sent: Wednesday, January 26, 2005 11:15 PM > Subject: Position 369 (contains hex value of function key pressed) in > INFDSworkstation file - Should it change with program chain to subfile? > > > Just want to make sure: > > When program gets control back after user pressed a function key, should the > hex values that represent the function key pressed changed when some way in > the program it does a chain to a subfile record format? > > -- > 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.