× 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 to 3 is an 5P0 value.
1 to 5 is an 11P0 value.
1 to 6P6 is an 11P6 value.
6P6 is a 6P6 value.
If you want 6-packed, you need to do this:

6P6 or...
1  4P6  PACKEVEN
(Assuming you're using D specs)

-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 Ala, Michael A
Sent: Thursday, October 20, 2005 1:41 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: How are Packed Fields in an RPGIII DS Represented 

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 6
Or 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

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