*DECK C$DMWR2 
          IDENT  C$DMWR2
          SST 
          COMMENT  ISSUE CDCS RANDOM -WRITE- CALL 
          B1=1
          ENTRY  C.DMWR2
*                ISSUE THE CDCS RANDOM -WRITE- CALL 
*                ON ENTRY A0=FIT ADDRESS
*                         (=XC.RORD)=RECORD ORDINAL 
 C.DMWR2  BSS    1
 CDCS     IFNE   OP.DCS,OP.NO 
          SX7    A0          FIT ADDRESS
          SA7    =XC.DMPAR
          SX7    =XC.SVNF 
          SA7    A7+B1
          SX7    =XC.RORD    ADDRESS CONTAINING RECORD ORDINAL
          SA7    A7+B1
          RJ     =XC.DMDKO   GET KEY ORDINAL
          SA7    A7+B1       ADDRESS CONTAINING KEY ORDINAL 
          SA1    =XC.DMPAR   CDCS 
 CDCS2    IFEQ   OP.DCS,OP.DCS1 
          RJ     =XDM$WR2     RANDOM -WRITE- CALL 
 CDCS2    ELSE
          RJ     =XDB$WR2    CDCS 2 RANDOM -WRITE- CALL 
 CDCS2    ENDIF 
          RJ     =XC.A0B1    RESTORE A0 (FIT ADDRESS) AND B1(=1)
          EQ     C.DMWR2
 CDCS     ENDIF 
          END 
