RE: Iterate through the fields in an externally described datast ructure

Mark,

Your technique with the QUSLFLD API is correct... the only thing you need to
do is write routines that dynamically convert the extracted bytes to an
alphanumeric presentation in case it's not a character field.

Based on the additional information supplied by the API (data type, length,
decimals, ...) this is can be done (and isn't that hard to do neither).

Kind regards,
Paul

-----Original Message-----
From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com]
Sent: 11 April, 2002 22:42
To: rpg400-l@midrange.com
Subject: Iterate through the fields in an externally described data
structure


Hello all,

Here's one to chew on. Is there a way, preferably in RPGLE, to iterate
through the fields in an externally described data structure and display,
print, compare the values. Here's my problem.

I have a file with about 60 fields that needs  an audit when it's changed.
A perfect application for a trigger program. The problem is that they don't
want a copy of the entire record only the fields that have been changed.
I'd like a way to not have to change the trigger program if the database
changes so I want to systematically iterate through the fields in the
before and after buffer and compare the contents. If they are different,
write a record to an audit file. Sort of like the .fields collection in VB.

 I thought of using the output from a QUSLFLD API and comparing values as a
substring of the DS, but I think it would puke on Packed fields.

Any input would be appreciated.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


------------------------------------------------------------------------------
Notice: This e-mail message, together with any attachments, contains 
information of Merck & Co., Inc. (Whitehouse Station, New Jersey, USA) that may 
be confidential, proprietary copyrighted and/or legally privileged, and is 
intended solely for the use of the individual or entity named on this message.  
If you are not the intended recipient, and have received this message in error, 
please immediately return this by e-mail and then delete it.

==============================================================================