× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Just as a point of interest to everyone on the list: tinyurl is our friend. :) http://tinyurl.com/

Take a look. Its easy to use.:)


TinyURL was created!

The following URL:

http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.
jsp?topic=/rzakb/rzakbmsttduniqu.htm

has a length of 96 characters and resulted in the following TinyURL which has a length of 25 characters:

http://tinyurl.com/b5luh8


*
*
Terry Anderson wrote:
Check out the file level keyword UNIQUE at:
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/r
zakb/rzakbmsttduniqu.htm


Terry Anderson Programming Manager Citation Corporation Switchboard 1.251.867.5481 ext 212 Direct Line 1.251.809.2312 Fax 251.867.0525 Cell 1.251.363.4975

------------------------------

message: 7
date: Wed, 25 Feb 2009 13:36:18 -0600
from: "lwl" <lwl@xxxxxxxxxxxxx>
subject: Specifying Unique keys

To the list.



This posting is a duplication of one sent to RPG400-l. I couldn't determine
which list was the proper place to post questions regarding DB2 so I'm
posting to both.



Here's an example of a file DSS created using STRPDM:



0009.00 A R WHE5FR TEXT('UPGRADES')


0011.00 A USHPNO 6 0 TEXT('SHIPMENT')


0012.00 A ULINENUM 4 0 TEXT('SALES ORDER LINE
NUMBER')
0013.00 A UUPGTYPE 1 TEXT('UPGRADE TYPE+


0014.00 A 1 = BEFORE
PACKING+
0015.00 A 2 = WHILE
PACKING')
0016.00 A UUPGNAME 20 TEXT('UPGRADE NAME')


0017.00 A UUPGSTAT 1 TEXT('UPGRADE STATUS+


0018.00 A A = ACTIVE+


0019.00 A C = COMPLETE')


0020.00 A UUPGDTE 8 0 TEXT('FOLLOWUP/COMPLETED
DATE')


I want to establish the fields at lines 11 and 16 as unique keys - for any
record inserted in the file these 2 fields must be unique to the file.



Specifically what coding is required to make this happen?





Roy Luce

Systems Plus - Midwest



Direct: 847-540-9635

800-913-PLUS (7587)

Cell: 847-910-0884

Email: rluce@xxxxxxxxxxxxxxxxxxx





------------------------------
------------------------------------------------------------------------


No virus found in this incoming message.
Checked by AVG - www.avg.com Version: 8.0.237 / Virus Database: 270.11.3/1971 - Release Date: 02/25/09 06:40:00



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.