Re: Using QADSPJR3

[rob@xxxxxxxxx]

Use SQL instead of 'traditional' rpg and only select the fields, or 
substrings of fields, you want.  And if IBM adds a field in the future you 
won't get a record format level check.

Or you can look at the API's and use that instead of outfiles.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Jeff Markel <JMarkel@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/20/2004 04:37 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'Midrange RPG/400 mailing list'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Using QADSPJR3






I am trying to use the IBM QADSPJR3 file (DSPJRN/*outfile
OUTFILFMT(*TYPE3)/record format QJORDJE3) in my RPGLE program. The F-spec 
in
my program uses QADSPJR3,  with override EXTFILE to an existing file. This
existing file was created using the DSPJRN (*outfile mode) command for the
specific file being journaled. Having used *outfiles mostly for CLP RCVF
operations, I wasn't expecting a field size problem. However, JOESD in the
template occupies bytes 222 thru 323, the "actual" occupies bytes 222 thru
1194. Makes sense, and of course the program blows up. However, I was 
hoping
to use the IBM template file to assure that we didn't miss any changes IBM
might make to the operating system in the future. I guess I could 
internally
define the file. That's messy (and would subject me to peer abuse!) Does
anyone know of a way around this?

TIA!


Jeff Markel
Developer, Information Access
IBM Certified Specialist - iSeries RPG IV Developer
Costco Wholesale Corporate Office
Issaquah, Washington


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