Re: Specifying Unique keys

[Booth Martin <booth@xxxxxxxxxxxx>]

You want to use the keyword UNIQUE of course, but you also need to 
specify your keys at the bottom of the dds:

   k USHPNO
   k ULINENUM

This also establishes the file as being presented in key order on your 
F-Specs (if you put a k in the F-Spec line, also) and you can set to the 
records by USHPNO or USHPNO/ULINENUM with setll/read or chain.


lwl wrote:
> 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
>
>  
>
>   
> ------------------------------------------------------------------------
>
>
> 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
>
>