|
midrange.com
* Jerry C. Adams
*iSeries/i5 Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
615.893.8633x152
fax
615.995.1201
email
jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
Ala, Michael A wrote:
Packed decimal represents two [2] numbers in a single byte - with the exception of the rightmost byte in which the digit portion of said byte is reserved for the sign (+/-: F or D). So to calculate how many digits a packed field can contain multiple its length and subtract 1. In this case (6 x 2) - 1 = 11. The precision (decimal points) does not factor into the calculation; therefore, this translates to 11P 6.I have a Packed field that is in a data structure the Field is 6 positions all 6 being decimal represented in RPG IV as 6P 6 But in RPG III is it P 1 6 6Or would this be considered a 9 position with 6 decimal
If I try to key in P 1 3 6 I get a syntax error in SEU That the Decimal Portion is greater than the Field Length
(3 x 2) - 1 = 5
Thanks in Advance Mike -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rpg400-l-request@xxxxxxxxxxxx Sent: Thursday, October 20, 2005 12:49 PM To: rpg400-l@xxxxxxxxxxxx Subject: RPG400-L Digest, Vol 4, Issue 1242 Send RPG400-L mailing list submissions to rpg400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@xxxxxxxxxxxx You can reach the person managing the list at rpg400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." *** NOTE: When replying to this digest message, PLEASE remove all text unrelated to your reply and change the subject line so it is meaningful. Today's Topics: 1. Re: %KDS (Yivi) 2. RE: %KDS (Bob Cozzi) 3. RE: Journal APIs (Bob Cozzi) 4. Re: Finding where an escape message came from (Paul Morgan) 5. Re: INCT API (rob@xxxxxxxxx) 6. RE: Finding where an escape message came from (Weber, Richard) 7. long running SQL RPG pgm (Jeff Young) 8. RE: long running SQL RPG pgm (Matt.Haas@xxxxxxxxxxx) 9. Re: Journal APIs (Tony Carolla) ---------------------------------------------------------------------- message: 1 date: Thu, 20 Oct 2005 12:56:23 +0200 from: Yivi <nardus@xxxxxxxxx> subject: Re: %KDS Well, "chain/delete/reade/etc *'search-arg'* 'file|record'", with *search-a*rg being a composite key defined without a KLIST is only supported in free-format, right? How would you use it in fixed format anyway? Maybe I am missing something, but it can see why would I want to use %KDS in fixed format. Then again, I normally don't like to use fixed format at all. Regards, I.- ------------------------------ message: 2 date: Thu, 20 Oct 2005 07:40:22 -0500 from: "Bob Cozzi" <cozzi@xxxxxxxxx> subject: RE: %KDS Unfortunately, built-in functions are not support in Factor 1, Factor 2 and the Result field. Granted %KDS and %FIELDS are not strictly built-in functions but more like Opcode Parameter Keywords, nonetheless they syntax of RPG IV does not permit them to be used in fixed-format. -Bob Cozzi www.RPGxTools.com RPG xTools - Enjoy programming again. -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Pantzopoulos - (H/O) Sent: Wednesday, October 19, 2005 10:21 PM To: rpg400-l@xxxxxxxxxxxx Subject: %KDS Is there any reason why the %KDS can only be used in a /FREE (free-form) block? Is this IBM's way of leading us gently down the path of free-form RPG? Other BIFs seem to function happily in fixed format code. Is there something special about %KDS? Thanks. Mike Pantzopoulos EIG-Ansvar Limited Tel : 61 (3) 9614 3535 Fax: 61 (3) 9614 2740 **************************************************************************** ***************************** This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed.If you are not the intended recipient, any use, disclosure or copying of this message is unauthorised. If you have received this message in error, please reply using the sender's email address. This footnote confirms that this email message has been scanned for computer viruses. EIG-Ansvar Limited does not accept liability for any loss or damage, whether caused by our own negligence or not, that results from a computer virus or defect in the transmission of this email or any attached file.EIG-Ansvar Limited - Australia (A.B.N. 21 007 216 506) Email : insure@xxxxxxxxxxxxxxxx Eig-Ansvar Limited - New Zealand Email : insure@xxxxxxxxxxxxxxxx **************************************************************************** ***************************** -- 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. ------------------------------ message: 3 date: Thu, 20 Oct 2005 07:57:55 -0500 from: "Bob Cozzi" <cozzi@xxxxxxxxx> subject: RE: Journal APIs Tony, In the RPGLAB, there is this prototype: D QjoRtvJournalEntries... D PR ExtProc('QjoRetrieveJournalEntries') D szRtnBuffer 65535A OPTIONS(*VARSIZE) D nBufLen 10I 0 Const D JrnName 20A Const D szAPIFmt 8A Const D szJrnEntQry 32766A Const OPTIONS(*OMIT) D api_Error Like(xt_QUSEC) OPTIONS(*OMIT) The szRtnBuffer and szJrnEntQry are the ones where you pass a data structure needed for your specific return results. -Bob Cozzi www.RPGxTools.com RPG xTools - Enjoy programming again. -----Original Message----- From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx [mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of Tony Carolla Sent: Wednesday, October 19, 2005 6:51 PM To: RPG programming on the AS400 / iSeries Subject: Journal APIs I am working on writing a program to retrieve journal entries, and store them in a 'change history' file, for inquiry. I started reading about the QjoRetrieveJournalEntries() API, and I am wondering if anybody has created a prototype. I looked at the one in QSYSINC, and it seems to be a bunch of DS's, and a CONST specifying the name QjoRetrieveJournalEntries. Also, if you have an example you have created, I would be mucho grateful. I know how to use the DSPJRN CL command, but I thought I might make it neater than outputting to a file in QTEMP, reading through the file, repeat for each library, etc. -- "Enter any 11-digit prime number to continue..." "In Hebrew SQL, how do you use right() and left()?..." - Random Thought "If all you have is a hammer, all your problems begin to look like nails"
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.
