Re: Censoring SQL access -- ideas?

[rob@xxxxxxxxx]

CREATE UNIQUE INDEX ROB/rcoi01 
ON ROB/RCO (CMPNY) 
where crsts='A' 
RCDFMT RCOI01R 
  ADD CMPNAM,CAGD1 

Doesn't that cover a vast bulk of the LF's that you've seen?

DSPFFD ROB/RCOI01
Record Format Information 
  Record format . . . . . . . . . . . . . . . :  RCOI01R
  Number of fields  . . . . . . . . . . . . . :      3
Field Level Information  
            Data        Field  Buffer    Buffer        Field    Column  
 Field      Type       Length  Length  Position        Usage    Heading  
 CMPNY      PACKED       2  0       2         1        Both     Cmp  
                                                                Nbr  
   Field text  . . . . . . . . . . . . . . . :  Company Number  
   Editing Information  
     Edit code . . . . . . . . . . . . . . . :  X  
 CMPNAM     Open           30      30         3        Both     Company 
Name
   Field text  . . . . . . . . . . . . . . . :  Company Name  
   Coded Character Set Identifier  . . . . . :    937  
 CAGD1      PACKED       8  0       5        33        Both     A/P/Aging  

                                                                Dates  
                                                                Array 01  
   Field text  . . . . . . . . . . . . . . . :  A/P Aging Dates Array - 01 
 
   Editing Information  
     Edit word . . . . . . . . . . . . . . . :  
       '  0 /  /  '  

It did NOT allow me to use UDF's, a simple CAST, or rename of the columns 
in the RCDFMT clause.  IOW I could not use any of the following
...
CMPNAM as COMPNYNAME
CAST ('91' CONCAT TRIM(CMPHNE) AS CHAR(27)) AS PHONE
'91' CONCAT TRIM(CMPHNE)
NUMTODATE(CAGD1)
You still have to use a view for those.

Rob Berendt