*COMDECK DB$FUNC
# 
*     COMMON DB$FUNC -- TABLE INDEXED BY FUNCTION CODE TO GIVE
*                       DISPLAY CODE NAME FOR FUNCTION. 
# 
      COMMON DB$FUNC; 
      BEGIN 
      ARRAY [DFFUNCMAX] S(1); 
        BEGIN 
  
        ITEM FUNCODE C(0,0,10)=[DFFUNCMAX("UNDEFINED"),"UNDEFINED"];
        ITEM DUM1 C(DFRD2,0,10) = ["RAN-READ"]; 
        ITEM DUM2 C(DFRD1,0,10) = ["SEQ-READ"]; 
        ITEM DUM3 C(DFWR2,0,10) = ["WRITE"];
        ITEM DUM4 C(DFSKF,0,10) = ["SKIP"]; 
        ITEM DUM5 C(DFREW,0,10) = ["REWRITE"];
        ITEM DUM6 C(DFDEL,0,10) = ["DELETE"]; 
        ITEM DUM7 C(DFSIR,0,10) = ["IM-RETURN"];
        ITEM DUM8 C(DFOPN,0,10) = ["OPEN"]; 
        ITEM DUM9 C(DFCLS,0,10) = ["CLOSE"];
        ITEM DUM10 C(DFSTX,0,10) = ["START-INDX"];
        ITEM DUM11 C(DFINV,0,10) = ["INVOKE"];
        ITEM DUM12 C(DFSTR,0,10) = ["START"]; 
        ITEM DUM13 C(DFEND,0,10) = ["END"]; 
        ITEM DUM14 C(DFTIM,0,10) = ["TIME"];
        ITEM DUM15 C(DFTER,0,10) = ["ABORT"]; 
        ITEM DUM16 C(DFREL,0,10) = ["REL-READ"];
        ITEM DUM17 C(DFRLS,0,10) = ["REL-NEXT"];
        ITEM DUM18 C(DFRPT,0,10) = ["RECVR-PNT"]; 
        ITEM DUM19 C(DFPVC,0,10) = ["PRIVACY"]; 
        ITEM DUM20 C(DFLOK,0,10) = ["LOCK"];
        ITEM DUM21 C(DFULK,0,10) = ["UNLOCK"];
        ITEM DUM22 C(DFRSR,0,10) = ["REL-START"]; 
        ITEM DUM23 C(DFDBS,0,10) = ["DBST"];
        ITEM DUM24 C(DFRX2,0,10) = ["RAN-READ-I"];
        ITEM DUM25 C(DFRX1,0,10) = ["SEQ-READ-I"];
        ITEM DUM26 C(DFRWX,0,10) = ["REWND-INDX"];
        ITEM DUM27 C(DFRWF,0,10) = ["REWND-AREA"];
        ITEM DUM28 C(DFRWR,0,10) = ["REWND-REL"]; 
        ITEM DUM29 C(DFVER,0,10) = ["VERSION"]; 
        ITEM DUM30 C(DFBEG,0,10) = ["BEGIN"]; 
        ITEM DUM31 C(DFCMT,0,10) = ["COMMIT"];
        ITEM DUM32 C(DFDRP,0,10) = ["DROP"];
        ITEM DUM33 C(DFASK,0,10) = ["ASK"]; 
        ITEM DUM34 C(DFGID,0,10) = ["GET-ID"];
        ITEM DUM35 C(DFLKA,0,10) = ["LOCK-AREA"]; 
        END 
      END 
