FieldProc

I used Kent Milligan's code to create an encryption program for a table.

I created the table using the create command:

CREATE TABLE CBLIB/PPINFO (PPLOAN NUMERIC ( 10, 0) NOT NULL, PPSEQ
NUMERIC ( 9, 0) NOT NULL, PPNAME CHARACTER ( 25) NOT NULL WITH
DEFAULT 'Checking', PPROUT CHARACTER ( 9) NOT NULL, PPACCT
CHARACTER ( 25) NOT NULL)
Table PPINFO in CBLIB created but was not journaled.


Then the alter table to set the fieldproc to my column.

alter table cblib/ppinfo alter column ppacct
set fieldproc cblib/ppencrypt
Field procedure on column returned SQLSTATE 1 1 1.

I get the above error for this one column which when prompted:
Additional Message Information

Message ID . . . . . . : SQL0681 Severity . . . . . . . : 10
Message type . . . . . : Diagnostic

Message . . . . : Field procedure on column ­­­­­­­­­­ returned SQLSTATE 1 1
1.
Cause . . . . . : Field procedure on column ­­­­­­­­­­ returned SQLSTATE 1 1
1. The associated message text is 1 1 1 2 2 2 2 2
2­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­Ç­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
More...
Press Enter to continue.

F3=Exit F6=Print F9=Display message details
F10=Display messages in job log F12=Cancel F21=Select assistance level


If I try to do the fieldproc on the PPROUT column:
Additional Message Information

Message ID . . . . . . : SQL0681 Severity . . . . . . . : 10
Message type . . . . . : Diagnostic

Message . . . . : Field procedure on column ­­­­­­­­­­ returned SQLSTATE 5 6
7.
Cause . . . . . : Field procedure on column ­­­­­­­­­­ returned SQLSTATE 5 6
7. The associated message text is
9­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­Ç
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­Ç­­­­­­­­­­­­
More...
Press Enter to continue.

F3=Exit F6=Print F9=Display message details
F10=Display messages in job log F12=Cancel F21=Select assistance level


I looked up the sql code and it is less than helpful:

SQL0681

Message Text:

Field procedure on column &1 returned SQLSTATE &5.

Cause Text:

Field procedure on column &1 returned SQLSTATE &5. The associated message text is &4.

Recovery Text:

Change the field procedure to return a valid SQLSTATE. Try the request again.

SQLCODE or SQLCODEs:

-681

SQLSTATE or SQLSTATEs:

23507




Can someone explain to me the steps I should take to make this work ?

Thanks,
CyndiB.
Boise