|
We have a file which our application uses to store reference information which can be maintained by users rather than hard-coding in programs. The file has a key and a generic field of 256 characters which can be mapped into any format required. Each key will have its own layout. The mapping is achieved by having another file which holds the layout of this field, with one record for every field defining it's start and end position within the 256 bytes. The 256 byte field also has a DS declared which provides an object reference to this layout. This is used extensively in RPG programs to enable the reference information to be mapped to individual fields. I am writing some software to e-mail the reference information for specific keys. I am using SQL to create the extract file as follows for our postcode reference data (=US Zip Code): create table qtemp/ed971 as (select * from $postcode) with no data This works fine. This new table is now defined as having the same structure as the $POSTCODE DS. My problem now is, how do I get the 256 byte field into the individual table fields? In RPG a simple move to the DS would map the values, but I'm at a loss to work out how to achieve the same thing in SQL. Using SELECT with substrings is no good because that requires knowledge of the individual field posisions. The INSERT INTO qtemp/ed971 statement seems to require data to be referenced at the field level. Any advice gratefully acknowledged. ********************************************************************************************************* 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 *********************************************************************************************************
As an Amazon Associate we earn from qualifying purchases.
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.