Re: Field contents by reference?

On Tuesday 07 August 2001 12:06 pm, Fran Denoncourt wrote:
> I have two files: The first is a data base file, XXX, with many date
> fields. I would like to validate the contents of each specific date fields.
> The second file is an output file, XXXFIELDS, from a query over a file
> generated from DSPFFD. File XXXFIELDS has only four fields (file name,
> library, field name, field text). The query selects specific date fields to
> analyze. So, I would have XXX/Lib/Fld1/text; XXX/Lib/Fld2/text…..etc.
> Since there will be several files to analyze - each with several date
> fields - I wanted a more generic program with as little hardcoding as
> possible. The intent was to read a record from XXX then get all of the date
> field names from XXXFIELDS retrieving and analyzing the contents of each
> date field before going on to the next XXX record.
> Is there a way to get the contents of the date field using the field name
> retrieved from XXXFIELDS. There must be a way to reference the data.
> Pointers? %ADDR?
> Thanks again for your help.
> Fran Denoncourt

Hi Fran

Have a look at my CRTCSVDTA utility < http://www.dbg400.net/crtcsv.html > 
which does something similar. The program described input file is overridden 
to your chosen file, and the List Fields API is used to get details of the 
field offsets, data type, etc. The input record is substringed into the 
individual field values according to data type. It should give you a few 
pointers (bad pun intended ;-) on how you can get similar generic file 
handling for your requirements.

Regards, Martin
-- 
martin@dbg400.net / jamaro@firstlinux.net
http://www.dbg400.net  DBG/400 - DataBase Generation utilities 
Open Source test environment tools for the AS/400 / iSeries and 
miscellaneous database & spooled file management commands.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---