*DECK CHNGEPT 
          IDENT  CHNGEPT
**
*     ENTRY POINTS FOR CDCS.  THEY ARE RENAMED SO THAT LOADER DOESN"T 
*     USE THEM INSTEAD OF THE ORIGINAL ONES IN CDCS.
* 
* 
          ENTRY  DB.CLS      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$CLS 
 DB.CLS   DATA   0
          RJ     DB$CLS      CLOSE CDCS FILES 
          EQ     DB.CLS 
* 
          ENTRY  DB.DBST     DEFINES NEW ENTRY POINT NAME 
          EXT    DB$DBST
 DB.DBST  DATA   0
          RJ     DB$DBST     DATABASE STATUS
          EQ     DB.DBST
* 
          ENTRY  DB.DEL      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$DEL 
 DB.DEL   DATA   0
          RJ     DB$DEL      DELETE RECORD
          EQ     DB.DEL 
* 
          ENTRY  DB.END      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$END 
 DB.END   DATA   0
          RJ     DB$END      CDCS TERMINATE 
          EQ     DB.END 
* 
          ENTRY  DB.INQV     DEFINES NEW ENTRY POINT NAME 
          EXT    DB$INQV
 DB.INQV  DATA   0
          SA2    INQV        SEE IF DB$INQV IS SATISFIED EXTERNAL 
          LX2    12          THIS BIT IS SET IF UNSATISFIED 
          NG     X2,INQERR
 INQV     RJ     DB$INQV     CDCS REAL TIME INVOKE
          EQ     DB.INQV
 INQERR   SA2    ERRNO       CDCS NOT AVAILABLE 
          BX6    X2 
          SA2    =XDBSTAT 
          SA6    X2          SET ERROR AND CONTINUE 
          EQ     DB.INQV
* 
 ERRNO    DATA   605B 
* 
          ENTRY  DB.INVV     DEFINES NEW ENTRY POINT NAME 
          EXT    DB$INVV
 DB.INVV  DATA   0
          SA2    INVV        SEE IF DB$INVV IS SATISFIED EXTERNAL 
          LX2    12          THIS BIT IS SET IF UNSATISFIED 
          NG     X2,INVERR
 INVV     RJ     DB$INVV     CDCS BATCH MODE INVOKE 
          EQ     DB.INVV
 INVERR   SA2    ERRNO       CDCS NOT AVAILABLE 
          BX6    X2 
          SA2    =XDBSTAT 
          SA6    X2          SET ERROR AND CONTINUE 
          EQ     DB.INVV
* 
          ENTRY  DB.OPN      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$OPN 
 DB.OPN   DATA   0
          RJ     DB$OPN      OPEN CDCS FILES
          EQ     DB.OPN 
* 
          ENTRY  DB.PVC      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$PVC 
 DB.PVC   DATA   0
          RJ     DB$PVC      CDCS PRIVACY 
          EQ     DB.PVC 
* 
          ENTRY  DB.RDX1     DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RDX1
 DB.RDX1  DATA   0
          RJ     DB$RDX1     READ SEQUENTIAL ON INDEX FILE
          EQ     DB.RDX1
* 
          ENTRY  DB.RD1      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RD1 
 DB.RD1   DATA   0
          RJ     DB$RD1      SEQUENTIAL READ
          EQ     DB.RD1 
* 
          ENTRY  DB.RD2      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RD2 
 DB.RD2   DATA   0
          RJ     DB$RD2      RANDOM READ
          EQ     DB.RD2 
* 
          ENTRY  DB.REL      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$REL 
 DB.REL   DATA   0
          RJ     DB$REL      RANDOM READ ON RELATION
          EQ     DB.REL 
* 
          ENTRY  DB.RELS     DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RELS
 DB.RELS  DATA   0
          RJ     DB$RELS     SEQUENTIAL READ ON RELATION
          EQ     DB.RELS
* 
          ENTRY  DB.REW      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$REW 
 DB.REW   DATA   0
          RJ     DB$REW      REWRITE
          EQ     DB.REW 
* 
          ENTRY  DB.RPT      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RPT 
 DB.RPT   DATA   0
          RJ     DB$RPT      RECOVERY POINT 
          EQ     DB.RPT 
* 
          ENTRY  DB.RWF      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RWF 
 DB.RWF   DATA   0
          RJ     DB$RWF      REWIND AREA FILE 
          EQ     DB.RWF 
* 
          ENTRY  DB.RWR      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RWR 
 DB.RWR   DATA   0
          RJ     DB$RWR      REWIND RELATION
          EQ     DB.RWR 
* 
          ENTRY  DB.RWX      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$RWX 
 DB.RWX   DATA   0
          RJ     DB$RWX      REWIND INDEX FILE
          EQ     DB.RWX 
* 
          ENTRY  DB.SKF      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$SKF 
 DB.SKF   DATA   0
          RJ     DB$SKF      SKIP ON AREA FILE
          EQ     DB.SKF 
* 
          ENTRY  DB.STR      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$STR 
 DB.STR   DATA   0
          RJ     DB$STR      START
          EQ     DB.STR 
* 
          ENTRY  DB.STX      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$STX 
 DB.STX   DATA   0
          RJ     DB$STX      START ON INDEX FILE
          EQ     DB.STX 
* 
          ENTRY  DB.WR2      DEFINES NEW ENTRY POINT NAME 
          EXT    DB$WR2 
 DB.WR2   DATA   0
          RJ     DB$WR2      WRITE RANDOM 
          EQ     DB.WR2 
          END 
