*DECK DB$CEDP 
          IDENT  DB$CEDP
*#
* *   DB$CEDP - CALL ITEM LEVEL ON ERROR DBP"S   PAGE  1
* *   J E ESLER                                  DATE  03/22/77 
* 
* DC  PURPOSE 
* 
*     CALL DB$DPIS TO SAVE PARAMETERS FOR LATER USE BY DB$DPII, IF ANY
*     ARE SPECIFIED BY ITEM DB$MERP.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$MERP = 0, NO PROCEDURES TO CALL
*             " 0, = APLIST FWA FOR CALL TO DB$DPII 
* 
* DC   EXIT CONDITIONS
* 
*      DB$MERP = 0  CLEAR FWA ERROR PROCEDURE ADDRESS 
* 
* DC  CALLING ROUTINES
* 
*     DB$ERR - CDCS ERROR PROCESSOR 
* 
* DC  CALLED ROUTINES 
* 
*     DB$DPIS - SAVE PARAMETERS FOR ITEM LEVEL ERROR DBPS 
*#
          ENTRY  DB$CEDP
DB$CEDP   BSSZ   1
          SA1    =XDB$MERP
          ZR   X1,DB$CEDP          NO PROCEDURES - EXIT 
          MX6    0
          SA6    A1 
          SA1    X1                (A1) = PARAMETER LIST POINTER
          RJ   =XDB$DPIS     SAVE PARAMETERS FOR ITEM DBPS
          EQ   DB$CEDP
          END 
