Re: QUSLFLD API and DSPFFD REFFLD Reference Field and file

Andre,

You are right, that QDBRTVFD is not a list API but similar to DSPFD. That makes 
it a bit more difficult to gather the information you need. The format FLDA0200 
(FLDA = field attributes) that I mentioned is a home made format that I 
introduced to my service program to make it work similar to QUSLFLD. Internally 
I call QDBRTVFD using format FILD0200.

 > Nothing about the fields except for record format level information like
 > key fields, select/omits, join fields etc...

That is not right. The "Format Definition Header" of format FILD0200 contains 
the number of fields of the file. The "Field Header" is an array containing one 
element per field. It contains basic field information and the offset to the 
"Reference Information". So with some effort you can retrieve the same 
information (and more) provided by QUSLFLD.

 > Thanks for your offer but, no offense intended, we would rather write
 > something ourselves rather than installing a service program.

Of course I do not mind your decision. I also prefer doing things on my own, 
since then I better understand how things fit together. I just intended to save 
you time with the service program (shipped as source code).

Regards,

Thomas Raddatz.

Andre Dubreuil schrieb:
> Hi Thomas,
> Thanks for your reply.
>  
> Although there's something I'm not getting.
> I've looked and worked witth the QDBRTVFD API and I haven't seen anywhere anything about the FLDA0200 format.
>  
> My impression is that QDBRTVFD is more like what the DSPFD would bring back.
>  
> The 4 different format allowed are
> FILD0100File definition templateFILD0200Format definition templateFILD0300Key field information templateFILD0400Trigger information template
>  
> Nothing about the fields except for record format level information like key fields, select/omits, join fields etc...
>  
> Thanks for your offer but, no offense intended, we would rather write something ourselves rather than installing a service program.
>  
> Thank you.
> Andre 
> 
> Thomas Raddatz <[email protected]> wrote:
> Andre,
> 
> For what I know QUSLFLD does not return any field reference information. Instead 
> of QUSLFLD you may consider to use the "Retrieve Database File Description" 
> (QDBRTVFD) API.
> 
> Some times ago I wrote a service program to retrieve field attributes of a given 
> field from a given file. It uses the QDBRTVFD API. The service program can 
> retrieve field attributes of a specific field or it can spin through all fields 
> of a given file using "cFLDDCT_FLD_FIRST" and "cFLDDCT_FLD_NEXT" special values.
> 
> This is the information returned by the service program:
> 
> *===============================================================*
> * QDBRTVFD API - FLDA0200 *
> * ============================================================= *
> D flda0200_t...
> D DS qualified
> * File name
> D file 10A
> * Library name
> D lib 10A
> * Field name
> D name 10A
> * Data type
> D type 1A
> * Use
> D use 1A
> * Output buffer position
> D outBufPos 10I 0
> * Input buffer position
> D inBufPos 10I 0
> * Field length in bytes
> D length 10I 0
> * Digits
> D digits 10I 0
> * Decimal position
> D decPos 10I 0
> * Field text description
> D text 50A
> * Edit code
> D edtC 2A
> * Edit word length
> D edtWLen 9B 0
> * Edit word
> D edtW 64A
> * Column heading 1
> D colHdg1 20A
> * Column heading 2
> D colHdg2 20A
> * Column heading 3
> D colHdg3 20A
> * Date and time format
> D datTimFmt 4A
> * Date and time separator
> D datTimSep 1A
> *
> * Additional fields of format FLDA0200
> * Reference file name
> D refFile 10A
> * Reference library name
> D refLib 10A
> * Reference record format name
> D refFmt 10A
> * Reference field name
> D refFld 10A
> *
> 
> 
> Let me know if you want a copy of it.
> 
> Thomas Raddatz.
> 
> Andre Dubreuil schrieb:
> 
>>Hello Everyone,
>>
>>I need the help of a Guru.
>>
>>I have a program that uses QUSLFLD. No problem with using this API.
>>
>>Where the problem lies is that I am now trying to use it to retrieve the 
>>reference field and reference file information.
>>
>>It seems that this information is not returned by the QUSLFLD API whether you 
>>specify the format FLDL0100, FLDL0200 or FLDL0300
>>
>>What API Can use to find this information (reference file and reference field)?
>>
>>Please, 
>>The utilisation of QSYS/QADBIFLD and/or DSPFFD OUTPUT(*OUTFILE) is not an 
>>option.
>>
>>Best Regards,
>>Andre Dubreuil
>>andredub-/[email protected]
>>
>>
>>
>>
>>---------------------------------
>>Visit my eBay store: Andredub's Collectibles
>>http://stores.ebay.com/andredub?refid=store
>>
>>_______________________________________________
>>This is the Open Source Software for the AS400/iSeries (OSS400) mailing list
>>To post a message email: OSS400-Zwy7GipZuJhWk0Htik3J/[email protected]
>>To subscribe, unsubscribe, or change list options,
>>visit: http://lists.midrange.com/mailman/listinfo/oss400
>>or email: OSS400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
>>Before posting, please take a moment to review the archives
>>at http://archive.midrange.com/oss400.
>>
> 
> 
> _______________________________________________
> This is the Open Source Software for the AS400/iSeries (OSS400) mailing list
> To post a message email: OSS400-Zwy7GipZuJhWk0Htik3J/[email protected]
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/oss400
> or email: OSS400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/oss400.
> 
> 
> 
> ---------------------------------
> Visit my eBay store: Andredub's Collectibles
> http://stores.ebay.com/andredub?refid=store
> 
> _______________________________________________
> This is the Open Source Software for the AS400/iSeries (OSS400) mailing list
> To post a message email: OSS400-Zwy7GipZuJhWk0Htik3J/[email protected]
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/oss400
> or email: OSS400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/oss400.
> 

_______________________________________________
This is the Open Source Software for the AS400/iSeries (OSS400) mailing list
To post a message email: OSS400-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/oss400
or email: OSS400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/oss400.