RE: Another FieldProc question

You're right. I think section 3.5 is full of excrement. From Run SQL
scripts

create table rob.employee (
Name char(30),
ssn char(11))
rcdfmt employeer
;
CREATE MASK SSN_MASK ON rob.EMPLOYEE
FOR COLUMN SSN RETURN
CASE
WHEN (current user = 'ROB')
THEN SSN
WHEN (current user = 'DUMMY1')
THEN 'XXX-XX-' || SUBSTR(SSN,8,4)
ELSE NULL
END
ENABLE;

ALTER TABLE ROB.EMPLOYEE
ACTIVATE COLUMN ACCESS CONTROL;

INSERT INTO ROB.EMPLOYEE
VALUES ('ROB', '123-45-6789');

SELECT * FROM ROB.EMPLOYEE;

CL: CRTUSRPRF DUMMY1 PASSWORD(DUMMY1);
COMMIT;

Now sign on to a 5250 session as DUMMY1

SELECT * FROM ROB.EMPLOYEE
....+....1....+....2....+....3....+....4...
NAME SSN
ROB XXX-XX-6789
******** End of data ********

UPDATE ROB.EMPLOYEE
SET SSN='234-56-7891'
WHERE NAME='ROB'
1 rows updated in EMPLOYEE in ROB.

SELECT * FROM ROB.EMPLOYEE
....+....1....+....2....+....3....+....4...
NAME SSN
ROB XXX-XX-7891
******** End of data ********



Rob Berendt