Sample COBOL Function › Sample Function Definition

Sample Function Definition

The following example illustrates an SQL-invoked function definition:

CREATE FUNCTION FIN.UDF_FUNBONUS
  ( F_EMP_ID                           DECIMAL(4)
  )
    RETURNS DECIMAL(10)
    EXTERNAL NAME FUNBONUS PROTOCOL IDMS
    DEFAULT DATABASE CURRENT
    USER MODE
    LOCAL WORK AREA 0
    ;