*DECK C$DMEND 
          IDENT  C$DMEND
          SST 
          COMMENT  ISSUE CDCS -TERMINATE- CALL
          B1=1
          ENTRY  C.DMEND
*                ISSUE THE CDCS -TERMINATE- CALL
 C.DMEND  BSS    1
 CDCS     IFNE   OP.DCS,OP.NO 
 CDCS2    IFEQ   OP.DCS,OP.DCS1 
          RJ     =XDM$END    CDCS -TERMINATE- CALL
 CDCS2    ELSE
          RJ     =XDB$END    CDCS 2 -TERMINATE- CALL
 CDCS2    ENDIF 
          SB1    1           RESTORE B1 
          EQ     C.DMEND
 CDCS     ENDIF 
          END 
