Re: Specifying Unique keys

first thing in the source member should have the keyword UNIQUE then just
specify your key fields as always.

Thanks,
Tommy Holden




From:
"lwl" <lwl@xxxxxxxxxxxxx>
To:
<rpg400-l@xxxxxxxxxxxx>
Date:
02/25/2009 01:21 PM
Subject:
Specifying Unique keys
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



To the list.



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
recorded 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