*DECK C$DMSTR 
          IDENT  C$DMSTR
          SST 
          COMMENT  ISSUE CDCS -START- CALL
          B1=1
          ENTRY  C.DMSTR
*                ISSUE THE CDCS -START- CALL
*                ON ENTRY A0=FIT ADDRESS
*                         (=XC.KRORD)=RECORD ORDINAL/KEY ORDINAL
 C.DMSTR  BSS    1
 CDCS     IFNE   OP.DCS,OP.NO 
          SX7    A0          FIT ADDRESS
          SA7    =XC.DMPAR
          RJ     =XC.DMDFO   GET FILE ORDINAL 
          SA7    A7+B1       ADDRESS OF FILE ORDINAL
          MX0    48 
          SA1    =XC.KRORD   CELL SET IN -CBSETKY- TO -FULL- KEY ORDINAL
          BX1    X0*X1        IF A PARTIAL KEY -START-, KEY ORDINAL IS
          SA2    =XC.SVKO       DIFFERENT - SET TO CORRECT ORDINAL
          IX6    X1+X2
          SA6    A1 
          SX7    A1 
          SA7    A7+B1       ADDRESS OF RECORD ORDINAL/KEY ORDINAL
          SA1    =XC.DMPAR   CDCS 
 CDCS2    IFEQ   OP.DCS,OP.DCS1 
          RJ     =XDM$STR     -START- CALL
 CDCS2    ELSE
          RJ     =XDB$STR    CDCS 2 -START- CALL
 CDCS2    ENDIF 
          RJ     =XC.A0B1    RESTORE A0 (FIT ADDRESS) AND B1(=1)
          EQ     C.DMSTR
 CDCS     ENDIF 
          END 
